Total Commander

Код: Выделить всё

 ' File: SelNotFirst.vbs
' Description: Удаляет все парные файлы кроме первого
' из списка, созданного поиском дубликатов в ТС
' Installation: Создайте кнопку на панели TC
' Команда: "диск:\путь\к\файлу\SelNotFirst.vbs"
' Параметры: "%L"
' Copyright: (c) 2006, Volniy

Option Explicit
Dim FSO, ListFile, SelFile, TCS
Dim File1, File2, Cnt, Buf
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not ListFile.AtEndOfStream
SelFile = ListFile.ReadLine
File2 = FSO.GetFileName(SelFile)
If StrComp(File1, File2, 1) = 0 Then
Buf = Buf & SelFile & vbNewLine
Cnt = Cnt + 1
End If
File1 = File2
Loop
ListFile.Close
TCS.ClearClip
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True
Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
MsgBox "Выделено дубликатов: " & Cnt, vbInformation, "Завершено!"
WScript.Quit 

Код: Выделить всё

Option Explicit 
Dim FSO, ListFile, SelFile, TCS 
Dim File1, File2, Cnt, Buf 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set TCS = CreateObject("TCScript.Helper") 
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 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 
Set ListFile = Nothing 
Set FSO = Nothing 
Set TCS = Nothing 
MsgBox "Выделено ""зеброй"":): " & Cnt \ 2 & " файлов", vbInformation, "Завершено!" 
WScript.Quit

Код: Выделить всё

'=====================[ Start of file ]========================= 

'  File:         SelNotFirstFileSize.vbs 
'  Description:  Выделяет все парные файлы, кроме первого, в списке, 
'                созданном поиском дубликатов ПО РАЗМЕРУ ФАЙЛА 
'  Installation: Создайте кнопку на панели TC 
'                Команда: "диск:\путь\к\файлу\SelNotFirstFileSize.vbs" 
'                Параметры: "%L"
'  Copyright:    (c) 2007, Volniy 

Option Explicit
Dim FSO, ListFile, SelFile,TCS
Dim Cnt, Buf, FileSize1, FileSize2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
FileSize1 = -1
Do While Not ListFile.AtEndOfStream
  Set SelFile = FSO.GetFile(ListFile.ReadLine)
  FileSize2 = SelFile.Size
  If FileSize2 = FileSize1 Then
     Buf = Buf & SelFile & vbNewLine
     Cnt = Cnt + 1
  End If
  FileSize1 = FileSize2
Loop
ListFile.Close
TCS.SetTextToClip CStr(Buf)
TCS.SendCommand "cm_LoadSelectionFromClip", True
'TCS.SendCommand "cm_Delete", True
Set SelFile = Nothing
Set ListFile = Nothing
Set FSO = Nothing
Set TCS = Nothing
MsgBox "Выделено дубликатов: " & Cnt, vbInformation, "Завершено!"
WScript.Quit

'=====================[  End of file  ]=========================

Код: Выделить всё

@echo off &setlocal enableextensions &chcp 1251 >nul
rem Удаление дубликатов по хешу
rem Параметры: D:\папка
rem Автор: Tol!k
rem Используется RHash http://rhash.anz.ru/

set "folder=%~1"
if "%folder:~-1%"=="\" set "folder=%folder:~0,-1%"

set "hash="
for /f "tokens=1,*" %%a in (
'rhash.exe -M -r --ansi "%folder%" ^|sort'
) do call :dd "%%a" "%%b"
goto :eof

:dd
if "%hash%" == "%~1" (attrib -h %2 &del /q %2)
set "hash=%~1"
goto :eof