FileSystemObject讀寫文件

你可以通過調用OpenTextFile方法來讀取一個文本文件。OpenTextFile方法的第一個參數是指定打開的文件名；第二個參數是指定文件是讀取，增添，或者寫入；第三個參數決定當指定的文件名不存在時新的文件是否要建立；第四個參數指定文件的格式是ASCII還是Unicode。這一方法返回的是一個TextStream對象。
　　
　　下面的代碼段將一個文本文件中的內容讀入一個TextBox控件。TextStream中的ReadAll方法用於讀出文件的內容，然後使用Close方法來關閉文件。
　　
　　DimobjFSOAsFileSystemObject
　　DimobjTextAsTextStream
　　
　　SetobjFSO=NewFileSystemObject
　　
　　SetobjText=objFSO.OpenTextFile(App.Path&" emp.txt",_
　　ForReading,False,TristateUseDefault)
　　Text1.Text=objText.ReadAll()
　　CallobjText.Close
　　
　　為了能夠在一個文本文件中寫入內容，可以先打開文件，然後使用TextStream中的Write方法輸入需要的值。
　　
　　SetobjText=objFSO.OpenTextFile(App.Path&" emp.txt",_
　　ForWriting,False,TristateUseDefault)
　　CallobjText.Write(Text1.Text)
　　CallobjText.Close->