Flasher
|
 Posted: Thu Feb 19, 2015 02:12 Post subject: |
 |
|
| Code: | '================================================================
' Создать список из выбранных файлов по шаблону:
' <текст сверху> + <имя файла (размер)> + <текст снизу>
' Параметры: %WL "<путь получателя>" "<базовое имя нового файла>"
'================================================================
With WScript.Arguments
C = .Count : If C = 0 Then WScript.Quit
If C <> 3 Then MsgBox "Следует указать 2 параметра!", 48,_
Space(12) & "Ошибка вводных данных" : WScript.Quit : End If
List = .Item(0) : Path = .Item(1) : Name = .Item(2)
End With : NL = vbNewLine : Set Shell = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
Path = .BuildPath(Path, "\") : Set List = .OpenTextFile(List,,,-1)
Do : F = List.ReadLine : FN = .GetFileName(F)
Set Fd = Shell.NameSpace(.GetParentFolderName(F))
S = S & NL & FN & " (" & Fd.GetDetailsOf(Fd.ParseName(FN), 1) & "),"
Loop Until List.AtEndOfStream : NP = Name & ".txt" : i = 0
While (.FileExists(Path & NP) OR .FolderExists(Path & NP))
i = i + 1 : NP = Name & " (" & i & ").txt" : Wend
.OpenTextFile(Path & NP, 2, True, -1).Write _
"постоянная cтрока 1" & NL &_
"постоянная строка 2" & NL &_
Mid(S, 3, Len(S) - 3) & NL &_
"постоянная строка 3" & NL &_
"постоянная строка 4" & NL & NL &_
"постоянная строка 5" & NL & NL &_
"постоянная строка 6"
End With
With CreateObject("WScript.Shell")
If Path <> Fd.Self.Path & "\" Then .SendKeys "{TAB}"
.Exec """%COMMANDER_EXE%"" /S /O /L=""" & Path & NP & "\:"""
End With |
Заодно см. сюда.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Feb 19, 2015 20:43; edited 5 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
