1、第9章檔案，訪問文件的方法有多種。您可以使用VB提供函數(shù)、使用windows Api函數(shù)等，但是最簡單的方法是使用filesystemobject對象。不是VB內(nèi)建物件，因此可以用作參考。1filesystemObject對象引用項目/引用/microsoft scription Runtime對象瀏覽器窗口中，選擇scripting模塊?？梢钥吹教砑恿撕芏鄬ο?。drive filesystemobject檔案訪問dim fs as new filesystemobject創(chuàng)建filesystemobject對象dim txtf as textstream定義textstream對象變量tex

2、tstream對象變量讀取和寫入textstrem對象和文件的所有文件必須在讀取和寫入之前打開。打開Filesystemobjet對象提供的文件的方法有兩種：打開opentextfile檔案創(chuàng)建createtextfile檔案通過filesystemobject打開的文件是TextStream對象，通過textstream對象的各種方法和屬性1)opentextfile方法：打開檔案set textstream對象名稱=fiileopentextfile(檔案名稱、IO模式、是否自動創(chuàng)建檔案)檔案名稱：建議使用記錄完整路徑的檔案名稱。I/o模式：可以設(shè)置為forreading(=1)、forw

3、rting(=2)或forappending(=8)。設(shè)定為Forreading時，開啟的檔案為唯讀。如果設(shè)置為Forwriting，則打開的文件是可寫的，并將清除原始文件的內(nèi)容。設(shè)置為Forappending時，可以寫入打開的文件，但不會清除原始文件的內(nèi)容，數(shù)據(jù)在檔案的最后面寫入。參數(shù)默認值：表示forreading只讀。是否自動創(chuàng)建文檔：可以設(shè)置為true或false。如果設(shè)置為True，則在文件不存在的情況下自動創(chuàng)建新文件。如果設(shè)置為False，則文件不存在時會出錯。默認值：顯示為false。示例：以只讀文件打開c 3360 autoexec . bat dim fs as new fi

4、le system object dim txtf as text stream set txtf=fs . open text file( c : autfile示例dim fs as new file system object dim txtf as text stream set txtf=fs . open text file()True)txtf . close，2) createtextfilecreatetextfile(檔案名稱，是否復蓋原始文件：可以設(shè)置為true或false)。默認情況下，默認值為true。復蓋原始文件如果設(shè)置為true，則會在文件存在時損壞原始文件，并用

5、新文件替換。設(shè)定為False會在檔案存在時建立c:text.txt，如果c 3360 test . txt存在，則會產(chǎn)生復寫錯誤的范例。dim fs as new file system object dim txtf as text stream set txtf=fs . create textfile( c 3360 text . txt )3)file exissis一般不會損壞現(xiàn)有文件但是，可能會發(fā)生錯誤。如何避免錯誤，首先可以檢查文件是否存在。在牙齒的情況下，調(diào)用filesystemobjet對象的fileexists方法，如下所示：Fs是file system object if

6、 fs . file exists(“c 3360 test . txt”)then文件。else set txtf=fs . create textfile()End if 4)readline和writeline方法：檔案讀取和寫入使用createdtextfile和opentextfile打開(設(shè)置)讀取時，必須調(diào)用textstream對象的readline方法。寫入時必須調(diào)用writeline方法。范例：txtf和txtf2都會讀取textstream物件s=txtf.readline的資料行，并將變數(shù)s的資料寫入變數(shù)txtf2.writeline s，做為一行檔案的資料。5)aten

7、dofstream屬性：當讀取位置到達檔案末尾時，再次調(diào)用readlin將導致錯誤。若要避免牙齒錯誤，請檢查textstream對象的atendofstream屬性。如果為true，則無法重新讀取數(shù)據(jù)，因為檔案位置已到達檔案末尾。if nottxtf . atendofstreamthen s=txtf . readline endif示例：將c:autoexec.bat文件復制到c 3360 auto exec . bak檔案dim fs as new FIM中Tream dim txt F2 as texttxtf2.writeline s將數(shù)據(jù)作為txtf2中的一行寫入wend txtf

8、1文件Adall方法：一次讀取文件中的所有內(nèi)容。readline方法一次只讀取一行數(shù)據(jù)，readall方法一次讀取文件的所有內(nèi)容。Txtf是textstream對象if not txtf . atend ofstream then text 1 . text=txtf . read all end if end sub。7)read和write方法：檔案讀寫read和readline方法的主要區(qū)別在于，read方法一次讀取一行數(shù)據(jù)，而read方法一次讀取n個字符。例如，n=100 s=txtf.read (n)取決于讀取方法(例如。ext、dll、BMP等格式檔案)write和writelin

9、e方法的主要區(qū)別在于，每次向writeline牙齒文件寫入數(shù)據(jù)時，都會寫入更多的chr(13)和chr(10)。例如，使用readall和write方法寫入c 3360 asdim fs as new file system object dim txtf as text stream，txt F2 as text stream set txtf=fs . open text file(“c : autoexec . bs True”)添加工具欄按鈕。在程序中提供保存檔案、打開檔案和創(chuàng)建新檔案的功能。首先定義全局變量textchange以記錄文本框是否已修改。2在new_Click()事件中P

10、rivate subnew _ Click()if text change=1 then aa=msgbox(是否保存修改的檔案，vbokcancel) id活動存儲檔案ees private subopen _ click()dim fs as new file system object dim txtf as text stream if text change=1 then aa=msgbox(是否保存現(xiàn)有更改？vbok cancel)If aa=1 then save file end If end If text 1 . text=text change=0 common dial

11、og 1 . show open set txtf=fs . open text private subsave _ click()save file End subprivate subtoolbar 1 _ button click(byval button as mscomctlib . button)selection 徐璐其他表單共享的進程，變量必須存儲在標準模塊中。以前的記事本程序一次只能編輯一個文件。屬于SDI的應用程序。相反，Microsoft word可以同時打開和編輯多個文檔。是MDI應用程序。1、使用“創(chuàng)建MDI西餐”菜單“添加項目/MDI西餐”命令將新MDI表格添加到項

12、目中。如果要通過從菜單中選擇“工程/工程1屬性”命令打開“項目屬性”對話框，然后將“啟動對象”設(shè)置為“MDIForm1”在MDI表單中創(chuàng)建菜單和工具欄，創(chuàng)建MDI子表單以在運行時創(chuàng)建多個子表單來訪問徐璐的其它文檔，則不建議在設(shè)計階段先創(chuàng)建多個表單，一般方法是先將子表單設(shè)置為牙齒應用程序文檔的模板，然后通過對象變量實現(xiàn)將西餐命名為form1，然后在屬性窗口中將屬性：mdichild設(shè)置為true。將richtextbox對象放置在表單中。將標準模塊添加到項目中。module1記錄代碼。public no as integer sub file new proc()dim newdoc as new