Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 733 fois - Téléchargée 43 fois
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
21 sept. 2002 à 09:52
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.