Flasher
|
 Posted: Sun Oct 14, 2012 20:11 Post subject: |
 |
|
| Iori wrote: | | не создает копии сразу несколько выбранных фаилов |
Тогда так (+ работа с юникодными именами):
| Code: | ' Cоздать копию для каждого выделенного элемента
' Параметры: %WL "<путь назначения>"
' Пример: %WL "%P"
'===============================================
If WScript.Arguments.Count = 0 Then WScript.Quit
For Each F in Split(CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
If F > vbNullString Then CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere F, 8
Next |
| Iori wrote: | | из под wинпе где не инсталлированы VB библиотеки |
Там много чего не работает... |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
