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 

Single Post  Topic: Ввод в "Место поиска:" нескольких каталогов 
Author Message
Batya



PostPosted: Wed Sep 23, 2009 15:23    Post subject: Reply with quote

sa wrote:
Может сценарий тоже можно "прикрутить" к дереву каталогов, а не к файловой панели, чтобы вызывать его не несколько раз, а однократно?

Code:
'===========================================================
' Помещает в буфер обмена строки из файла-списка,
' переданного первым параметром, как единую строку
' разделенную значением второго параметра
'===========================================================
Option Explicit
Dim TCS, FSO
Set TCS = CreateObject("TCSCRIPT.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
TCS.SetTextToClip Replace(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine, WScript.Arguments(1))
Set TCS = Nothing
Set FSO = Nothing

Для данного случая параметры:
Code:
%L ;

_________________
Нет, я не сплю. Я просто медленно моргаю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group