VBA - Schleife Ordner mit Leerzeichen Adresse

Question

Ich habe eine Funktion, die den Benutzer fragt, wählen Sie einen Ordner und dann einen anderen, der alle Dateinamen in diesem Ordner ausgeben soll. Ich habe Folgendes versucht, aber es funktioniert nicht, da die Ordneradresse Leerzeichen enthält. Kannst du bitte helfen?

'gets folder address 
recsFolder = Functions.GetFolder("C:\") 

'Loop through files in folder 
Dim StrFile As String 
StrFile = Dir(recsFolder) 
Do While Len(StrFile) > 0 
    Debug.Print StrFile 
    StrFile = Dir 
Loop 

Vielen Dank!

Edit: Code GetFolder

Function GetFolder(strPath As String) As String 
    Dim fldr As FileDialog 
    Dim sItem As String 
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker) 
    With fldr 
     .Title = "Select a Folder" 
     .AllowMultiSelect = False 
     .InitialFileName = strPath 
     If .Show <> -1 Then GoTo NextCode 
     sItem = .SelectedItems(1) 
    End With 
    NextCode: 
    GetFolder = sItem 
    Set fldr = Nothing 
End Function 

durch Leerzeichen I Räume bedeuten, die in der Adresse vorhanden sind (dh zwischen Tages- und Zusammenfassung) C: \ Benutzer \ User1 \ Desktop \ Tägliche Zusammenfassung

Answer 1

ändern

StrFile = Dir(recsFolder) 

Um

StrFile = Dir(recsFolder & "\*.*") 

Answer 2

Sie müssen Dir() mit einem Dateimuster angeben, um Dateien aufzulisten.

Wechseln zu:

StrFile = Dir$(recsFolder & "\*.*")