ASP获取文件的最后修改时间

  '获取文件的最后修改时间

    Function GetFileLastModifiedTime(FileName)

   Dim FSO, File, FilePath, FileTime

   IF FileName = "" Then

   Response.Write("文件名为空。")

   Response.End()

   End IF

   FilePath = Server.MapPath(FileName)

   Set FSO = Server.CreateObject("Scripting.FileSystemObject")

   IF FSO.FileExists(FilePath) Then

   Set File = FSO.GetFile(FilePath)

   FileTime = File.DateLastModified

   Set FSO = Nothing

   Else

   Response.Write("配置文件ServiceArea.xml不存在。")

   Response.End()

   End IF

   GetFileLastModifiedTime = FileTime

    End Function

上一篇: php类继承实例
下一篇: asp获取GMT时间
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp
相关日志: