fx21
|
Posted: Fri Oct 10, 2008 05:33 Post subject: |
|
|
Спасибо товарищи! разобрался. ищу все вронги а потом с помощью скрипта:
' 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 , выделяю все каталоги
пс. отличный скрипт авторам спасибо!! |
|