recherche loiciel suprimant les doublons

[The_Bird]

Bonjour,

 

bien sûr, il faut être prudent en éliminant les doublons... Mais s'il veut faire le ménage dans tout ce qui porte l'extension mp3 ou jpg, il n'y a aucun souci...

 

En ce qui concerne "DupDetector", conseillé par Gof, il est excellent et te permet de visualiser les photos en double, te laissant le choix de celle que tu veux garder... Pour le télécharcger chez l'auteur, c'est ICI (Auteur très sympa au demeurant... Je lui ai un jour signalé un bug par mail et, non seulement il l'a corrigé très vite, mais il a pris la peine de me le signaler par mail également... Grand seigneur ) Dommage que le logiciel n'évolue plus...

 

Pour les mp3, tu pêux utiliser "dupfile", gratuit. Téléchargement ICI

 

Après il y a les excellents noClone et Duplicate File detective... Les deux sont payants, mais tu peux utiliser les versions d'essai !! DFD NoClone

 

 

Bon ménage !!!

 

Le_Bird

[pipion]

Merci à vous tous pour m'avoir aidé ainssi

Une derniére chose (car j'ai peur de faire des bétises), je peu virer tout ce qui commence par $NtUninstallKB921503$ qui se trouve dans le dossier de Windows ?

Oui car pouir la ptite histoire (je ne devrais pas le dire), la dernière fois que jai fais le ménage de primptemps, mon pc na jamais redémaré ! le truc c'est que j'avais viré le systéme d'exploitation J'ai obtenu la meidaille du boulet d'or !!!

[leujax]

Salut

 

Pour les Updates de Win ,tu as ce remarquable script concocté par le Maitre JC Bellamy (je le met in-extenso, n'ayant plus le lien sous la pogne,un peu long, je m'en excuse. :P .)

A copier/coller ds le blocnotes et renommer "deluninstall.vbs" avant de cliquer dessus..

 

 

' ----------------------------------------------------------

' Script de suppression des dossiers de désinstallation de

' hotfixes sous Windows 2000, XP, 2003 ...

'

' Syntaxe: delUninstall

'

'

' JC BELLAMY © 2003-2005

' Mises à jour :

' 16/08/2005 : ajout de la suppression des fichiers log

' ----------------------------------------------------------

On error resume next

Const SW_HIDE=0

Const SW_SHOWNORMAL=1

ColorBack="""#FFFFD8"""

BGProgressON="blue"

BGProgressOFF=ColorBack

Const HKEY_CURRENT_USER = &H80000001

const HKEY_LOCAL_MACHINE = &H80000002

Const REG_SZ = 1

Const REG_EXPAND_SZ = 2

Const REG_BINARY = 3

Const REG_DWORD = 4

Const REG_MULTI_SZ = 7

 

Dim shell,fso,oIE,NbHF,HFFolders(),HFKeys(),HFarticle()

Set shell = WScript.CreateObject("WScript.Shell")

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

 

shell.Popup "Veuillez patienter quelques instants ...",3,"Recherche des dossiers de correctif et service pack",64

' Autoriser le contenu actif à s'exécuter dans les fichiers de la zone Ordinateur local

LockDown="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\"

Keysec1=LockDown & "iexplore.exe"

Oldvalue1=shell.RegRead(Keysec1)

If Err.Number<>0 Then

Err.Clear

Oldvalue1=1

End If

shell.RegWrite Keysec1,0,"REG_DWORD"

 

Keysec2=LockDown & "Settings\LOCALMACHINE_CD_UNLOCK"

Oldvalue2=shell.RegRead(Keysec2)

If Err.Number<>0 Then

Err.Clear

Oldvalue2=0

End If

shell.RegWrite Keysec2,1,"REG_DWORD"

 

ficInit = GetPath() & "deluninstall.html"

Titre="Suppression des dossiers de désinstallation de hotfixes"

Set ts = fso.CreateTextFile(ficInit, True)

ts.writeline header

ts.writeline ScriptBtn

 

 

Windir=shell.ExpandEnvironmentStrings("%systemroot%")

Key="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

LastKey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"

ts.writeline "Dossier système : <b>" & Windir & "</b>"

ts.writeline "<hr><form name=""strategyForm"">"

ts.writeline "<table border=""1"">"

ts.writeline "<tr><td valign=""top"" bgcolor=""#C0C0C0"">Suppr.</td><td bgcolor=""#C0C0C0"">Lien MSDN</td><td bgcolor=""#C0C0C0"">Dossier</td><td bgcolor=""#C0C0C0"">Clef BDR</td></tr>"

ts.writeline "<tr><td valign=""top"" bgcolor=""#C0C0C0""><input type=""checkbox"" name=""allselect"" onClick='SetSelect()'></td>"

ts.writeline "</td><td bgcolor=""#C0C0C0"">Tout (dé)selectionner"

ts.writeline "</td><td bgcolor=""#C0C0C0""> "

ts.writeline "</td><td bgcolor=""#C0C0C0""> </td></tr>"

 

set fWindir=fso.GetFolder(Windir)

set collf=fWindir.SubFolders

Index=0

For each subf in collf

fName=subf.Name

lName=len(fName)

Uninst=false

Suffixe=""

If InStr(1,fName,"$",vbTextCompare)=1 then Suffixe=GetKeyFromFolder(fName)

If Suffixe<>"" Then

Index=Index+1

redim preserve HFFolders(Index),HFKeys(Index),HFarticle(Index)

NumArticle=""

HFFolders(Index-1)=fName

HFKeys(Index-1)=Suffixe

ts.writeline "<tr><td valign=""top"" id=""HF" & Index & """>"

ts.writeline "<input type=""checkbox"" name=""CB" & Index & """></td>"

HelpLink=Shell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & Suffixe & "\HelpLink")

If Err.number=0 Then

p=InstrRev(HelpLink,"=")

If p>0 Then NumArticle=Mid(HelpLink,p)

ts.writeline "<td><a href=""" & HelpLink & """ target=""_blank"">MSDN " & Numarticle & "</a></td>"

else

Err.Clear

ts.writeline "<td> </td>"

End If

HFarticle(Index-1)=NumArticle

ts.writeline "<td><a href=""#" & fName & """ onClick='Explore(""1"& fName & """)'>" & fName & "</a></td>"

ts.writeline "<td><a href=""#" & Suffixe & """ onClick='Explore(""2"& Suffixe & """)'>" & Suffixe & "</a></td>"

