[R] Problème Loop avec FileExists et FileDelete.

[XenaMelody]

Bonjour !

Il y a quelque chose que je ne comprends pas :

Code : Tout sélectionner

While FileExists(@TempDir & "\*.ScriptCreated.au3")
    MsgBox(0, "", "LoopStart")
    FileDelete(@TempDir & "\*.ScriptCreated.au3")
    If @error Then
        MsgBox(16,  "", "Problem !")
    Else
        MsgBox(0, "", "File Deleted")
    EndIf
WEnd
MsgBox(0, "", "Done")

Ce script est dans une fonction exécuté par un bouton.
Quand le script ne trouve aucun fichier, il affiche le message Done sans problème. Mais lorsque je créé un ficher x.ScriptCreated.au3, ça provoque une boucle infini. Et après un test, j'ai remarqué que FileDelete dans mon cas ne s’exécute une fois que le programme se ferme...

Mais quand j'exécute ce script sur un fichier à part sans aucune fonction, si je créer plus d'un fichier, le script s'exécute qu'une fois pour tout supprimé. Ne doit-il pas s'exécuter le même nombre de fois que de fichier ayant pour nom *.ScriptCreated.au3 ?

Merci d'avance.

[PandiPanda]

actuellement votre boucle equivaut à ceci ...

► Afficher le texte

Code : Tout sélectionner

If FileExists(@TempDir & "\*.ScriptCreated.au3") Then
    MsgBox(0, "", "LoopStart")
    $runOK=FileDelete(@TempDir & "\*.ScriptCreated.au3")
    If Not $runOK Then
        MsgBox(16,  "", "Problem !")
    Else
        MsgBox(0, "", "File Deleted")
    EndIf
EndIf
MsgBox(0, "", "Done")

Pourquoi? simplement parceque vous mettez un ExitLoop dans la boucle, sans être "entouré" de condition, forcemment il executera toujours qu'une seule fois ... par chance autoit gère les '*' donc pour ce que vous voulez faire, ca change pas grand chose ^^

pour le coup de la boucle infinie, le seul cas est que vous entouré votre boucle while par une autre boucle while !(ou do ... until)

[XenaMelody]

Désolé, je m'était trompé, j'avais mis un ExitLoop pour des tests. J'ai réédité mon message. Et j'ai remarqué quelque chose d'autre. Si je lance mon script, que j'en créer un et que j'essaye de le supprimé -> boucle infini...
Si je lance mon script, que j'en créer un, que je ferme mon script principale, que je le relance et que je lance la procédure de suppression, la boucle s'exécute qu'une seul fois... Dois-je comprendre que si j'exécute cette ligne

Code : Tout sélectionner

FileDelete(@TempDir & "\*.ScriptCreated.au3")

FileDelete va supprimer TOUT les fichiers finissants par .ScriptCreated.au3 ? Si oui, pas besoin de loop alors...

[PandiPanda]

il suffit de faire des test

► Afficher le texte

Code : Tout sélectionner

FileWrite(@ScriptDir & "\x.ScriptCreated.au3","lol")
FileWrite(@ScriptDir & "\w.ScriptCreated.au3","lol")
FileWrite(@ScriptDir & "\a.ScriptCreated.au3","lol")
Sleep(500)

If FileExists(@ScriptDir & "\*.ScriptCreated.au3") Then
    MsgBox(0, "", "LoopStart")
    $runOK=FileDelete(@ScriptDir & "\*.ScriptCreated.au3")
    If Not $runOK Then
        MsgBox(16,  "", "Problem !")
    Else
        MsgBox(0, "", "File Deleted")
    EndIf
EndIf
MsgBox(0, "", "Done")

[XenaMelody]

J'ai déjà fais les tests et bien, on peut en conclure que FilesExists, FilesDelete... eh ba c'est puissant OU ALORS * est puissant : En gros, sa marche sans Loop . Merci !

Et encore un résolut ( mon 3ème de la journée ) !