Erreur .APP [Résolu]

Signaler
Messages postés
17
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
2 mai 2015
-
Messages postés
17
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
2 mai 2015
-
Bonsoir,

Voici mon code , lorsque j'essaie de le'exécuter on me dit "comple error , invalid or unqualified reference" et la première ligne devient en jaune , et le .APP en bleu .c'est la toute première appli en VB6 je suis entrain de suivre un tuto mais là j'ai des erreurs :(



Private Sub Command1_Click()

Open .App.Path & "fichier.txt" For Output As #1 'on ouvre le fichier ou on veut écrire
Print #1, Text1.Text 'on écrit dedans

Close #1 'on le ferme
End Sub

Private Sub Command2_Click()
On Error GoTo erreur 's'il y a une erreur on va à erreur
Open .App.Path & "\fichier.txt" For Input As #1 'on ouvre le fichier en lecture seulement
Input #1, a$ 'on lit et on met le contenu ds la variable a$


Close #1 'on ferme le fichier
Text1.Text = a$ 'on définit le texte de Text1 et on met ce qu'il y a dans la variable a$


Exit Sub 'on quitte la fonction si tout se passe bien
erreur:
MsgBox "Fichier introuvable", vbExclamation, ""


End Sub

EDIT: Ajout de la coloration syntaxique.

2 réponses

Messages postés
14799
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
6 juin 2021
155
".App.Path"
Pourquoi avoir mis un "." devant ?
Messages postés
17
Date d'inscription
mardi 26 mars 2013
Statut
Membre
Dernière intervention
2 mai 2015

Bonjour , j'ai pas fait attention c'était lors d'une suppression que j'ai oublié les points .. merci :)