FSO文本文件操作,读取一个文件相关信息$

来源：互联网发布：校园网络逻辑拓扑图编辑：程序博客网时间：2024/05/22 12:06

FSO读取一个文件相关信息的范例

<%       Dim  objFSO,objFile        ’声明一个名称为  objFSO  的变量以存放对象实例       Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")         If  objFSO.FileExists(Server.MapPath("newfile.asp"))  Then             Set  objFile  =  objFSO.GetFile(Server.MapPath("newfile.asp"))             Response.Write  "文件的名称："&objFile.Name&"<br>"             Response.Write  "文件的路径："&objFile.Path&"<br>"             Response.Write  "文件的建立日期："&objFile.DateCreated&"<br>"             Response.Write  "文件的最后浏览日期："&objFile.DateLastAccessed&"<br>"             Response.Write  "文件的最后修改日期："&objFile.DateLastModified&"<br>"             Response.Write  "文件的大小："&objFile.Size&"<br>"             Response.Write  "文件的类型："&objFile.Type&"<br>"         Else             Response.Write  Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"         End  If       Set  objFile  =  Nothing       Set  objFSO  =  Nothing            ’释放  FileSystemObject  对象实例内存空间    %>

<HTML><HEAD><TITLE>My FileSystemObject Sample Page</TITLE></HEAD><BODY><%'Constants for Script parametersdim ForReading = 1dim ForWriting = 2dim ForAppending = 8' Newline var consists of HTML <BR> tag plus a JScript newline.dim NewLine = "<BR>\n"' (1)Create a FileSystemObject.dim fso, tsset fso = Server.CreateObject("Scripting.FileSystemObject")'(2)Create a new TextStream object using FSO, and write to it.'This results in a new file.set ts = fso.CreateTextFile("c:\fileshare\test.txt",true)ts.WriteLine("Hello World!")ts.WriteBlankLines(1)ts.WriteLine("This is my first FileSystemObject application.")ts.Close' (3)Access an existing file and its attributes--Name, Path, and DateLastModified.set ts = fso.GetFile("c:\fileshare\test.txt")Response.Write("Your file's name is: " + ts.Name + NewLine)Response.Write("Your file's path is: " + ts.Path + NewLine)Response.Write("File last changed: " + ts.DateLastModified)'(4)Open the file and read data from it. Notice that when you call'OpenTextFile, you set the overwrite parameter to "false," so you 'use the existing file instead of creating a new one.strFil = NewLine + ""set ts = fso.OpenTextFile("c:\fileshare\test.txt",ForReading,false)' (5)Loop through lines in the file, read them into strFil variable.while not ts.AtEndOfStream   strFil = strFil  & ts.ReadLine + NewLinewend'Write the variable containing the file contents into the page.Response.Write(NewLine + strFil)ts.Closeset fso=nothing%></BODY></HTML>