Créer et écrire dans un repertoire

Bonjour

J'arrive à créer et écrire dans un fichier texte mais j'aimerais créer et écrire un fichier texte dans un dossier.

Exemple:

je sais faire G:/texte.txt

Et je veux faire G:/MonTexte/texte.txt

Mon code que j'utilise:

Dim Chemin As String
Chemin = "G:/MonTexte/texte.txt"
Open Chemin For Output As #1

Mais ça marche pas..

Merci

Bonjour,

esssaie ceci

Dim Chemin As String

on error resume next
mkdir "g:\MonTexte" ' crée le répertoire s'il n'existe pas.
on error goto 0
Chemin = "G:\MonTexte\texte.txt"
Open Chemin For Output As #1

Merci c'est que que je cherchais..

Comment mettre en résolu?

Tu as un petit V en vert a coter de ton message si tu passe ta souris dessus, un message apparait. tu as plus qu'a cliqué.

Bonne soirée