当前位置：主页 > 查看内容

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

发布时间：2021-04-15 00:00| 有 位朋友查看

简介：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……

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:\shenzhaoyang\record.txt")

Response.Write "糟了,这个文件已被修改过!" & File_GetLastModified("")

[1]


本文转载自网络，原文链接：https://m.jb51.net/article/4724.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：如何获知文件最后的修改日期和时间？ 下一篇：如何获知并显示文件的大小？

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