Private Sub Form_Load()
 
    ' ListView auf die Form ziehen
    ListView1.View = lvwList
    Call GetFiles("C:\", ListView1)
    Call GetFiles("C:\res", ListView1)
 
End Sub
 
Private Sub GetFiles(FolderPath As String, lvw As ListView)
 
    ' Unter Projekt\Referenzen die "Microsoft Scripting Runtime" hinzufügen!!!
    Dim oFSO As New FileSystemObject
 
    If oFSO.FolderExists(FolderPath) = True Then
 
        Dim oFolder As Folder
        Set oFolder = oFSO.GetFolder(FolderPath)
 
        Dim oFile As File
            For Each oFile In oFolder.Files
                lvw.ListItems.Add 1, , oFile.Name
                lvw.ListItems(1).Tag = oFile.Path
            Next
    End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.