Копирование в каталог с именем файла

Q: Как сделать так, чтобы, при нажатии на кнопку в панели инструментов, выделенный файл (или лучше файлы) копировались на другую панель, в папку которая будет создаваться и иметь такое же название как и сам файл (можно без расширения)?
Например файл test.exe при нажатии на кнопку должен копироваться на другую панель в /TEST/test.exe.


A: Установи себе TCWSHelp от Volniy. Создай файлик *.vbs со следующим кодом:

Dim TCS, FSO, TempFile, SelFile
Set TCS = CreateObject("TCScript.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")

Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

TCS.SendCommand(2030)
TrgPath = TCS.GetTextFromClip

Do While Not TempFile.AtEndOfStream
Set SelFile = FSO.GetFile(TempFile.ReadLine)
FileName = SelFile.Name
DotInName = InstrRev(FileName, ".")
If DotInName <> 0 Then
FileName = Left(FileName, DotInName - 1)
End If
If Not FSO.FolderExists(TrgPath & "\" & FileName) then
FSO.CreateFolder(TrgPath & "\" & FileName)
End If
FSO.CopyFile SelFile, TrgPath & "\" & FileName & "\"
Loop
  
Повесь этот файл на кнопку, и в параметрах пропиши %L.

Batya