Flasher
|
 Posted: Mon Jun 17, 2013 12:48 Post subject: |
 |
|
Можно попробовать: | Code: | '=================================================================
' Заменить время модификации выбранных файлов с учётом счётчика
' на конце их имён по шаблону: <имя файла>№ >> <час>:<мин: № - 1>
' Параметр: %WL
'=================================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
Set Shell = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
For Each F in Split(.GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
If F <> "" Then
If .FileExists(F) Then
BN = .GetBaseName(F) : Rev = StrReverse(BN)
Set Fd = Shell.NameSpace(.GetParentFolderName(F))
Set Fl = Fd.ParseName(.GetFileName(F))
For i = 1 To Len(BN)
If Not IsNumeric(Mid(Rev, i, 1)) Then Exit For
Next
If i > 1 Then
o = Right(BN, i - 1) : m = Fix(o) - 1
If m > 59 Then h = Fix(m/60) : m = m-h*60 : End If
If m < 10 Then m = "0" & m
If h > 23 Then h = h - Fix(h/24)*24
If h = 0 Then h = "00"
If h < 12 Then HS = "AM" Else HS = "PM"
If Len(h) = 1 And Fix(h) < 10 Then h = "0" & h
Fl.ModifyDate = DateValue(Fl.ModifyDate) & " " & h & ":" & m & ":00 " & HS
End If
End If
End if
Next
End With |
У меня почему-то DateLastModified/ModifyDate выдают разницу в час в сравнении с атрибутами, что показывает ТС и система..
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
