trouver tous les dossiers vides d'un disque dur

Marsh Posté le 09-08-2005 à 16:30:07

:hello:

salut le monde

tout petit problème :

existe-t-il une solution avec explorer, ou un un autre programme genre total commander, pour trouver rapidement tous les dossiers vides d'un d'un disque dur ?

merci :jap:

Reply

Marsh Posté le 09-08-2005 à 16:30:07

Reply

Marsh Posté le 09-08-2005 à 16:52:34

Salut,
Essaie TreeSize -> classer par Taille.

Reply

Marsh Posté le 09-08-2005 à 16:54:14

:lol:

merci :jap:

mais j'y ai pensé en postant mon message en fait

comme quoi, le fait d'exprimer une question correctement, peut souvent faire apparaitre la réponse toute seule

merci encore

ps : si ous avez d'autres solutions ??? :jap:

Reply

Marsh Posté le 09-08-2005 à 17:00:40

Sinon un p'tit batch devrait le faire

Reply

Marsh Posté le 20-08-2005 à 15:38:42

bon allez up !

je n'ai rien trouvé de satisfaisant en fait

treesize ne sait pas le faire ou je n'ai pas réussit

j'en ai trouvé un autre windirstat mais qui ne fait pas mieux

je voudrais juste pouvoir effacer tous les dossiers vides d'un disque dur, je ne peux le faire à la main, il y en a 11700...

---------------
Sujet sur les cartes son audiophiles pour mélomanes et musiciens & DAC+ADC

Reply

Marsh Posté le 20-08-2005 à 16:48:39

C'est facile à faire avec un petit script en VBScript...

'
' Filename : cleanfolders.vbs
' Author : Cédric Rathgeb
' Date : 2005-08-20
' Version : 1.0
' Copyright : Public Domain
' Warranty : None
'

' Répertoire à partir duquel commencer
sPath = "C:\"

' Rapport
sReportFolders = "Les dossiers suivants ont été effacés : " & vbCrLf
sReportFoldersCount = 0

' Obtient le dossier de base
Set oFSO = CreateObject("Scripting.FileSystemObject" )

' Procédure récursive pour parcourir les dossiers
Sub CleanFolder(sCurrentPath)

' Obtient le dossier courant
Set oFolder = oFSO.GetFolder(sCurrentPath)

' Obtient les sous-dossiers
Set oSubFolders = oFolder.SubFolders

' Parcourt les sous-dossiers
For Each oCurrentFolder in oSubFolders
CleanFolder oCurrentFolder.Path
Next

' Obtient les fichiers dans le dossier courant
Set oFiles = oFolder.Files

' Si le dossier est vide, le supprime
If oFiles.Count = 0 AND oSubFolders.Count = 0 Then
sReportFolders = sReportFolders & " - " & oFolder.Path & "\" & vbCrLf
sReportFoldersCount = sReportFoldersCount + 1
oFolder.Delete True
End If

End Sub

' Appel initial de la fonction
CleanFolder sPath

' Affiche le rapport
MsgBox "Nombre de dossiers effacés : " & sReportFoldersCount
MsgBox sReportFolders

Je te conseille de tester ce script à un endroit ou il ne fera pas trop de dégats... au cas où je me serais planté Tu peux aussi commenter la ligne "oFolder.Delete True" en ajoutant un apostrophe en début de ligne pour voir déjà le rapport.

Message édité par Requin le 20-08-2005 à 18:20:40

Reply

Marsh Posté le 20-08-2005 à 18:22:37

Ace utilities fait ça tès bien

http://www.acelogix.com/

:hello:

Message édité par Tatatsin le 20-08-2005 à 18:22:51

---------------
La France est un pays de flics à tout les coins de rue y'en à 100 pour faire régnèr l'ordre public ils assassinent impunémént.

Reply

Marsh Posté le 20-08-2005 à 20:04:53

Tatatsin a écrit :

Ace utilities fait ça tès bien

http://www.acelogix.com/

:hello:

je vais voir, merci :jap:

Requin a écrit :

C'est facile à faire avec un petit script en VBScript...

Je te conseille de tester ce script à un endroit ou il ne fera pas trop de dégats... au cas où je me serais planté Tu peux aussi commenter la ligne "oFolder.Delete True" en ajoutant un apostrophe en début de ligne pour voir déjà le rapport.

merci requin :jap:

ça faisait longtemps

---------------
Sujet sur les cartes son audiophiles pour mélomanes et musiciens & DAC+ADC

Reply

Marsh Posté le 20-08-2005 à 20:18:14

Tatatsin a écrit :

Ace utilities fait ça tès bien

http://www.acelogix.com/

:hello:

parfait

en fait, j'ai utulisé ta solution, parfaite !

sur plus de 11000 dossier près de 2000 vides, ça m'a fait gagner un temps pas possible :jap: :love:

---------------
Sujet sur les cartes son audiophiles pour mélomanes et musiciens & DAC+ADC

Reply

trouver tous les dossiers vides d'un disque dur

Sujets relatifs:

Leave a Replay