Также можно использовать ScriptContentPlugin с vbs-скриптом:
Code:
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FileName) Then
content = Abs(DateDiff("h", Now, FSO.GetFile(FileName).DateLastModified))
Else
content = Abs(DateDiff("h", Now, FSO.GetFolder(FileName).DateLastModified))
End If
Set FSO = Nothing
_________________ Нет, я не сплю. Я просто медленно моргаю.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
