View previous topic :: View next topic |
Author |
Message |
RaY_BY
Joined: 01 Feb 2005 Posts: 14
|
(Separately) Posted: Tue Feb 08, 2005 12:05 Post subject: Кнопка спец копирования |
|
|
Как сделать так, чтобы при нажатиии на кнопку на панели инструментов выделенный файл (или лучше файлы) копировались на другую панель в папку которая будет создаваться и иметь такое же название как и сам файл (можно без расширения) ?
Например файл test.exe при нажатии на кнопку копировался бы на другую панель в /TEST/test.exe ?
можно ли такое сделать средствами ТС ? или с применением батника? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
(Separately) Posted: Wed Feb 09, 2005 17:24 Post subject: |
|
|
RaY_BY
Установи себе TCWSHelp от Volniy. Создай файлик *.vbs со следующим кодом:
Code: | 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.
И будет тебе Щастье |
|
Back to top |
|
|
RaY_BY
Joined: 01 Feb 2005 Posts: 14
|
(Separately) Posted: Sat Mar 05, 2005 05:24 Post subject: |
|
|
Работает....странно...СПАСИБО=)! |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
(Separately) Posted: Sat Mar 05, 2005 13:43 Post subject: |
|
|
Неужели?! |
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Mon Mar 14, 2005 17:39 Post subject: |
|
|
TCWSHelp
Чегой-то не нашёл, где скачать, а?
Мене тоже это надо! |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Wed Mar 23, 2005 04:05 Post subject: |
|
|
Скачал ещё 21 марта, скачал также с мелкомягких script98 и script2000XP.
Пока них... не понял, хотя в VB плаваю, как акула.
Хелпов в них нема, где можно взять, лучше аглицкие? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
|
Back to top |
|
|
Pusher
Joined: 21 Mar 2005 Posts: 16 Location: Ялта
|
(Separately) Posted: Fri Apr 01, 2005 14:24 Post subject: |
|
|
Зачем всё настолько усложнять?
Кнопка:
команда xcopy или что то подобное
параметры /i %P%N %T%N\%N
зы. /i означает что второй параметр-имя файла а не имя папки-приёмника.
зызы.
если хочешь чтобы в папка была как имя файла без расширения, нужно:параметры /i %P%N %T%O\%N |
|
Back to top |
|
|
VKZ
Joined: 01 Apr 2005 Posts: 10
|
(Separately) Posted: Fri Apr 01, 2005 15:11 Post subject: |
|
|
Батя, большое спасибо... этот скрипт и TCWSHelp - вещь интересная правда тока пока не знаю как её пременить... но сама новая возможность TC меня радует. Обязательно придумаю как эту фичу использовать. Спасибо. |
|
Back to top |
|
|
|