AutoIt Français

Code : Tout sélectionner

[repertoire]
repertoire1=\\serveur1\Lundi
repertoire2=\\serveur1\Mardi
repertoire3=\\serveur1\Mercredi
repertoire4=\\serveur2\Lundi
repertoire5=\\serveur2\Mardi

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>
$file = FileOpen("test.ini", 0)                                                     
$repertoire = IniReadSection ("test.ini", "repertoire")
$day = @WDAY

If @error Then 
    MsgBox(4096, "", "Fichier test.ini non trouvé")                                    
Else
    For $i = 1 To $repertoire[0][0]                                                
        FileDelete($repertoire[$i][1])                                              
        $FileList=_FileListToArray($repertoire[$i][1])
            If  $FileList = $day  and @error <> 1 and @error <> 4 Then  ; Si le repertoire existe et qu'il y a des fichiers/respertoires à supprimer                                            
            For $j = 1 to $FileList[0]                                                  
                DirRemove($repertoire[$i][1] & "\" & $FileList[$j], 1)      
            Next    
        EndIf   
    Next
EndIf

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

$i = 0               
$j = 0              
$file =""            
$repertoire = ""   
$FileList = ""  
Dim $BackupPath = "D:\MyPathBackup"
Dim $ServersName = ("Monserveur1, Monserveur2")

;Déclaration des variable interne
Dim $ServersName, $i
Dim $Day [8] = ["7", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"]   
$ServersName = StringSplit($ServersName, ",")

$file = FileOpen("test.ini", 0)                                                   
Local $DayBackupPath = $BackupPath & "\" & $ServersName[$i] & "\" & $Day[@WDAY]

If @error Then
    MsgBox(4096, "", "Fichier test.ini non trouvé")                                   
                          
Else
    If  $repertoire = $DayBackupPath Then 
        For $i = 1 To $repertoire[0][0]                                                     
                
            FileDelete($repertoire[$i][1])                                  
            $FileList=_FileListToArray($repertoire[$i][1])                              
                                           
            For $j = 1 to $FileList[0]                                                  
            DirRemove($repertoire[$i][1] & "\" & $FileList[$j], 1)                  
            Next
   Next  
        
    EndIf
EndIf

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>

$var = IniReadSection("C:\Temp\myfile.ini", "section2")
Dim $BackupPath = "D:\MyPathBackup"
Dim $ServersName = ("TMonserveur1,Monserveur2")
$FileList = ""
$i = 0
$j = 0
; Déclarations internes.
Dim $ServersName, $z
Dim $Day [8] = ["7", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"]   
$ServersName = StringSplit($ServersName, ",")

Local $DayBackupPath = $BackupPath & "\" & $ServersName[$z] & "\" & $Day[@WDAY]

While $var[$i][1] = $DayBackupPath 
If @error Then 
    MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
        
                For $i = 1 To $var[0][0]
                        FileDelete($var[$i][1])                                                 
                        $FileList=_FileListToArray($var[$i][1])
                Next
                    If  @error <> 1 and @error <> 4 Then                                            
                        For $j = 1 to $FileList[0]                                                  
                            DirRemove($var[$i][1] & "\" & $FileList[$j], 1) 
                        Next
                    EndIf
                                                                            EndIf
WEnd
                                        
 

Code : Tout sélectionner

 For $i = 1 To $var[0][0]
                        FileDelete($var[$i][1])                                                 
                        $FileList=_FileListToArray($var[$i][1])
                Next
                    If  @error <> 1 and @error <> 4 Then                                            
                        For $j = 1 to $FileList[0]                                                  
                            DirRemove($var[$i][1] & "\" & $FileList[$j], 1) 
                        Next

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

;~ $i = 0           dans votre script cela ne sert à rien
;~ $j = 0           dans votre script cela ne sert à rien
;~ $file =""          dans votre script cela ne sert à rien
;~ $repertoire = ""  dans votre script cela ne sert à rien
;~ $FileList = ""  dans votre script cela ne sert à rien
;~ Dim $BackupPath = "D:\MyPathBackup" dans votre script cela ne sert à rien et la syntaxe n'est pas bonne
;~ Dim $ServersName = ("Monserveur1, Monserveur2") dans votre script cela ne sert à rien et la syntaxe n'est pas bonne

;Déclaration des variable interne
;~ Dim $ServersName, $i dans votre script cela ne sert à rien et la syntaxe n'est pas bonne
Dim $Day[8] = ["7", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi"]
;~ $ServersName = StringSplit($ServersName, ",") dans votre script cela ne sert à rien

;~ $file = FileOpen("test.ini", 0)    dans votre script cela ne sert à rien  il n'y a pas besoin d'ouvrir un fichier ini
;~ Local $DayBackupPath = $BackupPath & "\" & $ServersName[$i] & "\" & $Day[@WDAY]

;~ $var = IniReadSection("C:\Temp\myfile.ini", "section2") vous n'avez pas de section2 dans votre ini
$repertoire = IniReadSection("test.ini", "repertoire")
If @error Then
    MsgBox(4096, "", "Fichier test.ini non trouvé")

Else
;~     If  $repertoire = $DayBackupPath Then dans votre script $repertoire ="" ( en ligne 7 )
    For $i = 1 To $repertoire[0][0]

;~             FileDelete($repertoire[$i][1])      vous dites ne pas effacer ce dossier alors pourquoi le faite vous ici

        $morceau_du_chemin = StringSplit($repertoire[$i][1], "\") ; je troncone le chemin avec \
        MsgBox(0, "le chemin complet de " & $repertoire[$i][0], "est " & $repertoire[$i][1]&@crlf&"la fin est "&$morceau_du_chemin[4])
        
        If $morceau_du_chemin[4] = $Day[@WDAY] Then ; je test si le dernier troncon correspond a aujourd'ui
            $FileList = _FileListToArray($repertoire[$i][1])
            For $j = 1 To $FileList[0]
;~             DirRemove($repertoire[$i][1] & "\" & $day[@WDAY], 1)
                MsgBox(0, "DirRemove", $repertoire[$i][1] & "\" & $Day[@WDAY]) ; ligne de testj'efface que lorsque je suis sur de mon programme
            Next
        EndIf
    Next

EndIf