Tol!k
|
 Posted: Mon Feb 07, 2011 14:19 Post subject: |
 |
|
Жалкая попытка: отслеживается только дата и только файлов
| Code: | 'Script for Script Content Plugin
'http://www.totalcmd.net/plugring/script_wdx.html
'http://wincmd.ru/plugring/script_wdx.html
'script.ini
'[Script]
'Section=DirNew
'[DirNew]
'Script=DirNew.vbs
'LongName=0
'ParseDirs=1
Dim fso, folder, filecollection, file
Set fso = CreateObject("Scripting.FileSystemObject")
dirnew = 999999999999999
diff = 0
content = ""
If fso.FolderExists(filename) Then
Set folder = fso.GetFolder(filename)
Set filecollection = folder.Files
For Each file in filecollection
diff = DateDiff("n",file.DateLastModified,Now())
If diff < dirnew Then dirnew = diff
Next
content = dirnew
Set folder = Nothing
Set filecollection = Nothing
End If
Set fso = Nothing
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
