FileSystemObject读写文件
2006-02-27 11:51:38 来源:WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻鐔兼⒒鐎靛壊妲紒鎯у⒔閹虫捇鈥旈崘顏佸亾閿濆簼绨绘い鎺嬪灪閵囧嫰骞囬姣挎捇鏌熸笟鍨妞ゎ偅绮撳畷鍗炍旈埀顒勭嵁婵犲嫮纾介柛灞捐壘閳ь剛鎳撻~婵嬪Ω閳轰胶鐤呯紓浣割儐椤戞瑩宕ョ€n喗鐓曟い鎰靛亝缁舵氨绱撻崘鈺傜婵﹤顭峰畷鎺戔枎閹搭厽袦婵犵數濮崑鎾绘⒑椤掆偓缁夌敻骞嗛悙鍝勭婵烇綆鍓欐俊鑲╃磼閹邦収娈滈柡灞糕偓鎰佸悑閹肩补鈧尙鏁栧┑鐐村灦閹稿摜绮旈悽绋课﹂柛鏇ㄥ灠閸愨偓濡炪倖鍔﹀鈧繛宀婁邯濮婅櫣绱掑Ο璇茶敿闂佺ǹ娴烽弫璇差嚕婵犳碍鏅插璺猴工瀹撳棝姊虹紒妯哄缂佷焦鎸冲畷鎴﹀箻鐠囧弶宓嶅銈嗘尰缁嬫垶绂嶉悙顒佸弿婵☆垳鍘ф禍楣冩倵濮樼偓瀚�

核心提示:你可以通过调用OpenTextFile方法来读取一个文本文件,OpenTextFile方法的第一个参数是指定打开的文件名;第二个参数是指定文件是读取,FileSystemObject读写文件,增添,或者写入;第三个参数决定当指定的文件名不存在时新的文件是否要建立;第四个参数指定文件的格式是ASCII还是Unicode,
你可以通过调用OpenTextFile方法来读取一个文本文件。OpenTextFile方法的第一个参数是指定打开的文件名;第二个参数是指定文件是读取,增添,或者写入;第三个参数决定当指定的文件名不存在时新的文件是否要建立;第四个参数指定文件的格式是ASCII还是Unicode。这一方法返回的是一个TextStream对象。
下面的代码段将一个文本文件中的内容读入一个TextBox控件。TextStream中的ReadAll方法用于读出文件的内容,然后使用Close方法来关闭文件。
DimobjfsoAsFileSystemObject
DimobjTextAsTextStream
SetobjFSO=NewFileSystemObject
SetobjText=objFSO.OpenTextFile(App.Path&"\temp.txt",_
ForReading,False,TristateUseDefault)
Text1.Text=objText.ReadAll()
CallobjText.Close
为了能够在一个文本文件中写入内容,可以先打开文件,然后使用TextStream中的Write方法输入需要的值。
SetobjText=objFSO.OpenTextFile(App.Path&"\temp.txt",_
ForWriting,False,TristateUseDefault)
CallobjText.Write(Text1.Text)
CallobjText.Close->
Tags:FileSystemObject 读写 文件
编辑录入:爽爽 [复制链接] [打 印]更多精彩
赞助商链接