如何获知文件被改动的情况？

 我们可用如下代码进行监控：

函数中使用了fso对象来读取文件属性。

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 "记录文件被修改:" & File_GetLastModified
("d:\shanliangrizi\record.txt")
Response.Write "糟了,这个文件已被修改过!" & File_GetLastModified("")