Faire une boucle afin d'attendre qu'un fichier txt soit accessible ..

Question

Bonjour, dans ce nouveau jour de programmation intense :)) !!

Je fais un petit soft qui va r&#233;guli&#232;rement chercher des informations dans un fichier .txt sur un PC serveur de fichiers.

Or, le pb, c'est que le soft est lanc&#233; par plusieur b&#233;canes qui acc&#232;dent au meme fichier txt.

Et bien sur, il arrive un moment o&#249;, lorsque je fait un

open "[file://serveur/fichier.txt \serveur\fichier.txt]" for input as #1
(avec le close #1 qui va bien, mais un peu plus bas dans le code)

il renvoit un msg d'erreur disant que le fichier est dej&#224; ouvert !!

Exise-t'il un moyen de faire une boucle attendant que le fichier soit bel et bien ferm&#233; !!

Merci encore ..

ScSami · Answer

T'a qu'a traiter l'erreur et faire une boucle jusqu'a ce qu'elle ne soit plus l&#224; !!!



C'est une question int&#233;ressante &#231;a et qui doit forc&#233;ment avoir une r&#233;ponse un peu plus propre que la gestion de l'erreur...


Enjoy  

 
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter ...")

cs_Jack · Answer

Salut
En mode d'acc&#232;s s&#233;quentiel, il n'est pas possible d'ouvrir un fichier d&#233;j&#224; ouvert.
Pa contre, au sein d'un m&#234;me programme, c'est possible en mode Binary, mais les acc&#232;s d'entr&#233;e/sortie sont un peu diff&#233;rentes; regarde l'aide de la fonction Open
Pour g&#233;rer le blocage d'acc&#232;s du fichier par d'autre processus (comme c'est ton cas), regarde aussi l'option 'Lock' de la fonction Open : Il suffit d'ajouter 'Shared' dans le Open pour autoriser un acc&#232;s multiple au fichier.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

ScSami · Answer

Merci pour l'info Jack... tr&#232;s utile &#231;a !!!


Enjoy  

 
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter ...")

nagstef · Answer

Je vais matter au niveau de la foncton Open, mais sinon, comment je traite les erreurs par une boucle ??

PS : mon code qui d&#233;conne

    If Dir(textline & textline3) = textline3 Then Close #1: GoTo 200

merci encore de votre aide

ScSami · Answer

Oul&#224;, c'est une autre histoire &#231;a !!!



D&#233;j&#224;, il faut savoir sous quoi tu codes !!!



En VB6, pour g&#233;rer les erreurs il faut initialiser un gestionnaire d'erreur... c'est &#224; dire faire un truc du style :



'A &#233;crire dans la m&#234;me proc&#233;dure/fonction



'Active le gestionnaire d'erreur

On Error Goto label  'Ici "label" peut &#234;tre remplac&#233; par ce que tu veux...



...



'D&#233;sactive le gestionnaire d'erreur

On Error Goto 0  '"0"(z&#233;ro et pas "eau") c'est pour annuler le gestionnaire... c'est pas le label nomm&#233; "0" !!!



Exit Sub  'Ou "Exit Function", c'est selon...

label:  'Label... tout texte valide... remplace les num&#233;ros de lignes mais attention &#224; ne pas oublier les deux points !!!

 'Traitement des erreurs... Il faut utiliser les propri&#233;t&#233;s de
l'objet "Err"... Consulte la MSDN (l'aide du VB) pour plus d'infos...

 If Err.Number Then...

End Sub
  'Ou "End Function", c'est selon &#233;galement...




Mais y'a aussi "On Error Resume Next" qui saute le truc qui a engendr&#233;
l'erreur et poursuit le cours du programme (ce qui peut avoir des
effets inattendus!).



Le mieux est encore de te r&#233;f&#233;rer &#224; l'aide du VB (la MSDN donc) pour "On Error ..." et "Err"...


Enjoy  

 
(Si une r&#233;ponse vous convient, cliquez sur son bouton "Accepter ...")

Faire une boucle afin d'attendre qu'un fichier txt soit accessible ..

5 réponses

Discussions similaires