VB:نمایش و ذخیره فایل

[نسترن1]

سلام

اگه ممکنه من را در نوشتن این برنامه به زبان vb6 یاری کنید
در فرم یک drive و یک dir ویک file ویک text و دو command با نام های open و save داریم
اگر روی open کلیک شد فایل انتخاب شده محتویاتش درون text نمایش داده شود و تغییرات روی محتویات فایل ایجاد کرده و هنگامی که روی save کلیک شد با تغییرات جدید فایل را ذخیره کند(فقط فایل های متنی)
مرسی

بالای صفحه (http://www.avayeazad.com/months/women/11.htm#verytop)

[killer-star]

سلام

اگه ممکنه من را در نوشتن این برنامه به زبان vb6 یاری کنید
در فرم یک drive و یک dir ویک file ویک text و دو command با نام های open و save داریم
اگر روی open کلیک شد فایل انتخاب شده محتویاتش درون text نمایش داده شود و تغییرات روی محتویات فایل ایجاد کرده و هنگامی که روی save کلیک شد با تغییرات جدید فایل را ذخیره کند(فقط فایل های متنی)
مرسی

بالای صفحه (http://www.avayeazad.com/months/women/11.htm#verytop)

سلام

این کد فایلتو میخونه :


Dim filenumber As Integer, length As Long
filenumber = FreeFile
Open FileName For Input As filenumber
length = LOF(filenumber)
If length < 32767 Then
Text1.Text = Input$(length, filenumber)
Else
MsgBox "This file is longer than 32Kb"
End If
Close filenumber

این هم بر روی فایل سیو میکنه :


Dim filenumber As Integer
filenumber = FreeFile
Open FileName For Output As filenumber
Print #filenumber, Text1.Text
Close filenumber

در ضمن خود vb یک ویزارد داره که برنامه ای شبیه Wordpad میسازه اونو ببینی بد نیست !