Erreur .APP Résolu

Question

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.

NHenry · Answer

".App.Path"
Pourquoi avoir mis un "." devant ?

Salouli · Answer

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

Erreur .APP

2 réponses

Votre réponse

Discussions similaires