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 |
Partager