Looping through a folder

[tiredofit]

I want to loop through the files in a folder, select only one that is NOT Thisworkbook, do something, then exit the loop.

    Dim SelectedFile As String
    
    SelectedFile = Dir(PathName:="C:\MyFolder\")


    Do Until SelectedFile <> ThisWorkbook.Name

    
        If SelectedFile <> ThisWorkbook.Name Then
        
           ' do something    
        
        End If
       
        SelectedFile = Dir

    Loop

However, the code above doesn't quite work.

How can I amend it?

Thanks

 

[RoryA]

Try something like:

Dim SelectedFile As String
    
    SelectedFile = Dir(PathName:="C:\MyFolder\")


    Do Until SelectedFile <> ThisWorkbook.Name
       
        SelectedFile = Dir

    Loop

        If SelectedFile <> "" Then
        
           ' do something    
        
        End If

 

[tiredofit]

Thanks