获得文件的最后修改时间（转）
' If sFile = "" Then current file is used
' ( the file that includes this file )
' Else it is assumed that it is a full path
' ( the file that includes this file )
' Else it is assumed that it is a full path
Function File_GetLastModified( sFile )
Dim objFileObj, objFile
Set objFileObj = CreateObject("Scripting.FileSystemObject")
If sFile = "" Then
sFile = Server.MapPath( Request.ServerVariables
("SCRIPT_NAME") )
End If
Set objFile = objFileObj.GetFile(sFile)
File_GetLastModified = objFile.DateLastModified
End Function
Response.Write "c: est.txt was modified:" & File_GetLastModified
("c: est.txt")
Response.Write "This file is modified:" & File_GetLastModified("")
Visit site (opens in new window)
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10294527/viewspace-124719/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
显示最后十个来访者的源程序（转）
下一篇：
用ASP显示目录的大小（转）
请登录后发表评论
登录
全部评论
