PAUSE JUSQU'A CRÉATION DU FICHIER
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
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4564-pause-jusqu-a-creation-du-fichier
https://codes-sources.commentcamarche.net/source/4564-pause-jusqu-a-creation-du-fichier
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