Pause jusqu'a création du fichier

Commenter

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

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.