Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Обмен кнопками
Goto page Previous  1, 2, 3 ... 19, 20, 21 ... 43, 44, 45  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы printer-friendly view
View previous topic :: View next topic  
Author Message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Fri May 22, 2009 14:05    Post subject: Reply with quote

Batya wrote:
Создаем vbs-скрипт

Тема не по скриптам, а по кнопкам к TC (и, желательно, без плагинов) Wink

В качестве %ComSpec% может быть Command.com (получим облом).
Уж лучше задать явно.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Fri May 22, 2009 15:35    Post subject: Reply with quote

GGS wrote:
Тема не по скриптам, а по кнопкам к TC (и, желательно, без плагинов)

Плагины здесь совершенно не при чем.
А если ты читал тему, то должен был обратить внимание, что здесь приведено достаточно много vbs-скриптов.
Скрипты по принципу использования ничем не отличаются от батников.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Fri May 22, 2009 16:31    Post subject: Reply with quote

Batya wrote:
А если ты читал тему, то должен был обратить внимание, что здесь приведено достаточно много vbs-скриптов.
Скрипты по принципу использования ничем не отличаются от батников.

Вот именно. Получается обсуждение скриптов и батников, а не, собственно, кодов кнопок.
Я не против этого, но хотелось сделать код (скрипт) в одну строчку, чтобы получилась самодостаточная кнопка, а не сыылка на стороннюю "примочку".

P.S. vbs-скрипты и .cmd безусловно нужны и решают задачи, порою, гораздо эффективнее, но это уже другой подход.
Back to top
View user's profile Send private message
_D_V_S_



Joined: 31 Jan 2009
Posts: 35

Post (Separately) Posted: Sun May 24, 2009 03:45    Post subject: Reply with quote

Народ, а как сделать чтобы ваш скрипт на создание каталога не только его создавал, но и открывал-бы сразу? Удобнейшая кнопка на самом деле Smile Ещё-бы новыйй каталог открытым бы на свет божий появлялся ))))
Back to top
View user's profile Send private message
LocKtaR-o-DarK



Joined: 12 Aug 2005
Posts: 349
Location: Москва

Post (Separately) Posted: Sun May 24, 2009 22:50    Post subject: Reply with quote

_D_V_S_
а указать чем?
открывать можно тоталом или проводником
да и зачем это надо?
неужели так трудно нажать на папку?
_________________
        
Back to top
View user's profile Send private message
_D_V_S_



Joined: 31 Jan 2009
Posts: 35

Post (Separately) Posted: Mon May 25, 2009 06:11    Post subject: Reply with quote

LocKtaR-o-DarK wrote:
_D_V_S_
а указать чем?
открывать можно тоталом или проводником
да и зачем это надо?
неужели так трудно нажать на папку?


Так и создать новый каталог можно руками от начала до конца. Хоть старым добрым МэйкДиром (MD). И глазами посмотреть имя его, и при совпадении - руками-же переименовать. Однако, кнопка эта сильно облегчает Smile
А открытым его (мне) желательно наблюдать - потому что можно нажав на одну (!) кнопку, в соседней панели попадать в пустую папку. Конечно можно и нажать на ЕНТЕР , предварительно перейдя в эту панель и установив курсор на новом каталоге Smile Не трудно совсем. Только долго это.

PS Если трудно сделать - к чему столько эмоций? Smile Извините за просьбу...
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Mon May 25, 2009 10:51    Post subject: Reply with quote

_D_V_S_ wrote:
Народ, а как сделать чтобы ваш скрипт ...

Вообще-то, не понятно, почему обращение к народу, у скрипта есть конкретный автор Cool
Если речь о последнем приведенном здесь скрипте, то вот то, что ты хочешь:
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
View user's profile Send private message
Scorpkoms



Joined: 31 Mar 2008
Posts: 27
Location: Россия

Post (Separately) Posted: Mon May 25, 2009 11:08    Post subject: Reply with quote

Доброго времени!
Подскажите пожалуйста,почему безопасное извлечение устройств
не работает на внешнем жестком диске,что нужно изменить?
Спасибо.
Back to top
View user's profile Send private message
LocKtaR-o-DarK



Joined: 12 Aug 2005
Posts: 349
Location: Москва

Post (Separately) Posted: Mon May 25, 2009 13:21    Post subject: Reply with quote

_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
View user's profile Send private message
_D_V_S_



Joined: 31 Jan 2009
Posts: 35

Post (Separately) Posted: Mon May 25, 2009 17:04    Post subject: Reply with quote

Batya wrote:
Если речь о последнем приведенном здесь скрипте, то вот то, что ты хочешь:
...... код ......

Спасибище! Smile Это именно то, что было нужно! Работает как надо.

LocKtaR-o-DarK wrote:
_D_V_S_, дело не в эмоциях, просто интересно было узнать применение
ну раз надо, значит надо
...... код ......

Smile Спасибо! Но - приведённая кнопка работает только если в активной панели открыт каталог с Тоталом (может надо в системе прописать какие переменные окружения?) - создаёт каталог, открывает его, и если дальше её запускать - в нем уже создаются каталоги без открытия (потому что дальнейшие создаются уже в открытом новом каталоге, т.е. не в Тоталовском) И работает интересно - (если открыт и активен каталог Тотала) создаёт новый каталог и открывает его всегда в левой панели. Немного сумбурно описание получилось Smile ...Так было и задумано?
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Mon May 25, 2009 17:30    Post subject: Reply with quote

_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
View user's profile Send private message
LocKtaR-o-DarK



Joined: 12 Aug 2005
Posts: 349
Location: Москва

Post (Separately) Posted: Mon May 25, 2009 18:56    Post subject: Reply with quote

_D_V_S_
да, попробуй как рекомендует Batya
это обеспечит полную портативность кнопки
поправил код

или добавь в %path% %commander_path%
у меня это давно сделано, поэтому уже как само собой разумеющееся использую

Batya
/S /L=
для чего нужны эти ключи применительно к конктретной задаче?
_________________
        
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Mon May 25, 2009 23:29    Post subject: Reply with quote

LocKtaR-o-DarK wrote:
/S /L=
для чего нужны эти ключи применительно к конктретной задаче?

Дык, почитай хэлп.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
_D_V_S_



Joined: 31 Jan 2009
Posts: 35

Post (Separately) Posted: Tue May 26, 2009 01:12    Post subject: Reply with quote

Batya wrote:

Нужно в кнопке
......


Всё заработало! Smile Спасибо!

PS А вопрос можно? Smile А зачем писать скрипт на WSH, когда гораздо компактнее получается всё вместе в виде кнопки? Чтобы не только из-под Тотала работало?
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue May 26, 2009 09:30    Post subject: Reply with quote

_D_V_S_
Писать скрипт или сценарий иногда гораздо выгоднее, чем все просто прописать в кнопке. Например, в твоем случае, если использовать скрипт, то очень просто менять имя создаваемого каталога, изменив параметр вызова скрипта, а не править кнопку в 6-ти местах с риском ошибиться, удалив лишний символ.
К тому же в скрипте\сценарии код написан в несколько строк в виде некой структуры, что облегчает чтение и редактирование кода.
Явное отличие скрипта от сценария - при использовании скрипта не вызывается консоль, и скрипт выполняет действие без лишних окон.

_D_V_S_ wrote:
Чтобы не только из-под Тотала работало?

Да, дейтсвительно, скрипты\сценарии можно вызывать откуда угодно. Главное - правильно передать параметры.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 19, 20, 21 ... 43, 44, 45  Next
Page 20 of 45

 
Jump to:  
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