View previous topic :: View next topic |
Author |
Message |
GGS
Joined: 02 May 2009 Posts: 322
|
(Separately) Posted: Fri May 22, 2009 14:05 Post subject: |
|
|
Batya wrote: | Создаем vbs-скрипт |
Тема не по скриптам, а по кнопкам к TC (и, желательно, без плагинов)
В качестве %ComSpec% может быть Command.com (получим облом).
Уж лучше задать явно. |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Fri May 22, 2009 15:35 Post subject: |
|
|
GGS wrote: | Тема не по скриптам, а по кнопкам к TC (и, желательно, без плагинов) |
Плагины здесь совершенно не при чем.
А если ты читал тему, то должен был обратить внимание, что здесь приведено достаточно много vbs-скриптов.
Скрипты по принципу использования ничем не отличаются от батников. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
GGS
Joined: 02 May 2009 Posts: 322
|
(Separately) Posted: Fri May 22, 2009 16:31 Post subject: |
|
|
Batya wrote: | А если ты читал тему, то должен был обратить внимание, что здесь приведено достаточно много vbs-скриптов.
Скрипты по принципу использования ничем не отличаются от батников. |
Вот именно. Получается обсуждение скриптов и батников, а не, собственно, кодов кнопок.
Я не против этого, но хотелось сделать код (скрипт) в одну строчку, чтобы получилась самодостаточная кнопка, а не сыылка на стороннюю "примочку".
P.S. vbs-скрипты и .cmd безусловно нужны и решают задачи, порою, гораздо эффективнее, но это уже другой подход. |
|
Back to top |
|
|
_D_V_S_
Joined: 31 Jan 2009 Posts: 35
|
(Separately) Posted: Sun May 24, 2009 03:45 Post subject: |
|
|
Народ, а как сделать чтобы ваш скрипт на создание каталога не только его создавал, но и открывал-бы сразу? Удобнейшая кнопка на самом деле Ещё-бы новыйй каталог открытым бы на свет божий появлялся )))) |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Sun May 24, 2009 22:50 Post subject: |
|
|
_D_V_S_
а указать чем?
открывать можно тоталом или проводником
да и зачем это надо?
неужели так трудно нажать на папку? _________________ |
|
Back to top |
|
|
_D_V_S_
Joined: 31 Jan 2009 Posts: 35
|
(Separately) Posted: Mon May 25, 2009 06:11 Post subject: |
|
|
LocKtaR-o-DarK wrote: | _D_V_S_
а указать чем?
открывать можно тоталом или проводником
да и зачем это надо?
неужели так трудно нажать на папку? |
Так и создать новый каталог можно руками от начала до конца. Хоть старым добрым МэйкДиром (MD). И глазами посмотреть имя его, и при совпадении - руками-же переименовать. Однако, кнопка эта сильно облегчает
А открытым его (мне) желательно наблюдать - потому что можно нажав на одну (!) кнопку, в соседней панели попадать в пустую папку. Конечно можно и нажать на ЕНТЕР , предварительно перейдя в эту панель и установив курсор на новом каталоге Не трудно совсем. Только долго это.
PS Если трудно сделать - к чему столько эмоций? Извините за просьбу... |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon May 25, 2009 10:51 Post subject: |
|
|
_D_V_S_ wrote: | Народ, а как сделать чтобы ваш скрипт ... |
Вообще-то, не понятно, почему обращение к народу, у скрипта есть конкретный автор
Если речь о последнем приведенном здесь скрипте, то вот то, что ты хочешь:
Code: | Option Explicit
Dim FSO, WSH, NewName
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
NewName = NextName(WScript.Arguments(0))
FSO.CreateFolder(NewName)
WSH.Run """%Commander_Path%\Totalcmd.exe"" /O /S /L=""" & NewName & """" , 7, True
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit
Function NextName(pName)
Dim lCurrentFolder, lPath, k
lCurrentFolder = WSH.CurrentDirectory & "\"
lPath = lCurrentFolder & pName
If Not FSO.FolderExists(lPath) Then
NextName = lPath
Exit Function
End If
k = 1
Do
lPath = lCurrentFolder & pName & " " & k
k = k + 1
Loop While FSO.FolderExists(lPath)
NextName = lPath
End Function |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Scorpkoms
Joined: 31 Mar 2008 Posts: 27 Location: Россия
|
(Separately) Posted: Mon May 25, 2009 11:08 Post subject: |
|
|
Доброго времени!
Подскажите пожалуйста,почему безопасное извлечение устройств
не работает на внешнем жестком диске,что нужно изменить?
Спасибо. |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Mon May 25, 2009 13:21 Post subject: |
|
|
_D_V_S_, дело не в эмоциях, просто интересно было узнать применение
ну раз надо, значит надо
Code: | TOTALCMD#BAR#DATA
cmd
/c if /i not exist "Каталог" (md "Каталог"&totalcmd /o /s /l="%PКаталог"&exit) else for /l %%a in (2,1,999) do if /i not exist "Каталог%%a" (md "Каталог%%a"&totalcmd /o /s /l="%PКаталог%%a"&exit)
totalcmd.exe,1
Создание папки
1 |
если в %path% отсутствует %commander_path%
Code: | TOTALCMD#BAR#DATA
cmd
/c if /i not exist "Каталог" (md "Каталог"&%%commander_path%%\totalcmd /o /s /l="%PКаталог"&exit) else for /l %%a in (2,1,999) do if /i not exist "Каталог%%a" (md "Каталог%%a"&%%commander_path%%\totalcmd /o /s /l="%PКаталог%%a"&exit)
totalcmd.exe,1
Создание папки
1 |
Scorpkoms, в первом посте темы написано ее предназначение
там же указано, где можно пофлеймить _________________
Last edited by LocKtaR-o-DarK on Wed May 27, 2009 00:33; edited 2 times in total |
|
Back to top |
|
|
_D_V_S_
Joined: 31 Jan 2009 Posts: 35
|
(Separately) Posted: Mon May 25, 2009 17:04 Post subject: |
|
|
Batya wrote: | Если речь о последнем приведенном здесь скрипте, то вот то, что ты хочешь:
...... код ......
|
Спасибище! Это именно то, что было нужно! Работает как надо.
LocKtaR-o-DarK wrote: | _D_V_S_, дело не в эмоциях, просто интересно было узнать применение
ну раз надо, значит надо
...... код ......
|
Спасибо! Но - приведённая кнопка работает только если в активной панели открыт каталог с Тоталом (может надо в системе прописать какие переменные окружения?) - создаёт каталог, открывает его, и если дальше её запускать - в нем уже создаются каталоги без открытия (потому что дальнейшие создаются уже в открытом новом каталоге, т.е. не в Тоталовском) И работает интересно - (если открыт и активен каталог Тотала) создаёт новый каталог и открывает его всегда в левой панели. Немного сумбурно описание получилось ...Так было и задумано? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon May 25, 2009 17:30 Post subject: |
|
|
_D_V_S_ wrote: | Но - приведённая кнопка работает только если в активной панели открыт каталог с Тоталом |
Нужно в кнопке LocKtaR-o-DarK wrote: | totalcmd/o "%PКаталог" | заменить на Code: | "%%Commander_Path%%\Totalcmd.exe" /O /S /L="%PКаталог" | и LocKtaR-o-DarK wrote: | totalcmd/o "%PКаталог%%a" | заменить на Code: | "%%Commander_Path%%\Totalcmd.exe" /O /S /L="%PКаталог%%a" |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Mon May 25, 2009 18:56 Post subject: |
|
|
_D_V_S_
да, попробуй как рекомендует Batya
это обеспечит полную портативность кнопки
поправил код
или добавь в %path% %commander_path%
у меня это давно сделано, поэтому уже как само собой разумеющееся использую
Batya
/S /L=
для чего нужны эти ключи применительно к конктретной задаче? _________________ |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Mon May 25, 2009 23:29 Post subject: |
|
|
LocKtaR-o-DarK wrote: | /S /L=
для чего нужны эти ключи применительно к конктретной задаче? |
Дык, почитай хэлп. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
_D_V_S_
Joined: 31 Jan 2009 Posts: 35
|
(Separately) Posted: Tue May 26, 2009 01:12 Post subject: |
|
|
Batya wrote: |
Нужно в кнопке
......
|
Всё заработало! Спасибо!
PS А вопрос можно? А зачем писать скрипт на WSH, когда гораздо компактнее получается всё вместе в виде кнопки? Чтобы не только из-под Тотала работало? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue May 26, 2009 09:30 Post subject: |
|
|
_D_V_S_
Писать скрипт или сценарий иногда гораздо выгоднее, чем все просто прописать в кнопке. Например, в твоем случае, если использовать скрипт, то очень просто менять имя создаваемого каталога, изменив параметр вызова скрипта, а не править кнопку в 6-ти местах с риском ошибиться, удалив лишний символ.
К тому же в скрипте\сценарии код написан в несколько строк в виде некой структуры, что облегчает чтение и редактирование кода.
Явное отличие скрипта от сценария - при использовании скрипта не вызывается консоль, и скрипт выполняет действие без лишних окон.
_D_V_S_ wrote: | Чтобы не только из-под Тотала работало? |
Да, дейтсвительно, скрипты\сценарии можно вызывать откуда угодно. Главное - правильно передать параметры. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|