|
Hallo andrklein,
ich kann Dir schon mal bei den folgenden Teilbereichen helfen, auch wenn dies ggf. nicht best practise ist:
Ich habe eine Userform mit 2 listboxes und zwei buttons angelegt.
Button 1 öffnet eine Dialogbox, in der der User einen Ordner auswählen kann. Der Ordnername wird in der Listbox festgeschrieben:
Private Sub button1_Click()
Dim intResult As Integer
Dim strPath As String
Dim fs As Object
Dim fPath As Object
Dim fFile As Object
Dim fFiles As Object
'Dialogbox zur Ordnerauswahl aufrufen
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
'Prüfen, ob User Cancel gedrückt hat
If intResult <> 0 Then
'OrdnerPfad festschrieben
strPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End If
Set fs = CreateObject("scripting.FileSystemObject")
'Den aktuellen Ordner auswählen
Set fPath = fs.getFolder(strPath)
'Ordnername der Listbox hinzufügen
listbox1.AddItem strPath
End Sub
Button2 schreibt die Dateinamen aus dem ausgewählten Item aus listbox 1 in listbox2 fest:
Private Sub button2_Click()
Dim strPath As String
Dim fs As Object
Dim fPath As Object
Dim fFile As Object
Dim fFiles As Object
strPath = listbox1.Value
Set fs = CreateObject("scripting.FileSystemObject")
'Den aktuellen Ordner auswählen
Set fPath = fs.getFolder(strPath)
'Alle Dateien in den gespeicherten Ordner auswählen
Set fFiles = fPath.Files
'Alle Dateinamen der Listbox hinzufügen
For Each fFile In fFiles
listbox2.AddItem fFile.Name
Next
End Sub
Vielleicht hilft das schon mal beim experimentieren.
Viele Grüße
Kai
|