recherche dossier et sous dossier

Version imprimable

13/07/2012, 09h26
soron59

recherche dossier et sous dossier

Bonjour,

Cela fait 2 jours que je cherche à scripter en VBS une recherche de fichier =0 dans un dossier et sous- dossier.

J'ai vu plusieurs méthodes sur le net mais je ne sais pas laquelle est la plus rapide (Utiliser le FSO,WMI ou encore même passer par un batch...) car c'est un script qui va démarrer à chaque ouverture de session donc il ne faut pas que ça prenne 5 minutes

Si vous pouvez m'éclairer sur ce sujet :)

Merci pour vos réponse.

:salut:
Inspirez-vous de ce script ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
On Error Resume Next
Dim fso, f, Dossier, fc, ss
Titre = "Suppression des Dossiers et des Fichiers Vides"
Set fso = CreateObject("Scripting.FileSystemObject")
Set sho = CreateObject( "Wscript.Shell" )
basefolder=sho.SpecialFolders("desktop") 'Mon répertoire de travail est le Bureau
Set f = fso.GetFolder(basefolder)
Set fc = f.SubFolders
NomFichierLog="Dossiers_Fichiers_Vides.txt"
temp = sho.ExpandEnvironmentStrings("%temp%")
PathNomFichierLog = temp & "\" & NomFichierLog
Set OutPut = fso.CreateTextFile(temp & "\" & NomFichierLog,1)
 
NBDossierVides=0 'initialisation du compteur des Dossiers vides
NBFichierVides=0 'initialisation du compteur des fichiers vides
 
'Boucle pour la recherche des Dossiers vides
For Each Dossier in fc
If Dossier.size = 0 Then
NBDossierVides= NBDossierVides + 1
OutPut.WriteLine Dossier.Path
Dossier.delete
End if
Next
'Boucle pour la recherche des fichiers vides
For Each Fichier in f.files
if Fichier.size = 0 then
NBFichierVides=NBFichierVides+1
OutPut.WriteLine Fichier.Path
Fichier.delete
end if
next
OutPut.WriteLine NBDossierVides& " Dossiers Vides ont été supprimés"
OutPut.WriteLine NBFichierVides& " Fichiers Vides ont été supprimés"
Msgbox NBDossierVides & "    Dossiers Vides ont été supprimés !",64,Titre
Msgbox NBFichierVides & "    Fichiers Vides ont été supprimés !",64,Titre
Explorer(PathNomFichierLog)
 
Function Explorer(File)
    Set ws=CreateObject("wscript.shell")
    ws.run "Notepad "& File & "\"
end Function

13/07/2012, 11h17
soron59

Un grand merci je vais bossé dessus cette aprém
Le code est super clair....parfait :ccool::ccool:

Bonjour,

Je post mon script ça peut toujours servir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'declaration des variables
Dim folder
dim Subfolder
dim patch
Dim FSO
 
'instantation du file system object (FSO)
Set FSO = CreateObject("Scripting.FileSystemObject")'initialisation de la variable contenant le chemin du repertoire racine
Set wshnetwork = WScript.CreateObject("WScript.Network" ) 'initialisation de la variable pour la récupération du user et computer names
userprofil = wshnetwork.username 'Récupération du nom de profil
computername = wshnetwork.computername 'Récupération du nom de l'ordinateur
path = "c:\test"
'appel de la fonction recurcive avec comme argument le chemin du repertoire racine
recurcive path
function recurcive(chemin) 'fonction récurcive pour traiter tout l'arboresence
                           'des dossiers
set folder = FSO.GetFolder (chemin) 'utilisation du FSO pour prendre le dossier
                                    'racine
set Subfolder = folder.SubFolders   'definition de la varibale pour les S/dossiers
for each A in Subfolder 'pour chaque dossier dans le sous dossier racine
        Set fic = A.Files 'definition de la variables toucher les fichier des dossier
        fichier fic 'appel de la fontion fichier
        recurcive A 're-appel de la fonction recurcive pour traiter les S/dossiers
 
next
end function 
function fichier(fic) 
For Each objFile in fic 
        Set f = fso.GetFile(objfile) 'utilisation du FSO pour prendre le fichier
            If objFile.Size = 0 AND UCase(FSO.GetExtensionName(objfile.Path)) = "TXT"  Then			'si la taille du fichier est égale à 0 et que le fichier à l'extention "TXT"
            FSO.DeleteFile(objfile)'alors effacer le fichier avec option de forcer pour les fichier en lecture seule
 
            end if
    next
 
end function