Bonjour, je souhaiterais créer un menu déroulant en visual Basic pour parcourir un répertoire: \Users\Jonathan\Desktop\BDD MIS Server\dfiles

J'ai un petit programme trouver sur le site, mais je ne sais trop comment l'adapter:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Class Class1
    Dim fso As New FileSystemObject
    Sub Main()
        Dim Folder As 
        Dim File As
        Dim fd As Folder, PathFolder As String
        PathFolder = "C:"
        fd = fso.GetFolder(PathFolder)
        If fso.FolderExists(PathFolder) Then SearchFolder(fd)
    End Sub
 
 
    Sub SearchFolder(ByVal fld As Folder)
        Dim f As File, SubFld As Folder
        For Each f In fld.Files
            Debug.Print(f.Name)
        Next
        For Each SubFld In fld.SubFolders
            SearchFolder(SubFld)
        Next
    End Sub
End Class
Comment je dois déclarer mes variables?

Merci d'avance de votre aide