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 parameters
dim ForReading = 1
dim ForWriting = 2
dim ForAppending = 8
' Newline var consists of HTML <BR> tag plus a JScript newline.
dim NewLine = "<BR>\n"
' (1)Create a FileSystemObject.
dim fso, ts
set 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 + NewLine
wend
'Write the variable containing the file contents into the page.
Response.Write(NewLine + strFil)
ts.Close
set fso=nothing
%>
</BODY>
</HTML>