Batya
|
 Posted: Mon Feb 27, 2006 18:02 Post subject: |
 |
|
Итак 2 файла *.vbs (имена любые).
CopyInList.vbs:
| Code: | CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 8, True).WriteLine Wscript.Arguments(1) |
CopyFromList.vbs:
| Code: | Dim ListFile, FSO, TargetDir
Set ListFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 1)
Set FSO = CreateObject("Scripting.FileSystemObject")
TargetDir = InputBox("Копировать в каталог:","Копирование",Wscript.Arguments(1))
If Len(TargetDir) > 0 Then
Dim SelFile
Do While Not ListFile.AtEndOfStream
SelFile = ListFile.ReadLine
If FSO.FileExists(SelFile) Then
FSO.CopyFile SelFile, TargetDir
End IF
Loop
End If
Set ListFile = Nothing
Set FSO = Nothing |
Сделать 2 кнопки:
| Code: | TOTALCMD#BAR#DATA
d:\CopyInList.vbs
d:\MyList.lst %P%N
shell32.dll,65
2
-1 |
| Code: | TOTALCMD#BAR#DATA
d:\CopyFromList.vbs
%P%N %T
shell32.dll,66
3
-1
|
Здесь d:\MyList.lst - заполняемый файл-список - может быть любое имя и расширение. Если его нет, то создается. Соответственно пути к скриптам и к файлу-списку свои, иконки тоже.
Как работает... В ТС становишься на нужный файл и нажимаешь 1-ую кнопку. Он заносится в файл-список.
Когда все собрал, становишься на файл-список, открываешь в противоположной панели ТС каталог назначения и нажимаешь вторую кнопку. После этого остается только вручную обновить панель назначения в ТС. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
