Move files from different folders to single folder and delete the original files

[Raja_1983]

Hello,

I have more than 100 different folders in a common folder and inside which there are PDF are stored.

The list of file names stored inside each folder is known and name of the folders are also known.

I want to get back PDF files and delete original files inside the folders.

Need your help to VBA code for the above scenario.I hereby attach the excel file for your reference.

Move and Delete Original Files.xlsx

[mana]

Sub test()
    Dim r As Range
    Dim k As Long
    Dim src As String, dst As String, fn As String
    
    Set r = Cells(1).CurrentRegion
    
    For k = 2 To r.Rows.Count
        fn = r.Cells(k, 2).Value
        src = r.Cells(k, 1).Value & "\" & fn
        dst = r.Cells(k, 3).Value & "\" & fn

        If (Dir(src) <> "") * (Dir(dst) = "") Then
            Name src As dst
            r.Cells(k, 4).Value = "Moved"
        End If
    Next
    
End Sub

マナ

[Raja_1983]

Dear Mana,
Thanks for the support.
If the source folder have different files((file names),then it is working fine.
But if one or more source folders having same files(file names),then it is not working
Pls help..

[Raja_1983]

Dear Mana,
Sorry now the code is working well
I create seperate folder in destination to retrive the files from source folders
Now files having same filename also moved to destination
Thanks for your exreme support.

[snb]

@mana

No need for an object variable: an array suffices.
No further slow interaction with the sheet required.
.

Sub test()
  sn = Cells(1).CurrentRegion
    
  For j = 2 To ubound(sn)
   sn(j,4)=sn(j,1) & "\" & sn(j,2)
   sn(j,3)=sn(j,3) & "\" & sn(j,2)
   If (Dir(sn(j,1)) <> "") * (Dir(sn(j,3)) = "") Then Name sn(j,1) As sn(j,3)
  Next

  Cells(1).CurrentRegion = sn
End Sub

[mana]

Thanks for the useful advice.

@mana

No need for an object variable: an array suffices.
No further slow interaction with the sheet required.
.