Batya
|
 Posted: Mon Feb 07, 2011 16:37 Post subject: |
 |
|
Также используется Script Content Plugin со скриптом:
| Code: | '==============================================================================
' Колонки возвращают разницу в минутах между текущей датой и датой папки\файла:
' Result - дата создания;
' Result1 - дата изменения;
' Result2 - дата последнего доступа.
'==============================================================================
Const UseFolderRecursion = False 'Рекурсивный просмотр вложенных папок
'==============================================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
content = Result(filename, 1)
content1 = Result(filename, 2)
content2 = Result(filename, 3)
Set FSO = Nothing
Function Result(pPath, pMode)
Dim Diff, F
If FSO.FolderExists(pPath) Then
Result = GetDiff(FSO.GetFolder(pPath), pMode)
With FSO.GetFolder(pPath)
For Each F In .Files
Diff = Result(F, pMode)
If Diff < Result Then Result = Diff
Next
If UseFolderRecursion Then
For Each F In .SubFolders
Diff = Result(F, pMode)
If Diff < Result Then Result = Diff
Next
End If
End With
ElseIf FSO.FileExists(pPath) Then
Result = GetDiff(FSO.GetFile(pPath), pMode)
End If
End Function
Function GetDiff(pObj, pMode)
Dim lDate
With pObj
Select Case pMode
Case 1 lDate = .DateCreated
Case 2 lDate = .DateLastModified
Case 3 lDate = .DateLastAccessed
End Select
End With
GetDiff = DateDiff("n", lDate, Now)
End Function
|
В script.ini в соответствующей секции должно быть:
| Code: | LongName=1
ParseDirs=1 |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
