Вовсе нет. Можно использовать и работает очень быстро:
Code:
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FileName) Then
content = Abs(DateDiff("n", Now, FSO.GetFile(FileName).DateCreated))
Else
content = Abs(DateDiff("n", Now, FSO.GetFolder(FileName).DateCreated))
End If
Set FSO = Nothing
Возвращает разницу в минутах между датой создания и текущим временем.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
