Flasher
|
 Posted: Fri Oct 21, 2011 17:52 Post subject: |
 |
|
Пусть ещё облегчённый вариант будет:
| Code: | ' Cоздать указанное число копий для каждого выделенного элемента
' Параметры: %L "<путь назначения>"
' Пример: %L "%P"
'===============================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
L = vbNewLine
Count = InputBox(L&L&L&L&"Введите число создаваемых копий" & L &_
"для каждого элемента списка :", " Создание копий выделенных элементов")
If IsNumeric(Count) Then
For Each F in Split(CreateObject("Scripting.FileSystemObject")._
OpenTextFile(WScript.Arguments(0)).ReadAll, L)
If F > vbNullString Then
For n = 1 To Abs(Count)
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere F, 8
Next
End If
Next
End If |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
