Private Sub Command1_Click()
On Error Resume Next
Dim NumFichier As Integer
NumFichier = FreeFile()
MkDir "c:\MonRep"
Open ("c:\MonRep\MonFichier.txt") For Output As NumFichier
Print #NumFichier, "Ceci est le contenu du fichier txt"
Close NumFichier
End Sub
|
-------------------------------
Réponse au message :
-------------------------------
C'est plate a dire mais sa marche pas
Il y aurait t-il une autre manière
-------------------------------
Réponse au message :
-------------------------------
Dim NumFichier As Integer
MkDir ("MonRep")
Open ("MonRep\MonFichier.txt") For Output As NumFichier
Print #NumFichier, "Ceci est le contenu du fichier txt"
Close NumFichier
|
-------------------------------
Réponse au message :
-------------------------------
Bonjour tout le monde
Jai une question, comment faire pour enregistrer un fichier texte (.txt) dans un dosier que j'ai créé avec MkDir
merci de vos réponse