ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Tester l'=c3=a9criture en cours d'un fichier TXT   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

jeu. 16 août 2018, 19h36
Jean =c3=a0 Grenoble
atoutfox.public.association

Re: Tester l'=c3=a9criture en cours d'un fichier TXT

Le 16/08/2018 à 16:48, HORTY a écrit :
> j avais peur de la gestion des erreurs

Alors c'est l'occasion de tester un traitement d'erreur un peu plus poussé !

LOCAL ll_fichier_bloque AS Logical, ln_nbre_tentatives_ouverture AS number, ;
ln_retour_fopen AS number
ll_fichier_bloque = .T.
ln_nbre_tentatives_ouverture = 0
DO WHILE m.ll_fichier_bloque AND m.ln_nbre_tentatives_ouverture <20
TRY
ln_retour_fopen =FOPEN(m.TFIC_PARAM,12)
IF m.ln_retour_fopen<0
WAIT windows "Fichier bloqué" TIMEOUT 1
ln_nbre_tentatives_ouverture = m.ln_nbre_tentatives_ouverture + 1
ELSE
FCLOSE(m.ln_retour_fopen)
WAIT windows "Fichier debloqué" NOWAIT
ll_fichier_bloque = .F.
ENDIF
CATCH
* FOPEN a renvoyé une erreur : c'est grave !
WAIT WINDOWS "Erreur tentative d'ouverture du fichier texte"
ENDTRY
ENDDO && DO WHILE m.ll_fichier_bloque AND ...
IF m.ll_fichier_bloque = .F.
COPY FILE (m.TFIC_PARAM) TO (dossier de destination)
ENDIF

Bonne soirée !
Jean à Grenoble
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019176
19 174 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0