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: Вопрос о crc-чеке 
Author Message
fx21



PostPosted: Fri Oct 10, 2008 05:33    Post subject: Reply with quote

Спасибо товарищи! разобрался. ищу все вронги а потом с помощью скрипта:

' File: ListOfPaths.vbs
' Description: Создает файл со списком имен папок для выделенных файлов
' Installation: Создайте кнопку на панели TC
' Команда: "e:\Install\tcmd\ListOfPaths.vbs"
' Параметры: "%L"
' (c)2008, Volniy

Option Explicit
Dim FSO, ListFile, Dic,p, z

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dic = CreateObject("Scripting.Dictionary")

Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not ListFile.AtEndOfStream
p=FSO.GetFileName(FSO.GetParentFolderName(ListFile.ReadLine))
If Dic.Exists(p) =False Then dic.Add p,""
Loop

ListFile.Close : Set ListFile = Nothing
Set ListFile = FSO.OpenTextFile("c:\listofpaths.txt", 2,-1)

For Each z In Dic.Keys: ListFile.WriteLine z & "\": Next
ListFile.Close : Set ListFile = Nothing
Set FSO = Nothing
Set Dic = Nothing
WScript.Quit:D Very Happy , выделяю все каталоги

пс. отличный скрипт авторам спасибо!!
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group