Total Commander

[fx21]

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

' 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 , выделяю все каталоги

пс. отличный скрипт авторам спасибо!!