ouvrir un fichier texte enregistrer sous un repertoire et sous repertoire

Question

bonjour à tous,
je ne parviens pas à ouvrir unfichier texte enregistré dans un répertoire puis sous repertoire etc....
je joins le code pour enregistrer pouvez vous m'aider pour afficher le text dans un textbox.

d'avance merci.

code :

Private Sub Command1_Click()
Dim repertoire, sousrepertoire, soussousrepertoire, Fichier  As String
repertoire = nomdelenfant
Fichier = datememo
sousrepertoire = année
soussousrepertoire = mois
If Dir("c:" & repertoire, vbDirectory) = vbNullString Then
MkDir "c:" & repertoire
End If
If Dir("c:" & repertoire & "" & sousrepertoire, vbDirectory) = vbNullString Then
MkDir "c:" & repertoire & "" & sousrepertoire
End If
If Dir("c:" & repertoire & "" & sousrepertoire & "" & soussousrepertoire, vbDirectory) = vbNullString Then
MkDir "c:" & repertoire & "" & sousrepertoire & "" & soussousrepertoire
End If
If Dir$("c:" & repertoire & "" & sousrepertoire & "" & soussousrepertoire & Fichier & ".txt", vbDirectory) = vbNullString Then
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("c:" & repertoire & "" & sousrepertoire & "" & soussousrepertoire & "" & Fichier & ".txt")
With MonFic
.writeLine txtvariable2.Text
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox (Msg)
End If
End Sub

cs_Jack · Answer

Salut 
Manque un "" :
If Dir$("c:" & repertoire & "" & sousrepertoire & "" & soussousrepertoire & "" & Fichier & ".txt", vbDirectory) = vbNullString Then
De plus, dans cette ligne, tu recherches un vbDirectory alors que c'est un fichier que tu cherches, ça ne peut pas marcher : enlève vbDrirectory

Regarde aussi parmi les sources de vbfrance et cherche "répertoire récursif" et tu verras cette source
Vala
Jack
 NB : Je ne répondrai pas aux messages privés

cs_Jack · Answer

Et puis j'avais pas vu : manque aussi un "" après le C:
Que d'étourderies !
Relis bien tes lignes avant de venir ici

Vala
Jack
 NB : Je ne répondrai pas aux messages privés

Ouvrir un fichier texte enregistrer sous un repertoire et sous repertoire

2 réponses

Discussions similaires