trouver tous les dossiers vides d'un disque dur

trouver tous les dossiers vides d'un disque dur - Win NT/2K/XP - Windows & Software

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 :D
 
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é :D 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é :D 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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed