Function File_GetLastModified( sFile )
Dim objFileObj, objFile
 xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
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 “è®°å½æ件被修æ¹:” & File_GetLastModified
(“d:\shenzhaoyang\record.txt”)
Response.Write “ç³äº,è¿ä¸ªæ件已被修æ¹è¿!” & File_GetLastModified(“”)
[1]
