VBA read files in folder

filesinfolder.bas

Sub LoopThroughFiles()
    Debug.Print ""
    Debug.Print "-------------------------------------------------"
    
    
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim i As Integer
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(GetFolderPath)
    
    For Each oFile In oFolder.Files
    
        'Cells(i + 1, 1) = oFile.Name
        'Cells(i + 1, 2) = oFile.Path
        Debug.Print oFile.Name & " => " & oFile.Path
        
    
        i = i + 1
    
    Next oFile

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