ts.writeline "</tr>"

end if

Next

NbHF=Index

ts.writeline "</table>"

ts.writeline "<input type=""button"" value=""Supprimer"" name=""B1"">"

ts.writeline "<input type=""button"" value=""Quitter"" name=""B0"">"

ts.writeline "</form>"

ts.writeline ProgressBar

ts.writeline "<font size=""1"">JCB © 2005</font>"

ts.writeline "</body></html>"

ts.close

codeRet=RunIE(640,480)

If coderet<=0 Then

If coderet=0 Then oIE.Quit

wscript.quit

end if

NbDel=0

For i = 1 To NbHF

Action=eval("oIE.document.strategyForm.CB" & i & ".checked")

Taux=i*100/NbHF

If Action Then

NbDel=NbDel+1

fso.DeleteFolder Windir & "\" & HFFolders(i-1),true

LogFile= Windir & "\" & HFKeys(i-1) & ".log"

If fso.FileExists(LogFile) Then fso.DeleteFile LogFile,true

shell.RegDelete Key & HFKeys(i-1) & "\"

msgerr=""

If err.number<>0 Then

msgerr=" Erreur suppression"

err.clear

End If

SetProgress "Suppr." & HFarticle(i-1) & msgerr,taux

else

SetProgress " ",Taux

End If

Next

oIE.Quit

If NbDel>1 Then pluriel="s" else pluriel=""

wscript.echo NbDel & " désinstallation" & pluriel & " de hotfixes supprimée" & pluriel

' Restauration état

shell.RegWrite Keysec1,OldValue1,"REG_DWORD"

shell.RegWrite Keysec2,OldValue2,"REG_DWORD"

Wscript.quit

 

'--------------------------------------------------------------------

Function RunIE(W,H)

RunIE=1

' Ouverture d'Internet Explorer

Set oIE = WScript.CreateObject("InternetExplorer.Application")

Do While (oIE.Busy)

WScript.Sleep 100

Loop

oIE.navigate ficInit

oIE.Height = H

oIE.Width = W

oIE.MenuBar = 0

oIE.ToolBar = 0

oIE.StatusBar = 1

oIE.Top=(oIE.Document.ParentWindow.Screen.Height-oIE.Height)/2

oIE.Left=(oIE.Document.ParentWindow.Screen.Width-oIE.Width)/2

oIE.Visible = 2

 

shell.AppActivate Titre

 

' Attente d'action sur le bouton ou fermeture de la fenêtre

Do

WScript.Sleep 100

Selection=oIE.Document.Script.CheckSelect()

If Selection<>0 Then

oIE.Document.Script.ResetSelect

If oIE.document.strategyForm.allselect.checked Then StrFlag="true" else StrFlag="false"

For i = 1 To NbHF

