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

Материал из TCKB 2.0

Перейти к: навигация, поиск
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

Личные инструменты
Реклама
electracop
matsur.com
Обеспечение офиса. Продажа кофемашин Saeco и Jura, кофе, чая, аксессуаров
coffos.ru
Магазины запчастей для ВАЗ. Запчасти для иномарок
msiparts.com.ua