Excel VBA Move files to subfolder based folder partial name

[bmacias]

Hi.

I have several files in my source folder = "C:\test\" my target folder = "C:\iln". Within the "iln" I have sub-folders partially named after the files in the source folder (i.e. the source file is called "District Overall Score Ranking - EDINBURG" and the subfolder in the "iln" directory is named "C:\iln\EDINBURG") the name convention follows the same pattern.

What is the proper VBA code to move the files to their appropriate subfolders?

Thank you in advanced for your help.

Cheers,

Ben

 

[John_w]

Try this macro:

Public Sub Move_Files()

    Dim sourceFolder As String, destFolder As String
    Dim fileName As String, f As String
    
    sourceFolder = "C:\test\"
    destFolder = "C:\iln\"
    
    If Right(sourceFolder, 1) <> "\" Then sourceFolder = sourceFolder & "\"
    If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
    
    fileName = Dir(sourceFolder)
    While fileName <> vbNullString
        f = Split(fileName, ".")(0)
        Name sourceFolder & fileName As destFolder & Split(f, " - ")(1) & "\" & fileName
        fileName = Dir
    Wend
    
End Sub

 

[bmacias]

Try this macro:

Public Sub Move_Files()

    Dim sourceFolder As String, destFolder As String
    Dim fileName As String, f As String
   
    sourceFolder = "C:\test\"
    destFolder = "C:\iln\"
   
    If Right(sourceFolder, 1) <> "\" Then sourceFolder = sourceFolder & "\"
    If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
    fileName = Dir(sourceFolder)
    While fileName <> vbNullString
        f = Split(fileName, ".")(0)
        Name sourceFolder & fileName As destFolder & Split(f, " - ")(1) & "\" & fileName
        fileName = Dir
    Wend
   
End Sub

Thank you sir. I kid you not, I spent 8 hours trying to come-up with the code to no avail. This works perfectly!