Meilleure solution effacemment dossiers et fichiers

Version imprimable

Bonjour, plutôt bonsoir,

Je me pose une question.

J'ai un script vbs qui efface des fichiers plus vieux de x jours et les dossiers s'ils sont vides dans un emplacement spécifié.

J'ai une arborescence de ce type :
C:\FTP
C:\FTP\Bob
C:\FTP\Albert
C:\FTP\Laura
etc ...

Je voudrai supprimer les dossiers/fichiers plus vieux de x jours dans les sous sous arborescences, i.e C:\FTP\Bob et les autres.

J'ai vu le code de frutix :
Code:

1 2 3 4 5 6 7 8 9 10 For each subfold in FSO.GetFolder(path).SubFolders 'Pour chaque sous-dossiers dans le path subpath = "C:\vbscript\temp\" & subfold.Name 'On définit une nouvelle variable avec le nom des sous-dossiers au 1er niveau set folder = FSO.GetFolder (subpath)'utilisation du FSO pour prendre le dossier For Each B in folder.subfolders 'pour chaque dossier dans le sous-dossier racine If B.size = 0 Then 'si la taille du dossier est egal a 0 (donc vide) 'msgbox B & B.size 'effacer le dossier FSO.DeleteFolder B, force = yes End If 'fin du SI Next Next
Et je me demande s'il vaut mieux utiliser sa méthode ou effectuer un Split pour placer ma racine dans C:\FTP\Bob supprimer et idem pour les autres.

J'espère être assez explicite.

Cordialement,

Bonjour
voila un bout de code qui devrait convenir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
path = "C:\FTP"
Set FSO = CreateObject("Scripting.FileSystemObject")
 
	For Each B in FSO.GetFolder(path).SubFolders
	       d10=now-10
		If B.size = 0 or b.DateLastModified < d10 Then 
'		z=z & B.name & " - " & B.size & vbcr'effacer le dossier
		FSO.DeleteFolder B, force = yes
		End If
	Next
'msgbox z,,path

Bonjour,

Merci de ta réponse.

Sauf erreur de ma part, le code donné supprime les sous dossiers dans path (C:\FTP).
Or, je cherche à faire cela dans les autres sous dossiers.

- Je m'explique.
J'ai un dossier FTP (chemin : C:\FTP) contenant des dossiers qui peuvent être vide.
Dans ses dossiers, je veux faire le ménage (dossiers + fichiers plus vieux de x jours) en gardant ses dossiers de "1er niveau".

J'ai ce code qui fonctionne.

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
Sub Clean(FolderPath)
For each subfold in fso.GetFolder(FolderPath).SubFolders 
	For Each File In subfold.Files 
		If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then 
			'If File.Attributes And 1 Then 
				File.Attributes = 0
				OutPut.WriteLine File.Path 
				File.Delete() 
				NbFichiersEffaces = NbFichiersEffaces + 1 
			'End If 
		End If
	Next
	subpath = DossierSauvegarde & "\" & subfold.Name 
	set folder = fso.GetFolder (subpath)
	For Each B in folder.subfolders 
		For Each File In B.Files 	
			If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then 
				'If File.Attributes And 1 Then 
					File.Attributes = 0
					OutPut.WriteLine File.Path 
					File.Delete() 
            		NbFichiersEffaces = NbFichiersEffaces + 1 
        		'End If 
			End If	
		Next
		If B.size = 0 Then 
		OutPut.WriteLine Folder.Path
		fso.DeleteFolder B, force = yes
		End If 
	Next 
Next
End Sub

********
Après avoir vu la fonction récursive de parcours d'un répertoire de l'excellent bbil, je me demande s'il serait possible de l'implémenter ici pour effectuer les suppressions sur TOUS les niveaux d'arborescence des sous-répertoires de "niveau 1".
Un simple appel de la fonction dans celle-ci suffirait-il ? Je ne connais pas du tout ce concept.
********

J'ai donc fait ce code mais il supprime les sous-répertoires de niveau 1 ce que je ne veux pas :

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
Sub Clean2(stRep)
Wscript.echo stRep
If fso.FolderExists(stRep) Then
Set oFld = fso.GetFolder(stRep)
	For Each File In oFld.Files 
		If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then 
			File.Attributes = 0
			OutPut.WriteLine File.Path 
			File.Delete() 
			NbFichiersEffaces = NbFichiersEffaces + 1 
		End If
	Next
	If oFld.subFolders.count > 0 Then 
		For each SubFolder In oFld.subFolders
		Clean2 SubFolder.Path
			For Each File In SubFolder.Files 
				If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then 
					File.Attributes = 0
					OutPut.WriteLine File.Path 
					File.Delete() 
					NbFichiersEffaces = NbFichiersEffaces + 1 
					MsgBox(SubFolder.Path)
 
				End If
			Next
			If SubFolder.size = 0 Then 
				OutPut.WriteLine SubFolder.Path
				fso.DeleteFolder SubFolder, force = yes
			End If 
		Next
 
	End If
End If
 
End Sub

J'ai obtenu ce que je voulais.
Problème Résolu !