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

Forum AtoutFox : Tester l'écriture 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, 16h00
HORTY
France France

atoutfox.public.association

Tester l'écriture en cours d'un fichier TXT

Bonjour,

comme il y a quelques années je reviens vers vous pour une aide :

J'ai un automate qui scrute un dossier pour 'avaler' un fichier txt qui doit y être déposé.

/!\ Je n'ai pas la possibilité de modifier le programme qui envoie le fichier TXT dans ce dossier

Je dois attendre que le fichier en cours de création soit 'libéré' pour l'avaler. Je me suis donc dit que tester sa taille à une intervalle donnée devrait suffire.

Malheureusement, quand on essaie avec une copie 'simple' du fichier par windows tout fonctionne mais quand c'est un programme extérieur qui fait une écriture à distance, le poids n'est pas 'raffraichis' par windows.

Voici mon code :
*RECUPERER LA TAILLE DU FICHIER A LINSTANT T
tempo1 = ADIR(aFiles,"&TFIC_PARAM")

TAILLE_FICHIER = aFiles(1,2)

*FAIRE UNE TEMPO DE 8 SECONDES
WAIT windows "Fichier détecté, test écriture en cours du fichier..." TIMEOUT 8

*RAFFRAICHIR LE TABLEAU CONTENANT LE POIDS DU FICHIER
tempo2 = ADIR(bFiles,"&TFIC_PARAM")

*SI LA TAILLE A CHANGé ON SORT !
IF bFiles(1,2) # TAILLE_FICHIER
  WAIT windows "Fichier en cours d'écriture... " NOWAIT
  INKEY(1)
  RETURN
ENDIF


Je me répète, ça fonctionne très bien pour une copie de fichier via l'explorateur windows, mais avec une écriture à distance non... Le poids du fichier n'évolue pas si on ne rafraichis pas manuellement le dossier, un problème pour un fonctionnement autonome.

Merci d'avance si vous avez une idée :)

Cdt

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019173
19 157 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