日期:2011-12-24 浏览次数:20804 次
<html> <body>读取一个文件相关信息的范例<br><br> <% 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 对象实例内存空间 %> </body></html> |