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
|
'---------------------------------------------------------------------------------------
' VIDAGE DOSSIER TEMP DE WINDOWS
'---------------------------------------------------------------------------------------
' Déclaration et intialisation variables
'---------------------------------------
Dim MonSysFic, MonProcess, MonShell, MonEnv
Dim tmp, nf, nd, force, chemin, col, dossier, fichier
force = True
nf = 0
nd = 0
' Instanciation objets
'---------------------
Set MonSysFic = WScript.CreateObject("Scripting.FileSystemObject")
Set MonShell = WScript.CreateObject("WScript.Shell")
Set MonEnv = MonShell.Environment("PROCESS")
' Supression contenu temp windows
'--------------------------------
tmp = MonEnv("Windir") &"\Temp"
nf = nf + Sup_fichiers(tmp)
nd = nd + Sup_dossiers(tmp)
' Coup de balai
'--------------
Set col = Nothing
Set dossier = Nothing
Set fichier = Nothing
Set MonSysFic = Nothing
Set MonShell = Nothing
Set MonEnv = Nothing
' Fonction suppression de dossiers (retourne nb de dossiers supprimés)
'---------------------------------------------------------------------
Function Sup_dossiers(chemin)
Set col = MonSysFic.getfolder(chemin).Subfolders
For Each dossier In col
On Error Resume Next
dossier.Delete (force)
If Err.Number = 0 Then Sup_dossiers = Sup_dossiers + 1
Next
End Function
' Fonction suppression de fichiers (retourne nb de fichiers supprimés)
'---------------------------------------------------------------------
Function Sup_fichiers(chemin)
Set col = MonSysFic.getfolder(chemin).Files
For Each fichier In col
On Error Resume Next
fichier.Delete (force)
If Err.Number = 0 Then Sup_fichiers = Sup_fichiers + 1
Next
End Function |
