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
Volniy
PostPosted: Sun Nov 02, 2008 02:25    Post subject: Reply with quote
Lev
Прикольный эффект Wink
Ну, уж если использовать Helper, тогда уж лучше будет вот так:
Code:
'selector+.vbs

Const NumbFiles = 20000 ' Число выделяемых файлов
Dim Files, TCS, Selection
Set TCS = CreateObject("TCScript.Helper")

TCS.Wait = True
TCS.Sendcommand 3302
Files = TCS.GetSrcSelectedFiles(False)
ReDim Preserve Files(NumbFiles - 1)
Selection = Join(Files,vbCrLf)
TCS.SetTextToClip CStr(Selection)
TCS.Sendcommand 2033

Set TCS = Nothing
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group