程序员

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

作者:admin 2021-04-15 我要评论

Function File_GetLastModified( sFile ) Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = ...

在说正事之前,我要推荐一个福利:你还在原价购买阿里云、腾讯云、华为云服务器吗?那太亏啦!来这里,新购、升级、续费都打折,能够为您省60%的钱呢!2核4G企业级云服务器低至69元/年,点击进去看看吧>>>)

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

版权声明:本文转载自网络,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。本站转载出于传播更多优秀技术知识之目的,如有侵权请联系QQ/微信:153890879删除

相关文章
  • 四两拨千斤——你不知道的VScode编码Ty

    四两拨千斤——你不知道的VScode编码Ty

  • 我是如何在 Vue 项目中做代码分割的

    我是如何在 Vue 项目中做代码分割的

  • position:sticky 粘性定位的几种巧妙应

    position:sticky 粘性定位的几种巧妙应

  • 从零到一搭建React组件库

    从零到一搭建React组件库

腾讯云代理商
精彩导读
海外云服务器
热门资讯
腾讯云代理商