Visual Basic / VB.NET : Pause jusqu'a création du fichier

Contenu du snippet

Cette sub permet de mettre le programme en pause tant qu'un fichier n'existe pas.
Dans le code c'est le fichier listing.LST mais on peut mettre n'importe lequel
Pausetime correspond à l'intervalle de temps (en secondes) entre chaque test pour savoir si le fichier existe

Source / Exemple :

Public Sub pauselisting(pausetime As Integer)
'crée une pause dans le programme jusqu'à ce que le fichier Listing.LST existe
Dim filecree as string
Dim start

debut1:
  start = Timer ' Définit l'heure de début.
  Do While Timer < start + pausetime
    DoEvents  ' Donne le contrôle à d'autres processus.
  Loop
  filecree = Dir("C:\optub2\listing.LST")
  If filecree = "listing.LST" Then
    GoTo suite1
  End If
  GoTo debut1
suite1:

End Sub

A voir également

Ajouter un commentaire Commentaire

celiphane

Messages postés: 466
Date d'inscription: samedi 16 février 2002
Statut: Membre
Dernière intervention: 20 avril 2007

21 sept. 2002 à 09:52

Avec une gestion d'erreur comme ça, c'est moins long comme code ! Non ?

Sub WaitForFile(byval Fich as string)
On error goto PasCree
Dim Num as Integer : Num=FreeFile
10 open Fich for input as #Num
close #Num
Exit sub
PasCree:
Err.clear
Doevents
Resume 10
End Sub

Et encore, j'ai pris des lignes pour déclarer Num, mais ceux qui programment comme des barbares peuvent directement ouvrir le fichier comme N°1 ou autre...

Tchao

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Source / Exemple :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !