Page 2 sur 2
Re: [..] Suppression dossiers et fichiers dans une boucle
Posté : jeu. 19 déc. 2013 17:32
par 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 ?
Re: [..] Suppression dossiers et fichiers dans une boucle
Posté : jeu. 19 déc. 2013 18:18
par 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
Re: [R] Suppression dossiers et fichiers dans une boucle
Posté : ven. 20 déc. 2013 11:48
par guillaume
Ouais c'est nickel là.
merci beaucoup pour le travail !
Re: [R] Suppression dossiers et fichiers dans une boucle
Posté : ven. 20 déc. 2013 12:52
par bloodwolff
De rien cela fais plaisirs