Ignorer un répertoire et supprimer les autres (liste d'exclusion ?)

Version imprimable

05/12/2014, 13h37
Christophe.G

Ignorer un répertoire et supprimer les autres (liste d'exclusion ?)

Bonjour à tous, je reviens vers vous avec mes petits problèmes de script... :mouarf:

Alors je m'explique... J'ai un script principal écrit en batch, un fichier .cmd (je suis plus a l'aise qu'en vbscript) qui effectue plusieurs actions donc pour fonctionner, il utilise pas mal de fichiers/modules annexe (plus d'une vingtaine) qui sont soit générés soit inclus (il y a de tout, du .txt, .cmd, .vbs, .dll, .exe bref de tout).
Pour un souci de propreté, le tout est compilé pour tenir en un seul fichier exécutable, qui lors de son exécution extrait le tout dans un répertoire temporaire créé dans le répertoire Temp.
Mon souci c'est que le script fait à un moment appel à un module (script .vbs) dont la fonction est de supprimer les fichiers/répertoires temporaire situés dans Temp. Et à ma grande surprise, il arrive à se supprimer lui même (enfin le répertoire d'ou le script principal s'exécute) donc fatalement une fois le module appelé le script s'interrompt d'un coup (logique).

Donc ma question est fatalement... Est-ce que je peux exclure un répertoire de la suppression qui devrait être soit indiqué au module par le script principale ou soit en récupérant le répertoire courant du module (script .vbs) vu que c'est le même que le script peu importe. Et si oui comment procéder ?

Ou est-ce que je dois voir autrement ?
En sachant que je ne voudrais vraiment pas que le tout s'exécute depuis le répertoire de l'exécutable pour ne pas voir apparaître une vingtaine de fichiers dans ce répertoire (toujours dans un souci d’esthétique, ça ne fait pas propre).
Et en sachant également que je n'ai pas trop envie non plus de devoir reprendre tout le script principal pour lui faire créer/déplacer les fichiers nécessaire à son fonctionnement dans un répertoire précis créé ailleurs car ça représenterait vraiment du taf (le script est assez long et les fichiers annexe nombreux).

Je suis à l'écoute de vos précieux conseils et merci par avance de votre attention/aide.

Pour une suppression sélective, enregistre le code suivant sous DelFiles.vbs par exemple n'importe où sur le PC et places-en une copie dans le dossier temp et une dans chaun de ses sous-dossiers puis exécute le fichier principal :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Dim fso, WS, oFold, oFile, Temp
Set fso = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.Shell")
Temp = WS.ExpandEnvironmentStrings("%Temp%")
 
For Each oFile In fso.GetFolder(temp).Files
    On Error Resume Next ' pour éviter l'erreur "Accès refusé".
    ' Suppression des fichiers contenus dans le dossier Temp
    If oFile.Name <> Wscript.ScriptName Then oFile.Delete
Next
For Each oFold In fso.GetFolder(temp).SubFolders
    For Each oFile In oFold.Files
      On Error Resume Next ' pour éviter l'erreur "Accès refusé".
      ' Suppression des fichiers contenus dans les sous-dossiers de Temp
       If oFile.Name <> Wscript.ScriptName Then oFile.Delete
    Next
Next

Excusez-moi, je n'ai pas bien compris le principe en faite, ni ce que cela va faire, pouvez-vous préciser un peu.
Je précise que mon exécutable extrait le script principale .cmd et tout les fichiers qu'il utilise ou crée dans un répertoire créé dans le dossier Temp.
Le script appel un autre script .vbs situé dans le même répertoire que lui et qui à pour fonction de supprimer les fichiers/dossiers dans Temp tout en listant les fichiers/dossiers supprimés et ceux qui ne l'ont pas été, et il fait le total des suppressions et des échecs pour les fichiers et les répertoires puis il inscrit tout ça dans un rapport.
Du coup je dois utiliser mon script pour la suppression, soit en l’adaptant d'après le votre ou inversement. Je dois donc comprendre comment utiliser votre script, comment il fonctionne et l’intérêt de le placer dans tous les sous répertoires. (car je dois récupérer toutes les infos de suppressions, et les compter pour l'inscrire dans le rapport).

Je vais vous mettre le code de mon script vbs (celui appelé par le principale .cmd et qui n'est qu'un module) vous pourrez certainement m'aider plus facilement et bien comprendre ce dont j'ai besoin.

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
' DECLARATION DES VARIABLES
dim CmdLine, FolderName, fdocuments, nf, nd, erreurnf, erreurnd
dim WINDIR, DRIVE, TEMP
Const DeleteReadOnly = True
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )
DRIVE = WshShell.ExpandEnvironmentStrings("%SystemDrive%" )
TEMP = WshShell.ExpandEnvironmentStrings("%TEMP%" )
 
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
' J'écris à la suite du rapport créé par le script principal qui appel ce script .vbs
Set MyFile = fso.OpenTextFile(DRIVE & "\rapport.txt", ForAppending, True)
nf = 0
erreurnf = 0
nd = 0
erreurnd = 0
 
On Error Resume Next
 
' SUPPRESSION pour C:\TEMP (si le répertoire existe)
FolderName = DRIVE & "\temp"
if fso.FolderExists(FolderName) then
	DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour C:\TMP (si le répertoire existe)
FolderName = DRIVE & "\tmp"
if fso.FolderExists(FolderName) then
	DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour %WINDIR%\TEMP
FolderName = WINDIR & "\temp"
if fso.FolderExists(FolderName) then
	DeleteFiles(FolderName)
end if
 
' SUPPRESSION POUR %UserProfile%\AppData\Local\Temp
' C'est de la qu'est exécuté mon script principal ainsi que ce .vbs appelé
FolderName = TEMP
if fso.FolderExists(FolderName) then
	DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour C:\DOCUMENTS AND SETTINGS\%USER%\LOCAL SETTINGS\TEMP
fdocuments = DRIVE & "\documents and settings\"
if fso.FolderExists(fdocuments) then
    For Each folder in fso.GetFolder(fdocuments).SubFolders
        FolderName = folder & "\Local Settings\temp"
        if fso.FolderExists(FolderName) then
		DeleteFiles(FolderName)
	end if
    next
end if
 
MyFile.WriteLine("")
if nf = 0 Then
	MyFile.WriteLine("aucun fichier n'a été supprimé")
End If
if nf = 1 Then
	MyFile.WriteLine(nf & " fichier a été supprimé avec succès")
End If
if nf > 1 Then
	MyFile.WriteLine(nf & " fichiers ont été supprimés avec succès")
End If
if erreurnf = 0 Then
	MyFile.WriteLine("aucun échec de suppression de fichier")
End If
if erreurnf = 1 Then
	MyFile.WriteLine(erreurnf & " fichier est en cours d'utilisation et n'a pas pu être supprimé")
End If
if erreurnf > 1 Then
	MyFile.WriteLine(erreurnf & " fichiers sont en cours d'utilisation et n'ont pas pu être supprimés")
End If
if nd = 0 Then
	MyFile.WriteLine("aucun répertoire n'a été supprimé")
End If
if nd = 1 Then
	MyFile.WriteLine(nd & " répertoire a été supprimé avec succès")
End If
if nd > 1 Then
	MyFile.WriteLine(nd & " répertoires ont été supprimés avec succès")
End If
if erreurnd = 0 Then
	MyFile.WriteLine("aucun échec de suppression de répertoire")
End If
if erreurnd = 1 Then
	MyFile.WriteLine(erreurnd & " répertoire est en cours d'utilisation et n'a pas pu être supprimé")
End If
if erreurnd > 1 Then
	MyFile.WriteLine(erreurnd & " répertoires sont en cours d'utilisation et n'ont pas pu être supprimés")
End If
 
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
' FIN DU SCRIPT
 
Sub DeleteFiles(NameFolder) 
    Dim repertoire, dossiers, fichiers, ObjFichier, ObjDossier, Fich
    Dim CheminFichier, CheminDossier
    Set repertoire = fso.GetFolder(NameFolder)
    Set fichiers = repertoire.Files
    Set dossiers = repertoire.Subfolders
    For Each ObjFichier In fichiers
	CheminFichier = ObjFichier.Path
        On Error Resume Next
        Set Fich = fso.OpenTextFile(ObjFichier.Path, 1, False)
        If Err.Number = 0 Then
            ' le fichier est ouvrable
            Fich.Close
            ObjFichier.Delete True
            If Err.Number = 0 Then
                ' le fichier a bien été supprimer
                MyFile.WriteLine ("[Fichier supprimé avec succès]--------- " & CheminFichier)
		nf = nf + 1
            Else
                ' il y a refus de suppression du fichier
                Err.Clear
                MyFile.WriteLine ("[Echec de suppression du fichier]------ " & CheminFichier)
		erreurnf = erreurnf + 1
            End If
        Else
		' le fichier n'a pas put être ouvert
		Err.Clear
		MyFile.WriteLine ("[Echec de suppression du fichier]------ " & CheminFichier)
		erreurnf = erreurnf + 1
        End If
    Next
	For Each ObjDossier In dossiers      
		CheminDossier = ObjDossier.Path
		On Error Resume Next
		ObjDossier.Delete True
		If Err.Number = 0 Then
			' le dossier à bien été supprimé
			MyFile.WriteLine ("[Répertoire supprimé avec succès]------ " & CheminDossier)
			nd = nd + 1
		Else
			' il y a refus de suppression du dossier
                        Err.Clear
                        MyFile.WriteLine ("[Echec de suppression du répertoire]--- " & CheminDossier)
		        erreurnd = erreurnd + 1
		End If
	Next 
    Set ObjFichier = Nothing
    Set ObjDossier = Nothing
    Set dossiers = Nothing
    Set fichiers = Nothing
    Set repertoire = Nothing	
End Sub

06/12/2014, 12h17
Christophe.G

Etant donné qu'il n'y a qu'un seul répertoire qui ne doit pas être supprimé, celui ou se trouve le script, je me demandais si on ne pouvais pas faire en sorte que lui seul soit ignoré par le script de suppression de temporaires (le répertoire est généré avec un nom aléatoire) soit en passant le nom du répertoire du script principal au vbscript de suppression (en paramètre ou autre) soit tout simplement en récupérant le nom du répertoire courant d'ou s'exécute le vbscript vu qu'il s'agit de ce répertoire et l'ignorer de la suppression.
Une chose comme ça ne serait pas possible ?

Il faudra dans ce cas tester l'existence ou non du script ayant pour tâche de supprimer les dossiers / fichiers.

J'ai ajouté à ton script une fonction de test qui garde le dossier contenant ledit script (copié ou généré). L'adaptation du Sub DeleteFiles est commentée dans la partie concernant les sous-dossiers. Voici le

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
' DECLARATION DES VARIABLES
dim CmdLine, FolderName, fdocuments, nf, nd, erreurnf, erreurnd
dim WINDIR, DRIVE, TEMP
Const DeleteReadOnly = True
Const ForReading = 1, ForWriting = 2, ForAppending = 8
 
Set WshShell = WScript.CreateObject("WScript.Shell" )
WINDIR = WshShell.ExpandEnvironmentStrings("%WinDir%" )
DRIVE = WshShell.ExpandEnvironmentStrings("%SystemDrive%" )
TEMP = WshShell.ExpandEnvironmentStrings("%TEMP%" )
 
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
' J'écris à la suite du rapport créé par le script principal qui appel ce script .vbs
Set MyFile = fso.OpenTextFile(DRIVE & "\rapport.txt", ForAppending, True)
nf = 0
erreurnf = 0
nd = 0
erreurnd = 0
 
On Error Resume Next
 
' SUPPRESSION pour C:\TEMP (si le répertoire existe)
FolderName = DRIVE & "\temp"
if fso.FolderExists(FolderName) then
    DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour C:\TMP (si le répertoire existe)
FolderName = DRIVE & "\tmp"
if fso.FolderExists(FolderName) then
    DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour %WINDIR%\TEMP
FolderName = WINDIR & "\temp"
if fso.FolderExists(FolderName) then
    DeleteFiles(FolderName)
end if
 
' SUPPRESSION POUR %UserProfile%\AppData\Local\Temp
' C'est de la qu'est exécuté mon script principal ainsi que ce .vbs appelé
FolderName = TEMP
if fso.FolderExists(FolderName) then
    DeleteFiles(FolderName)
end if
 
' SUPPRESSION pour C:\DOCUMENTS AND SETTINGS\%USER%\LOCAL SETTINGS\TEMP
fdocuments = DRIVE & "\documents and settings\"
if fso.FolderExists(fdocuments) then
    For Each folder in fso.GetFolder(fdocuments).SubFolders
        FolderName = folder & "\Local Settings\temp"
        if fso.FolderExists(FolderName) then
        DeleteFiles(FolderName)
    end if
    next
end if
 
MyFile.WriteLine("")
if nf = 0 Then
    MyFile.WriteLine("aucun fichier n'a été supprimé")
End If
if nf = 1 Then
    MyFile.WriteLine(nf & " fichier a été supprimé avec succès")
End If
if nf > 1 Then
    MyFile.WriteLine(nf & " fichiers ont été supprimés avec succès")
End If
if erreurnf = 0 Then
    MyFile.WriteLine("aucun échec de suppression de fichier")
End If
if erreurnf = 1 Then
    MyFile.WriteLine(erreurnf & " fichier est en cours d'utilisation et n'a pas pu être supprimé")
End If
if erreurnf > 1 Then
    MyFile.WriteLine(erreurnf & " fichiers sont en cours d'utilisation et n'ont pas pu être supprimés")
End If
if nd = 0 Then
    MyFile.WriteLine("aucun répertoire n'a été supprimé")
End If
if nd = 1 Then
    MyFile.WriteLine(nd & " répertoire a été supprimé avec succès")
End If
if nd > 1 Then
    MyFile.WriteLine(nd & " répertoires ont été supprimés avec succès")
End If
if erreurnd = 0 Then
    MyFile.WriteLine("aucun échec de suppression de répertoire")
End If
if erreurnd = 1 Then
    MyFile.WriteLine(erreurnd & " répertoire est en cours d'utilisation et n'a pas pu être supprimé")
End If
if erreurnd > 1 Then
    MyFile.WriteLine(erreurnd & " répertoires sont en cours d'utilisation et n'ont pas pu être supprimés")
End If
 
MyFile.Close
Set MyFile = Nothing
Set fso = Nothing
' FIN DU SCRIPT
'===========================
Function ScriptFileInFolder(sFold)
    For Each oFold In fso.GetFolder(temp).SubFolders
        For Each oFile In oFold.Files
           If oFile.Name = WScript.ScriptName Then
               ScriptFileInFolder = True
               Exit For
           Else
              ScriptFileInFolder = False
           End If
        Next
    Next
End Function
'============================= 
Sub DeleteFiles(NameFolder) 
    Dim repertoire, dossiers, fichiers, ObjFichier, ObjDossier, Fich
    Dim CheminFichier, CheminDossier
    Set repertoire = fso.GetFolder(NameFolder)
    Set fichiers = repertoire.Files
    Set dossiers = repertoire.Subfolders
    For Each ObjFichier In fichiers
    CheminFichier = ObjFichier.Path
        On Error Resume Next
        Set Fich = fso.OpenTextFile(ObjFichier.Path, 1, False)
        If Err.Number = 0 Then
            ' le fichier est ouvrable
            Fich.Close
            ObjFichier.Delete True
            If Err.Number = 0 Then
                ' le fichier a bien été supprimer
                MyFile.WriteLine ("[Fichier supprimé avec succès]--------- " & CheminFichier)
                nf = nf + 1
            Else
                ' il y a refus de suppression du fichier
                Err.Clear
                MyFile.WriteLine ("[Echec de suppression du fichier]------ " & CheminFichier)
                erreurnf = erreurnf + 1
            End If
        Else
        ' le fichier n'a pas put être ouvert
        Err.Clear
        MyFile.WriteLine ("[Echec de suppression du fichier]------ " & CheminFichier)
        erreurnf = erreurnf + 1
        End If
    Next
    For Each ObjDossier In dossiers      
        CheminDossier = ObjDossier.Path
        On Error Resume Next
        If Not ScriptFileInFolder(ObjDossier) Then ' On cherche le script dans chaque sous-dossier :
            ' S'il y est on garde le sous-dossier, sinon on le supprime
            ObjDossier.Delete True
            If Err.Number = 0 Then
                ' le dossier à bien été supprimé
                MyFile.WriteLine ("[Répertoire supprimé avec succès]------ " & CheminDossier)
                nd = nd + 1
            Else
                ' il y a refus de suppression du dossier
                    Err.Clear
                    MyFile.WriteLine ("[Echec de suppression du répertoire]--- " & CheminDossier)
                    erreurnd = erreurnd + 1
            End If
        End If
    Next 
    Set ObjFichier = Nothing
    Set ObjDossier = Nothing
    Set dossiers = Nothing
    Set fichiers = Nothing
    Set repertoire = Nothing    
End Sub

06/12/2014, 15h02
Christophe.G

Les choses sont si simple pour vous, la ou moi je devrais me creuser la tête pendant x temps...
Alors effectivement, le script n'est plus interrompu car pas supprimé, et les fichiers temporaires sont eux bien supprimés. Par contre (il y a quand même un mais...) les répertoires du dossier temp ne sont plus supprimés, que ce soit celui ou se trouve le script (normal) mais les autres non plus. Une idée ?
07/12/2014, 18h29
Christophe.G

problème réglé, merci beaucoup.