文件存取组件

1、二、文件的读、写二、文件的读、写1. 1. 创建并写入文件创建并写入文件 首先，需要创建一个首先，需要创建一个 FileSystemObjectFileSystemObject 对对象，然后，利用象，然后，利用CreateTextFileCreateTextFile( )( )以该对象创建一个以该对象创建一个 TextStreamTextStream 对象，最后利用对象，最后利用 TextStreamTextStream 对象的对象的 WriteLineWriteLine 方法来写入文件。方法来写入文件。2. 2. 从文本文件读取数据从文本文件读取数据 首先，创建一个首先，创建一个 FileS

2、ystemObjectFileSystemObject 对象，对象，然后，利用然后，利用OpenTextFileOpenTextFile( )( )以该对象创建一个以该对象创建一个 TextStreamTextStream 对象，最后利用对象，最后利用 TextStreamTextStream 对象的对象的 ReadLineReadLine 方法来读取文件。方法来读取文件。GetDrive ():获得驱动器GetFolder ()：获得文件夹GetFile ()获得文件CreateFolder() 创建文件夹fileSystemObject其他常用方法fldr = fso.CreateFold

3、er(C:MyTest); f1 = fso.GetFile(c:test.txt); 思考：FolderExists(Path)%Set FSO = Server.CreateObject(Scripting.FileSystemObject) Path = Server.MapPath(test) 返回返回test的物理目录的物理目录(绝对路径绝对路径)Response.Write Path & If FSO.FolderExists(Path) = false then 判断该文件夹是否存在判断该文件夹是否存在FSO.CreateFolder(Path) 新建文件夹新建文件夹En

4、d If File = Path & asptest.txt 写文件操作写文件操作If FSO.FileExists(File) = True Then 判断该文件是否存在判断该文件是否存在建立建立 TextStream 对象对象 CTF Set CTF = FSO.OpenTextFile(File, 8, False, 0) 打开文件打开文件, 详见说明详见说明Else Set CTF = FSO.CreateTextFile(File,False, False) 新建文件新建文件End IfCTF.Write 第一个字符串第一个字符串; 写字符串写字符串CTF.WriteLine

5、 第二个字符串第二个字符串; 写字符串写字符串, 并加上一个换行符并加上一个换行符CTF.Write 第三个字符串第三个字符串; CTF.Close 注意要关闭文件注意要关闭文件 读文件操作读文件操作Set CTF = FSO.OpenTextFile(File, 1,0)Do While CTF.AtEndOfStream True 判别是否文件结尾判别是否文件结尾（循环语句）（循环语句） Str = CTF.ReadLine （每次）读取一行（每次）读取一行 StrNoHTML = StrNoHTML & Str & & VbCrLf StrHTML = StrHTML & Server.HTMLEncode(Str) & & VbCrLfLoopResponse.Write St