File System Object Late Binding

[tiredofit]

This code:

Private Sub LoopFolders(ByRef Loc As String)
    
    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    
    Dim fol As Scripting.Folder
    
    Dim f As Scripting.File
    
    Dim subfol As Scripting.Folder
    
    Set fol = fso.GetFolder(FolderPath:=Loc)
    
    For Each f In fol.Files
        
        Call GetInfo(f:=f)
       
    Next f
    
    For Each subfol In fol.SubFolders
        
        Loc subfol.Path
    
    Next subfol

Private Sub GetInfo(ByRef f As Scripting.File)

    Call Workbooks.Open(Filename:=f.Path)

End Sub

was adapted from here:

https://www.wiseowl.co.uk/vba-macros/videos/vba-files-folders/files-folders/

I want to convert it late binding.

I've tried this:

Private Sub LoopFolders(ByRef Loc As String)
    
    Dim fso As Object 'Scripting.FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim fol As Object
    
    Dim f As Object
    
    Dim subfol As Object
    
    Set fol = fso.GetFolder(FolderPath:=Loc)
    
    For Each f In fol.Files
        
        Call GetInfo(f:=f)

    Next f
 
    For Each subfol In fol.SubFolders
        
        LoopFolders subfol.Path
    
    Next subfol

End Sub

Private Sub GetInfo(ByRef f)

    Call Workbooks.Open(Filename:=f.Path)

End Sub

but it fails on this line:

For Each f In fol.Files

How can I convert it to late binding?

Thanks

 

[JEC]

This is a routine for iterating through folders and subfolders with late binding.

Dim oFSO As Object, ar(2000, 0), x As Long

Sub jec()
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 With Application.FileDialog(4)
   If .Show = 0 Then Exit Sub
   GetFiles .SelectedItems(1)
   If x Then Cells(2, 2).Resize(x) = ar
   Erase ar: x = 0
 End With
End Sub

Sub GetFiles(xFold)
 Dim Obj As Object
 If Right(xFold, 1) <> "\" Then xFold = xFold & "\"
 With oFSO.GetFolder(xFold)
    For Each Obj In .Files
       ar(x, 0) = Obj.Name
       x = x + 1
    Next
    For Each Obj In .SubFolders
       GetFiles xFold & Obj.Name
    Next
 End With
End Sub

 

[tiredofit]

This is a routine for iterating through folders and subfolders with late binding.

Dim oFSO As Object, ar(2000, 0), x As Long

Sub jec()
 Set oFSO = CreateObject("Scripting.FileSystemObject")
 With Application.FileDialog(4)
   If .Show = 0 Then Exit Sub
   GetFiles .SelectedItems(1)
   If x Then Cells(2, 2).Resize(x) = ar
   Erase ar: x = 0
 End With
End Sub

Sub GetFiles(xFold)
 Dim Obj As Object
 If Right(xFold, 1) <> "\" Then xFold = xFold & "\"
 With oFSO.GetFolder(xFold)
    For Each Obj In .Files
       ar(x, 0) = Obj.Name
       x = x + 1
    Next
    For Each Obj In .SubFolders
       GetFiles xFold & Obj.Name
    Next
 End With
End Sub

Thanks for the code.