aLexx
|
 Posted: Sun Jun 24, 2007 22:32 Post subject: |
 |
|
Очень долгое время пользуюсь скриптом от Volniy для маркировки файлов через один (зеброй).
Но меня очень выламывало перед вызовом этого скрипта выделять всё, а уж потом запускать его.
Творчески подойдя к процессу, слегка переделал этот скрипт.
| Code: |
' File: ZebraMark.vbs
' Description: Помечает все файлы и каталоги через один.
' Requirements: WSH Helper for TC by Volniy
' Copyright: (c) 2007, Volniy, aLexx
Option Explicit
Dim FSO, ListFile, SelFile, TCS
Dim File1, File2, Cnt, Buf
Const ForWriting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand ("cm_SelectAll") 'Выбрать всё
TCS.SendCommand ("cm_CopyFullNamesToClip") 'Копируем в буфер
Set ListFile = FSO.OpenTextFile("1.txt", ForWriting, True) 'Сохраняем в файл
ListFile.Write TCS.GetTextFromClip
ListFile.Close
Set ListFile = FSO.OpenTextFile("1.txt", 1)
Do While Not ListFile.AtEndOfStream
SelFile = ListFile.ReadLine
Cnt = Cnt + 1
File2 = FSO.GetFileName(SelFile)
If Cnt Mod 2 = 0 Then
Buf = Buf & SelFile & vbNewLine
End If
Loop
ListFile.Close
TCS.ClearClip
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True
FSO.DeleteFile("1.txt")
Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
MsgBox "Выделено ""зеброй"":): " & Cnt \ 2 & " файлов и каталогов.", vbInformation, "Завершено!"
WScript.Quit
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
