Копирование в каталог с именем файла
Материал из TCKB 2.0
Q: Как сделать так, чтобы, при нажатии на кнопку в панели инструментов, выделенный файл (или лучше файлы) копировались на другую панель, в папку которая будет создаваться и иметь такое же название как и сам файл (можно без расширения)?
Например файл test.exe при нажатии на кнопку должен копироваться на другую панель в /TEST/test.exe.
A: Установи себе TCWSHelp от Volniy. Создай файлик *.vbs со следующим кодом:
Повесь этот файл на кнопку, и в параметрах пропиши %L.
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
