|
|
|
Dernière mise à jour :
<%
Response.Buffer = False
Function GetFileDate(aFile)
' Returns the last modified date of a file
Dim fileDate, FSO, thisfile
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set thisfile = FSO.GetFile(aFile)
fileDate = thisfile.DateLastModified
Set thisfile = nothing
Set FSO = nothing
GetFileDate = fileDate
End Function
Function FormatDateYYYYMMDD(aDate)
FormatDateYYYYMMDD = Year(aDate) & "-" & Right("0" & Month(aDate),2) & "-" & Right("0" & Day(aDate),2)
End Function
Dim LMD_THIS_DATE, LMD_THIS_FILE
LMD_THIS_FILE = Request.ServerVariables("PATH_TRANSLATED")
LMD_THIS_DATE = GetFileDate(LMD_THIS_FILE)
Response.Write FormatDateYYYYMMDD(LMD_THIS_DATE)
%>
|
|
Avis importants |
|