Option Explicit
 
Private Sub Command1_Click()
    Dim i As Integer
 
    For i = 0 To Dir1.ListCount - 1
        Dir1.ListIndex = i
        cboMandant.AddItem (Dir1.Path)
    Next i
End Sub
 
Private Sub Form_Load()
    Dir1.Path = App.Path
End Sub