papounez
Messages postés118Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention18 novembre 2008
-
11 sept. 2005 à 22:13
papounez
Messages postés118Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention18 novembre 2008
-
11 sept. 2005 à 22:40
Bonsoir!
quel code pour empecher la sortie du prog.
qand j'ouvre un fichier qui existe pas
Voici mon code
FF = FreeFile
Open "E:\Mes Documents" & "F" & NFich & ".bas" For Input As #FF 'ouvre le fichier en lecture
Do While Not EOF(FF) 'boucle ligne par ligne sur le fichier
Line Input #FF, Ligne 'Stocke dans la variable ligne chaque ligne
TextFich.Text = TextFich.Text & Ligne & vbCrLf ' afiche les lignes
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 11 sept. 2005 à 22:33
Violent Ken
Ton fichier existe bien, non ?
Alors c'est ta boucle qui est mauvaise. Essaie plutôt :
Open "E:\Mes Documents" & "F" & NFich & ".bas" For Input As #1 'ouvre le fichier en lecture
While Not EOF(1) 'boucle ligne par ligne sur le fichier
Line Input #1, Ligne 'Stocke dans la variable ligne chaque ligne
TextFich.Text = TextFich.Text & Ligne & vbCrLf ' afiche les lignes
Doevents 'rend la main
Wend
Close #1
@+
Vous n’avez pas trouvé la réponse que vous recherchez ?