Flasher
|
 Posted: Thu Dec 25, 2014 00:03 Post subject: |
 |
|
KatMuse
Но всё же хэши желательно чем-то (например, инструментом ТС) проверять на автомате, а тут получается просто чтение информации. Разве это удобно?
Прежде покажу vbs-вариант без хэша (а после выяснения надобности выберем вариант):
| Code: | '=========================================================
' Создать текстовые инфо-файлы к выбранным
' Параметры: %WL "<папка сохранения>" <открывать файлы: 1>
' Пример: %WL "%T" 1
'=========================================================
With WScript.Arguments
C = .Count : If C = 0 Then WScript.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHA = CreateObject("Shell.Application")
Set List = FSO.OpenTextFile(.Item(0),,,-1)
Path = FSO.BuildPath(.Item(1), "\") : If C = 3 Then Open = .Item(2)
End With
Do Until List.AtEndOfStream
F = List.ReadLine
If F <> "" And FSO.FileExists(F) And LCase(FSO.GetExtensionName(F)) <> "txt" Then
With FSO.GetFile(F)
Set Folder = SHA.NameSpace(.ParentFolder.Path)
All = "" : Set File = Folder.ParseName(.Name)
End With
For i = 0 to 288
Value = Folder.GetDetailsOf(File, i) : If Value <> "" Then _
All = All & vbNewLine & Folder.GetDetailsOf(0, i) & ": " & Value
Next : NF = Path & FSO.GetBaseName(F) & ".txt" : If Not FSO.FileExists(NF) Then _
FSO.OpenTextFile(NF, 2, True, -1).Write Mid(All, 3) : If Open = 1 Then SHA.Open(NF)
End If
Loop |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Fri Dec 26, 2014 10:40; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
