[R] Pb progress bar lors de la suppression de fichiers

[mactag]

Bonjour,

J'ai un message d'erreur lorsque j'exécute ce bout de code qui permet de verifier en temps réel les fichiers présents dans un répertoire et d'afficher une "progress bar" au fur et à mesure que les fichiers sont supprimés de ce repertoire.

La "progress bar" avance correctement au fur et à mesure que les fichiers dans c:\tmp sont supprimés mais la boucle rencontre un pb lorsqu'il n'y a plus de fichiers dans le répertoire.

Merci d'avance pour toute aide charitable.

code :

Code : Tout sélectionner

#include <File.au3>
Global $FILE
Global $INDEX
Global $FILE[0]
$DIR = ("\\127.0.0.1\c$\tmp")

If Not @error Then
    $FILE = _FileListToArray($DIR,"*",1)
    If IsArray($FILE) Then
    ProgressOn("                       Mon prog ", "Prog en cours...")
    For $INDEX = 1 To $FILE[0]

    Do
    $FILE = _FileListToArray($DIR,"*",1)
    ProgressSet($INDEX*100/$FILE[0],$FILE[$INDEX])
        Sleep(250)
    Until $FILE = 0
    Next
        ProgressSet(100, "", "Prog terminée")
        Sleep(5000)
        ProgressOff()
    EndIf
EndIf

[jbnh]

Salut,

Je comprend pas trop l'idée de ce filelisttoarray imbriqué....

Ceci suffit non ? :

Code : Tout sélectionner

#include <File.au3>
Global $FILE
Global $INDEX
Global $FILE[0]
$DIR = (@scriptdir&"\test")

If Not @error Then
    $FILE = _FileListToArray($DIR,"*",1)
    If IsArray($FILE) Then
        ProgressOn("                       Mon prog ", "Prog en cours...")
        For $INDEX = 1 To $FILE[0]      
            ProgressSet($INDEX*100/$FILE[0],$FILE[$INDEX])
                Sleep(250)
        Next
            
        ProgressSet(100, "", "Prog terminée")
        Sleep(5000)
        ProgressOff()
    endif
EndIf

[mactag]

Merci de m'avoir consacré un peu de votre temps.

Le soucis c'est que sans "do" et "Until $file = 0" le programme se lance et liste tous les fichiers et se ferme.

Avec "do" et le "Until $file = 0" le programme se comporte comme je veux, c'est à dire, il liste les fichiers et attend la suppression des fichiers et à chaque suppression de fichier(que je fais à la main pour simuler l'action d'un programme tierce) la barre avance, quand il n'y a plus de fichiers la barre de progression se termine, sauf qu'il y a une erreur.

Le programme fait exactement ce que je veux sauf qu'à la fin il y a un message d'erreur au lieu du message "Prog terminé"

[mikell]

Le problème est dans la boucle Do
Quand il n'y a plus de fichiers, _FileListToArray échoue donc $FILE n'est pas une array mais la ligne suivante appelle quand même $FILE[0] et $FILE[$INDEX] d'où erreur
Solution :

Code : Tout sélectionner

   Do
    $FILE = _FileListToArray($DIR,"*",1)
    [color=#BF0000]If not IsArray($FILE) Then Exitloop[/color]
    ; ...

Cela dit faudrait revoir sérieusement la déclaration des variables

[mactag]

Ca a fonctionné au poil
Merci beaucoup.

[jguinch]

mactag, la balise [R] se met dans le titre du premier message.
Je l'ai fait pour celui-ci

[mactag]

OK désolé