execute("oIE.document.strategyForm.CB" & i & ".checked=""" & StrFlag & """")

Next

End If

FlagParam=oIE.Document.Script.CheckParam()

If FlagParam<>0 Then

param=oIE.Document.Script.GetParam()

oIE.Document.Script.ResetParam

typeobj=left(param,1)

path=mid(param,2)

Select Case typeobj

Case "1"

Shell.run "explorer /n,/root," & Windir & "\" & path & "\",1

Case "2"

Shell.RegWrite LastKey, Key & path

oIE.Visible = 0

shell.Run "REGEDIT",1,true

oIE.Visible = 1

End Select

End If

Check=oIE.Document.Script.CheckVal()

Loop While (Check = 0)

' Si on ferme directement IE sans passer par un bouton,

' cela provoque une erreur qui est détectée et alors

' on quitte le script

If Err <> 0 Then

RunIE=-1

Err.Clear

else

If Check=-1 Then RunIE=0

end if

End Function

'--------------------------------------------------------------------

' Fonction de récupération du répertoire courant

Function GetPath()

Dim path

path = WScript.ScriptFullName

GetPath = Left(path, InStrRev(path, "\"))

End Function

'--------------------------------------------------------------------

Function Header

s="<html><head><title>" & Titre & "</title>" & VBCRLF

s=s & "<STYLE TYPE=""text/css"">" & VBCRLF

s=s & "body {" & VBCRLF

s=s & " font-family: Verdana;" & VBCRLF

s=s & " font-size: 8 pt }" & VBCRLF

s=s & " h1, h2, h3, h4, h5 { font-family: Verdana }" & VBCRLF

s=s & "table {" & VBCRLF

s=s & " table-border-color-light: " & ColorBorderL &";" & VBCRLF

s=s & " table-border-color-dark: " & ColorBorderD &";" & VBCRLF

s=s & " font-size: 8 pt;" & VBCRLF

s=s & " font-family: Verdana }" & VBCRLF

s=s & ".progressOFF {background-color :" & BGProgressOFF & ";}" & VBCRLF

s=s & ".progressON {background-color :" & BGProgressON &";}" & VBCRLF

s=s & "</STYLE></head><body bgcolor=" & ColorBack &">"

header=s

End Function

'--------------------------------------------------------------------

Function ScriptBtn

s="<script language=""VBScript""> " & VBCRLF

s=s & "<!--" & VBCRLF

s=s & "Dim ready,FlagParam,Param,Selection" & VBCRLF

s=s & "Sub B0_OnClick" & VBCRLF

s=s & "ready=-1" & VBCRLF

s=s & "End Sub" & VBCRLF

s=s & "Sub B1_OnClick" & VBCRLF

s=s & "ready=1" & VBCRLF

s=s & "End Sub" & VBCRLF

s=s & "function Explore(filename)" & VBCRLF

s=s & "FlagParam=1" & VBCRLF

s=s & "Param=filename" & VBCRLF

s=s & "End function" & VBCRLF

s=s & "Sub Window_OnLoad()" & VBCRLF

s=s & "ready=0" & VBCRLF

s=s & "FlagParam=0" & VBCRLF

s=s & "Param=""""" & VBCRLF

s=s & "Selection=0" & VBCRLF

s=s & "End Sub" & VBCRLF

 

s=s & "Public Function CheckVal()" & VBCRLF

s=s & "CheckVal=ready" & VBCRLF

s=s & "End function" & VBCRLF

 

s=s & "Public Function CheckParam()" & VBCRLF

s=s & "CheckParam=FlagParam" & VBCRLF

s=s & "End function" & VBCRLF

 

s=s & "Public Sub ResetParam()" & VBCRLF

s=s & "FlagParam=0" & VBCRLF

s=s & "End sub" & VBCRLF

 

s=s & "Public Function GetParam()" & VBCRLF

s=s & "GetParam=Param" & VBCRLF

s=s & "End function" & VBCRLF

 

s=s & "Public Function CheckSelect()" & VBCRLF

s=s & "CheckSelect=Selection" & VBCRLF

s=s & "End function" & VBCRLF

 

s=s & "Public Sub ResetSelect()" & VBCRLF

s=s & "Selection=0" & VBCRLF

s=s & "End sub" & VBCRLF

 

s=s & "Public Sub SetSelect()" & VBCRLF

s=s & "Selection=1" & VBCRLF

s=s & "End sub" & VBCRLF

 

s=s & "'-->" & VBCRLF

s=s & "</script>"

ScriptBtn=s

End Function

'--------------------------------------------------------------------

Function ProgressBar

s=s & "<table id=""tabprog"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"">" & VBCRLF

s=s & "<tr><td>" & VBCRLF

s=s & "<table border=""0"" cellpadding=""2"" cellspacing=""2"" style=""border-collapse: collapse"" bordercolor=""#111111"">" & VBCRLF

s=s & "<tr>" & VBCRLF

For indl = 1 To 20

s=s & "<td id=""c" & indl &""" class=""ProgressOFF""> </td>" & VBCRLF

Next

s=s & "</tr></table></td></tr></table>" & VBCRLF

s=s & "<table><tr><td id=""lib""> </td></tr></table>" & VBCRLF

ProgressBar=s

End Function

'--------------------------------------------------------------------

Sub SetProgress(lib,taux)

set objLib=oIE.Document.All("lib")

set objTab=oIE.Document.All("tabprog")

objTab.border="1"

k=int(taux/5)

objLib.innerhtml=lib

for numc= 1 to 20

set objCell=oIE.Document.All("c" & numc)

if numc<=k then className="progressON" else className="progressOFF"

objCell.className=className

next

End Sub

'--------------------------------------------------------------------

Function GetKeyFromFolder(folder)

GetKeyFromFolder=""

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

oReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys

trouve=false

For Each subkey In arrSubKeys

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath & "\" & subkey,"UninstallString",UninstallString

If InStr(1,UninstallString,Folder,vbTextCompare)>0 Then

trouve=true

GetKeyFromFolder=subkey

exit function

End If

Next

End Function

'--------------------------------------------------------------------