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