[R] Suppression dossiers et fichiers dans une boucle

[guillaume]

d'accord.

bon maintenant j'ai un problème dans la fonction array

Code : Tout sélectionner

If StringInStr($avArray[$i], $vValue, $iCase) > 0 Then Return $i
If StringInStr($avArray[^ ERROR

array variable subscript badly formatted

ligne 980

ça vous dit quelque chose ?

[bloodwolff]

La fonction arraysearch ne gère pas default pour certain paramètre, allez me demander pourquoi je l'ignore... donc voila a nouveau le code

► Afficher le texte

Code : Tout sélectionner

#include <array.au3>
#include <file.au3>

dim $users[2] = ["backup", "plugins"]

$Dirs = _FileListToArray("C:\Users\Rioux\Desktop\Minecraft 2 - Copie", "*", 2)
If Not @error Then
    For $i = 1 To $Dirs[0]
        If  _ArraySearch($users, $Dirs[$i], 0, UBound($users) - 1, Default, 2) == -1 Then
            SupprimerDossier("C:\Users\Rioux\Desktop\Minecraft 2 - Copie\" & $Dirs[$i])
            DirRemove("C:\Users\Rioux\Desktop\Minecraft 2 - Copie\" & $Dirs[$i])
        EndIf
    Next
EndIf

Func SupprimerDossier($Chemin)
    local $Dirs = _FileListToArray($Chemin, "*", 2)
    If Not @error Then
        For $i = 1 To $Dirs[0]
            SupprimerDossier($Chemin & "\" & $Dirs[$i])
            DirRemove($Chemin & "\" & $Dirs[$i])
        Next
    EndIf

    local $Files = _FileListToArray($Chemin, "*", 1)
    if Not @error Then
       For $i = 1 To $Files[0]
            FileDelete($Chemin & "\" & $Files[$i])
        Next
    EndIf
EndFunc
 

[guillaume]

Ouais c'est nickel là.

merci beaucoup pour le travail !

[bloodwolff]

De rien cela fais plaisirs