黑鹰基地特训教程lesson24

文件存取组件一、FileAccess组件简介FileAccess组件展示可用来访问计算机文件系统的方法和属性。用户可以使用FileAccess组件创建FileSystemObject

对象，该对象提供用于访问文件系统的方法、属性和集合。FileAccess组件的对象二、文件的读、写1.创建并写入文件首先，需要创建一个FileSystemObject对象，然后，利用CreateTextFile()以该对象创建一个TextStream对象，最后利用TextStream对象的WriteLine方法来写入文件。2.从文本文件读取数据首先，创建一个FileSystemObject对象，然后，利用OpenTextFile()以该对象创建一个TextStream对象，最后利用TextStream对象的ReadLine方法来读取文件。CreateTextFile(文件名,[overwrite[,unicode]])参数:overwrite:对文件是否覆盖

Unicode:指示该文件是否用ASC还是UNICODE码实例（写入文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)%>Writeline:在文件中添加字符串和分行符Write：将一个字段写入文本writeBlankLine(lines):用户在文件中指定分行符数目OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值为ForReading;ForAppendingmode:1为只读打开;8为追加Create:如果文件不存在问是否创建,如果要创建则设为trueFormat:-2:系统默认;-1unicode;0:ASCII实例（读取文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.OpenTextFile(“c:\test\test.txt”)WhilenotTfile.AtEndOfStreamResponse.Write(Tfile.Readline)WendTfile.close%>参数（读取文件）：AtEndofLine:当光标在当前行的末尾时为真AtEndOfStream:在流的末尾时,为真Column:(只读的整数):统计从行首到当前光标的位置的字符数LINE:只读的整数:指明光标所在行在整个文件中的行号.方法:Read(字符数):指定从光标的当前位置开始从文本文件中读取一定数量的字符ReadLine:读取一行字符ReadAll:读取全部字符Skip(字符数):略过一定的字符

Close:关闭打开的文件GetDrive():获得驱动器GetFolder()：获得文件夹GetFile()获得文件CreateFolder()

创建文件夹fileSystemObject其他常用方法fldr=fso.CreateFolder("C:\\MyTest");

f1=fso.GetFile("c:\\test.txt");文件的处理:FileSystemObject方法:CopyFilesource,destinationMoveFilesource,destinationDeleteFileFileSpecifierFile对象Copynewcopy,[overwrite]Movenewcopydelete:实例(文件的处理)1：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)Tfile.closeFObject.CopyFile”c:\test\test.txt”“c:\test\test2.txt”FObject.MoveFile”c:\test\test.txt”“c:\test\test3.txt”FObject.DeleteFile”c:\test\test.txt”%>实例(文件的处理)2：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok写入文件”)Tfile.closeSetafile=tfile.GetFile(“c:\test\test.txt”)Afile.copy“c:\test2.txt”Afile.move”c:\test3.txt”Afile.delete%>检测文件的存在性:

语法:FileExists(文件的物理地址)例子:<%Myself=request.ServerVariables(“PATH_TRANSLATED”)Setfobject=server.createobject(“scripting.filesystemObject”)If(fobject.FileExists(myself)thenResponse.write(“fileexist”)%>思考：FolderExists(Path)驱动器和文件夹操作例子:<%Setfobject=server.createobject(“scripting.filesystemObject”)Foreachthinginfobject.drives%><br>Driveletter:<%=thing.Driveletter%><br>DriveTotalSize:<%=thing.TotalSize%><br>DriveAvailableSpace:<%=thing.AvailableSpace%><hr><%next%>文件操作综合事例:<%@Language=VBScript%><%SetFSO=Server.CreateObject("Scripting.FileSystemObject")Path=Server.MapPath("test")'返回test的物理目录(绝对路径)Response.WritePath&"<Br>"IfFSO.FolderExists(Path)=falsethen'判断该文件夹是否存在

FSO.CreateFolder(Path)'新建文件夹EndIf文件操作综合事例:File=Path&"\asptest.txt"'写文件操作IfFSO.FileExists(File)=TrueThen'判断该文件是否存在

'建立TextStream对象CTFSetCTF=FSO.OpenTextFile(File,8,False,0)'打开文件,详见说明ElseSetCTF=FSO.CreateTextFile(File,False,False)'新建文件EndIfCTF.Write"第一个字符串;"'写字符串CTF.WriteLine"第二个字符串;"'写字符串,并加上一个换行符CTF.Write"第三个字符串;"CTF.Close'注意要关闭文件'读文件操作文件操作综合事例:SetCTF=FSO.OpenTextFile(File,1,,0)DoWhileCTF.AtEndOfStream<>True'判别是否文件结尾（循环语句）

Str=CTF.ReadLine'（每次）读取一行

StrNoHTML=StrNoH