[R] Vérification de présence de fichiers dans un répertoire

[GhostLine]

Salut à tous !

Je galère sur un truc qui doit être tout bête, mais je tourne en rond : je suis en train d'essayer de détecter la présence d'un ou plusieurs fichiers XML dans un répertoire donné (et d'afficher un message x), et de faire en sorte de sortie de ma boucle lorsqu'il n'y a plus de fichiers présents (avec un message y).

Je dois mal m'y prendre ...

func step74()
$verif_data = _FileListToArrayEx("d:\data", "*.xml", 1, 0)
MsgBox(0,"",$verif_data[0])
while 1
$verif_data = $verif_data
SplashTextOn("Verif. data", "Intégration DATA en cours ...", 400, 50, -1, -1, 33, -1, 18)
Sleep(1000)
if @error Then ExitLoop
WEnd
SplashTextOn("Verif. data", "Intégration DATA terminée", 400, 50, -1, -1, 33, -1, 18)

EndFunc

[mikell]

Comment se compliquer la vie...
Tu devrais rester simple et utiliser FileFindFirstFile dans ta boucle
Voire même un tout bête

Code : Tout sélectionner

If FileExists("d:\data" & "\*.xml") Then Msgbox(0,"", "ok")

[GhostLine]

Effectivement

Donc pour les intéressés (et Google, coupaing ) :

func step74()
while 1
If FileExists("D:\data" & "\*.xml") Then
SplashTextOn("Verif. data", "Intégration DATA en cours ...", 400, 50, -1, -1, 33, -1, 18)
sleep(1000)
Else
SplashTextOn("Verif. data", "Intégration DATA terminée.", 400, 50, -1, -1, 33, -1, 18)
sleep(2000)
ExitLoop
EndIf
WEnd
EndFunc