AutoIt Français

Code : Tout sélectionner

; ce programme va supprimer le contenu de tous les dossiers temporaires suivants
;
; C:\Temp
; C:\Windows\Temp
; C:\Documents and Settings\nom_utilisateur\Local Settings\Temp     <===(pour chaque utilisateur)
;
; Il est recommandé de fermer toutes les applications avant d'utiliser ce programme.
;
; Si des fichiers temporaires sont ouverts par Windows, le système empêchera leur suppression.
;
;=======================================================================================================================
; appel des librairies
;=======================================================================================================================
Opt("MustDeclareVars", 1)
#Include <File.au3>
#Include <Array.au3>


;=======================================================================================================================
; début du programme
;=======================================================================================================================
; déclaration des variables du programme
GLOBAL $avUtilisateurs
LOCAL $sChemin
LOCAL $iCtr_util
LOCAL $sType

; on prépare le type de profil
$sType = "SYSTEME"

; on prépare le nom du dossier
$sChemin = "C:\TEMP\"
; s'il existe, on fait appel à la fonction de nettoyage pour le vider
If FileExists($sChemin) Then Nettoyer($sChemin, $sType)

; on prépare le nom du dossier
$sChemin = "C:\WINDOWS\TEMP\"
; s'il existe, on fait appel à la fonction de nettoyage pour le vider
If FileExists($sChemin) Then Nettoyer($sChemin, $sType)

; on récupère la liste des profils (nom des dossiers utilisateurs) dans un tableau
$avUtilisateurs = _FileListToArray("C:\Documents and Settings\")

; on enlève les noms des dossiers système de la liste des profils
Enlever("All Users")
Enlever("Default User")
Enlever("LocalService")
Enlever("NetworkService")

; on change le type de profil
$sType = "UTILISATEUR"

; on va traiter chaque profil un par un
For $iCtr_util = 1 To $avUtilisateurs[0]
    ; on prépare le chemin du dossier temporaire du profil en cours
    $sChemin = "C:\Documents and Settings\" & $avUtilisateurs[$iCtr_util] & "\Local Settings\Temp"
    ; s'il existe, on va nettoyer le dossier temporaire du profil en cours
    If FileExists($sChemin) Then Nettoyer($avUtilisateurs[$iCtr_util], $sType)
Next


;=======================================================================================================================
; fonction de nettoyage de la liste des profils
;=======================================================================================================================
Func Enlever($sElement)
    ; déclaration des variables de la fonction
    LOCAL $iNumero
    LOCAL $sSuite = "OUI"
    LOCAL $sNombre
    
    ; on va traiter toutes les occurences
    While $sSuite = "OUI"

        ; on cherche l'index de élément
        $iNumero = _ArraySearch($avUtilisateurs, $sElement, 0, 0, 0, 1)
        ; si on trouve l'élément
        If @error = 0 Then
            ; on supprime la ligne du tableau correspondant
            _ArrayDelete($avUtilisateurs, $iNumero)
            ; on récupère le nombre total de profils et on lui enlève 1
            $sNombre = $avUtilisateurs[0] - 1
            ; on remplace le nombre total de profils par la nouvelle valeur
            $avUtilisateurs[0] = $sNombre
        Else
            ; sinon on arrête la recherche
            $sSuite = "NON"
        EndIf
        
    Wend

EndFunc

;=======================================================================================================================
; fonction de nettoyage des dossiers
;=======================================================================================================================
Func Nettoyer($sDossier, $sProfil)

    ; déclaration des variables de la fonction
    LOCAL $avListe_fichiers
    LOCAL $iCtr
    LOCAL $sAttributs
    LOCAL $sAfficher
    
    ; on vérifie si c'est un profil SYSTEME
    If $sProfil = "SYSTEME" Then
        ; on prépare le message à afficher
        $sAfficher = "Nettoyage du dossier """ & $sDossier
    Else
        ; on prépare le message à afficher
        $sAfficher = "Nettoyage du dossier de """ & StringUpper($sDossier)
        ; on complète le nom du dossier
        $sDossier = "C:\Documents and Settings\" & $sDossier & "\Local Settings\Temp"
    EndIf
    
    ; on affiche le message pour faire patienter l'utilisateur
    SplashTextOn("", $sAfficher & """ en cours ...", 600, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)
    
    ; on met une pause pour que l'utilisateur puisse lire le message
    Sleep(1000)

    ; on récupère la liste des fichiers et dossiers dans un tableau
    $avListe_fichiers = _FileListToArray($sDossier)
    
    ; si le dossier contient des fichiers, on continue
    If @error = 0 Then
    
        ; on enlève les attributs de tous les fichiers, dossiers et sous-dossiers
        RunWait(@ComSpec & " /c " & "ATTRIB -R -H -S " & $sDossier  & "* /S /D", "", @SW_HIDE )
        
        ; on va traiter les éléments du tableau un par un
        For $iCtr = 1 To $avListe_fichiers[0]
        
            ; on récupère l'attribut de l'élément pour savoir si c'est un fichier ou un dossier
            $sAttributs = FileGetAttrib($sDossier & '\' & $avListe_fichiers[$iCtr])
            
            ; si on a réussi à lire l'attribut, on continue
            If @error = 0 Then
            
                ; si l'attribut correspond à un dossier
                If StringInStr($sAttributs, "D") Then
                    ; on supprime le dossier
                    DirRemove($sDossier & '\' & $avListe_fichiers[$iCtr], 1)
                ; sinon l'attribut correspond à un fichier
                Else
                    ; on supprime le fichier
                    FileDelete($sDossier & '\' & $avListe_fichiers[$iCtr])
                EndIf
                
            EndIf
            
        Next
        
    EndIf

    ; on efface le message
    SplashOff()
    
EndFunc