DirCommand: code

Eerst synchroniseren we de directorylijst met de keuze van de schijf.
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
We gaan de lijst van de bestanden op twee momenten tonen: bij het veranderen van de tekst, en bij het veranderen van map. Dat kunnen we doen door een subroutine te maken die we oproepen bij beide gebeurtenissen.
Private Sub txtFilter_Change()
maakdir
End Sub

Private Sub Dir1_Change()
maakdir
End Sub
Een probleem: we hebben de geselcteerde map nodig. ALs het de root is, eindigt die op \, anders niet. Daarom deze functie:
Function ext(padnaam As String) As String
If Right(padnaam, 1) = "\" Then
ext = padnaam
Else
ext = padnaam & "\"
End If
End Function
De eigenlijke routine om de lijst samen te stellen:
Sub maakdir()
Dim dirtekst As String
Dim bestand As String
bestand = Dir$(ext(Dir1.Path) & txtFilter.Text)
Do
dirtekst = dirtekst & bestand & vbCrLf
If Not bestand = "" Then
bestand = Dir$ 'zoniet foutmelding indien bestand niet gevonden
End If
Loop Until bestand = ""
lblDir.Caption = dirtekst
End Sub