aLexx
|
 Posted: Mon Jun 25, 2007 13:15 Post subject: |
 |
|
Красава! А сразу нельзя было так сделать? 
Зато вот этот кусок из моего скрипта можно использовать для записи выделения
(без содержания вложенных папок) в текстовый файл:
| Code: |
' File: SaveMark.vbs
' Description: Сохраняет выделение в файл. Параметром идёт имя файла.
' Requirements: WSH Helper for TC by Volniy
' Copyright: (c) 2007, aLexx
Option Explicit
Dim FSO, TCS, ListFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
If WScript.Arguments.Count > 0 Then
TCS.SendCommand ("cm_CopyFullNamesToClip") 'Копируем выделение в буфер
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 2, True) 'Сохраняем в файл
ListFile.Write TCS.GetTextFromClip
ListFile.Close
End If
Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
WScript.Quit
|
Это только пинок для творчества. Можно добавить, куда сохранять получаемый текстовый файл
(даже вторым параметром), можно сделать имя файла по имени каталога и т.д. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
