<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>
|