如何獲知文件最后的修改日期和時間?
<%
Dim objCMFU
Dim strModified
Set objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")
' 創(chuàng)建對象并賦給變量,并且GetProperty類是當(dāng)前唯一可用的.
strModified = objCMFU.LastModified
' 檢索并返回包含最后修改日期和時間(LastModified function )值.當(dāng)然了,還要考慮到出錯的可能.
Set objCMFU = Nothing
' 清空.
%>
<% If strModified = "Error!" Then %>
對不起,出錯了!
<% Else %>
這個文件最后修改于:
<%= strModified %>
<%= FormatDateTime(CDate(strModified),1) %>
<%= FormatDateTime(CDate(strModified),3) %>
<% End If %>
[1]
相關(guān)文章
如何計算出當(dāng)前日期屬于定義時間段內(nèi)的第幾星期?
如何計算出當(dāng)前日期屬于定義時間段內(nèi)的第幾星期?...2006-11-11如何在讀取Excel文件時創(chuàng)建列表的下拉菜單?
如何在讀取Excel文件時創(chuàng)建列表的下拉菜單?...2006-11-11如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應(yīng)用系統(tǒng)?
如何防止未經(jīng)注冊的用戶繞過注冊界面直接進入應(yīng)用系統(tǒng)?...2006-11-11