Unterordner mit einbeziehn bei der Suche
01.10.2008 11:13:49
Markus
hab ein Makro das mir alle Dateinamen in eine Listbox auflistet.
Vorher hab ich den Ordner über GetDirectory(Msg) ausgewählt.
Es listet aber nur die Dateien aus dem einen Ordner möchte gern auch die Unterordner bei der suche mit einbeziehn. Was muss ich ändern?
Sub Ordnerwählen()
Dim Msg As String
Dim alt$
Dim a%, b%
Msg = "Ordner wählen!"
alt = UserForm1.TextBox1.Text
UserForm1.TextBox1.Text = GetDirectory(Msg)
If UserForm1.TextBox1.Text = "" Then UserForm1.TextBox1.Text = alt
aktualisieren
End Sub
Sub aktualisieren()
Dim Datei$
UserForm1.ListBox1.Clear
Datei = Dir(UserForm1.TextBox1.Text & "\*.jpg")
UserForm1.ListBox1.AddItem (Datei)
Do While Datei ""
Datei = Dir()
If Datei "" Then
UserForm1.ListBox1.AddItem (Datei)
End If
Loop
Datei = Dir(UserForm1.TextBox1.Text & "\*.psd")
UserForm1.ListBox1.AddItem (Datei)
Do While Datei ""
Datei = Dir()
If Datei "" Then
UserForm1.ListBox1.AddItem (Datei)
End If
usw.usw.