黑鷹基地特訓教程lesson24

文件存取組件一、FileAccess組件簡介FileAccess組件展示可用來訪問計算機文件系統(tǒng)的方法和屬性。用戶可以使用FileAccess組件創(chuàng)建FileSystemObject

對象，該對象提供用于訪問文件系統(tǒng)的方法、屬性和集合。FileAccess組件的對象二、文件的讀、寫1.創(chuàng)建并寫入文件首先，需要創(chuàng)建一個FileSystemObject對象，然后，利用CreateTextFile()以該對象創(chuàng)建一個TextStream對象，最后利用TextStream對象的WriteLine方法來寫入文件。2.從文本文件讀取數(shù)據(jù)首先，創(chuàng)建一個FileSystemObject對象，然后，利用OpenTextFile()以該對象創(chuàng)建一個TextStream對象，最后利用TextStream對象的ReadLine方法來讀取文件。CreateTextFile(文件名,[overwrite[,unicode]])參數(shù):overwrite:對文件是否覆蓋

Unicode:指示該文件是否用ASC還是UNICODE碼實例（寫入文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.CreateTextFile(“c:\test\test.txt”)Tfile.writeLine(“ok寫入文件”)%>Writeline:在文件中添加字符串和分行符Write：將一個字段寫入文本writeBlankLine(lines):用戶在文件中指定分行符數(shù)目OpenTextFile(文件名,[IOmode],[Create],[format])IOmode:取值為ForReading;ForAppendingmode:1為只讀打開;8為追加Create:如果文件不存在問是否創(chuàng)建,如果要創(chuàng)建則設為trueFormat:-2:系統(tǒng)默認;-1unicode;0:ASCII實例（讀取文件）：<%Setfobject=server.createobject(“scripting.filesystemObject”)Settfile=fobject.OpenTextFile(“c:\test\test.txt”)WhilenotTfile.AtEndOfStreamResponse.Write(Tfile.Readline)WendTfile.close%>參數(shù)（讀取文件）：AtEndofLine:當光標在當前行的末尾時為真AtEndOfStream:在流的末尾時,為真Column:(只讀的整數(shù)):統(tǒng)計從行首到當前光標的位置的字符數(shù)LINE:只讀的整數(shù):指明光標所在行在整個文件中的行號.方法:Read(字符數(shù)):指定從光標的當前位置開始從文本文件中讀取一定數(shù)量的字符ReadLine:讀取一行字符ReadAll:讀取全部字符Skip(字符數(shù)):略過一定的字符

Close:關閉打開的文件GetDrive():獲得驅(qū)動器GetFolder()：獲得文件夾GetFile()獲得文件CreateFolder()

創(chuàng)建文件夾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)驅(qū)動器和文件夾操作例子:<%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'判別是否文件結尾（循環(huán)語句）

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

StrNoHTML=StrNoH