'Script for Script content Plugin
' van Dusen
' (c)Lev Freidin, 2005
' http://www.totalcmd.net/plugring/script_wdx.html
' http://wincmd.ru/plugring/script_wdx.html
Dim fso, f1, f2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(filename)
sBaseIst = lcase(fso.GetBaseName(filename))
sExtIst = lcase(fso.GetExtensionName(filename))
sDateModF1 = f1.DateLastModified
sExtSoll1 = "doc"
sExtSoll2 = "pdf"
Const ForReading = 1
SELECT Case sExtIst
Case sExtSoll1
sResult = sExtSoll2 & " - сответствующий файл"
If fso.FileExists(sBaseIst & "." & sExtSoll2) Then
Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll2)
sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
If sTimeDiff < 0 Then
sResult = "2: " & sResult & " устарел"
Else
sResult = "1: " & sResult & " свежий"
End If
sResult = sResult & " (" & sTimeDiff & " Min. Diff.)"
Else
sResult = "3: " & sResult & " отсутствует"
End If
Case sExtSoll2
If fso.FileExists(sBaseIst & "." & sExtSoll1) Then
Set f2 = fso.GetFile(sBaseIst & "." & sExtSoll1)
sTimeDiff = DateDiff("n", sDateModF1, f2.DateLastModified)
If sTimeDiff > = 0 Then
sResult = "2: Файл устарел"
Else
sResult = "1: Свежий файл"
End If
sResult = sResult & " ("& sTimeDiff & " Min. Diff.)"
Else
sResult = "3: "& sExtSoll1 &" - соответствующий файл отсутствует"
End If
Case Else
sResult = ""
End SELECT
content = sResult
Set fso=nothing
Set f1=nothing
Set f2=nothing |