Batya
|
 Posted: Fri Mar 17, 2006 12:41 Post subject: |
 |
|
Againster
Если имена у файлов-дубликатов совпадают, могу предложить следующий скрипт:
| Code: | Dim ListFile, FSO, TCS, StreamFile
ListFile = Wscript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set StreamFile = FSO.OpenTextFile(ListFile, 1)
Dim FileName1, FileName2
FileName1 = ""
Do While Not StreamFile.AtEndOfStream
SelFile = StreamFile.ReadLine
FileName2 = FSO.GetFile(SelFile).Name
If FileName1 = FileName2 Then
FSO.OpenTextFile(ListFile & "_", 8, True).WriteLine SelFile
End If
FileName1 = FileName2
Loop
StreamFile.Close
TCS.SendCommand "cm_LoadSelectionFromFile"
TCS.SendKeystroke ListFile & "_" & "{ENTER}"
FSO.DeleteFile(ListFile & "_")
Set FSO = Nothing
Set TCS = Nothing
Set StreamFile = Nothing
WScript.Quit() |
Для скрипта необходим Script Helper.
Как с этим работать...
Создать файл *.vbs с указанным кодом. Повесить файл на кнопку. В параметрах кнопки прописать %L. После выполнения поиска дубликатов нажать "Файлы на панель". Затем выделить все файлы. Нажать кнопку. Будут выделены все файлы в группе дубликатов, кроме первого. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
