FileSystemObject读写文件
图老师设计创意栏目是一个分享最好最实用的教程的社区,我们拥有最用心的各种教程,今天就给大家分享FileSystemObject读写文件的教程,热爱PS的朋友们快点看过来吧!
下面的代码段将一个文本文件中的内容读入一个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->