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)
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.
