Volniy
|
 Posted: Sat Sep 20, 2008 02:26 Post subject: |
 |
|
Вот такой скрипт создаст файл-список папок, в которых расположены выделенные в текущей панели файлы:
| Code: | ' File: ListOfPaths.vbs
' Description: Создает файл со списком имен папок для выделенных файлов
' Installation: Создайте кнопку на панели TC
' Команда: "диск:\путь\к\файлу\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 |
Ну, а дальше можно использовать или копирование списка в буфер и команду Вставить выделение из буфера, или команду Загрузить выделение из файла.... |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
