Pause jusqu'a création du fichier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 610 fois - Téléchargée 41 fois

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

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

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

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.