Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Form_Initialize()
Drive1.Drive = CurDir
End Sub
Private Sub Dir1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then MsgBox "tu as choisi le dossier " & Dir1.List(Dir1.ListIndex)
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub