Je voudrais que vous m'aidiez pour la (les) liaison(s) :
DriveListBox - DirListBox - FileListBox

et j'ai ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Command1_Click()
Dim fs, a 
Set fs = CreateObject("Scripting.FileSystemObject") 
 
Set a = fs.CreateTextFile("c:\fichiertest.txt", True) 
a.writeline ("yo yo ceci est un simple test....") 
a.writeline (DateValue(Date)) & ("  ") & (TimeValue(Time))
a.writeline (WeekdayName(7, abbreviate, firstdayofweek))
a.Close
 
End Sub
Moi je voudrais bien que le fichier se créer dans le dossier chosi DirListBox et pas dans C:\

Merci d'avance