Flasher
|
 Posted: Sun Oct 09, 2011 01:35 Post subject: |
 |
|
cojoc
Не знаю, как насчёт кнопки (пусть Tol!k при желании напишет), я могу только скрипт предложить:
| Code: | ' Копировать в другую панель
' выделенное в папку с именем активной
' Параметры: %L "%P" "%T"
'======================================
With WScript.Arguments
L = .Item(0)
P = .Item(1)
T = .Item(2)
End With
With CreateObject("Scripting.FileSystemObject")
Trg = T & .GetFileName(P)
If Not .FolderExists(Trg) Then .CreateFolder Trg
Set TF = .OpenTextFile(L, 1)
Do While Not TF.AtEndOfStream
F = TF.ReadLine
If F > vbNullString Then
If .FolderExists(F) Then
.GetFolder(F).Copy Trg & "\"
Else .GetFile(F).Copy Trg & "\"
End If
End If
Loop
TF.Close
End With |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
