Flasher
|
 Posted: Sun Jul 03, 2011 06:21 Post subject: |
 |
|
Скрипт vbs: | Code: | ' Создание в папке с файлом под курсором его копий с именами из файла-списка
' Параметры: "%N" "<Путь к файлу со списком имён>"
'======================================================
With CreateObject("WScript.Shell")
L=.ExpandEnvironmentStrings(WScript.Arguments(1))
D=.CurrentDirectory
End With
With CreateObject("Scripting.FileSystemObject")
List=.OpenTextFile(L, 1).ReadAll
For Each F In Split(List, vbNewLine)
If F>vbNullString Then .GetFile(WScript.Arguments(0)).Copy D _
& "\" & F & "." & .GetExtensionName(WScript.Arguments(0))
Next
End With |
Пример кнопки: | Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Scripts\CreateCopiesWithNamesFromList.vbs
"%N" "%%COMMANDER_PATH%%\Scripts\List.txt"
wcmicons.dll,62
Создание копий файла с именами из файла-списка |
| midasinc wrote: | | Теперь еще придется искать что такое WHS, вдруг правда отключен. |
WSH. По умолчанию включён.
Last edited by Flasher on Sun Jul 03, 2011 14:47; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
