All Files in Folder

Sub LoopThroughFiles()
    Dim StrFile As String
    StrFile = Dir("E:\Dropbox\Excel\VBA TO EXCEL\*home*")
    Do While Len(StrFile) > 0
        Debug.Print StrFile
        StrFile = Dir
    Loop
End Sub
Total Page Visits: 120 - Today Page Visits: 2

Leave a Reply