Move selected files to selected folder based on excel list

[sprs248]

Hi, I want to move left blue colored files to rightly mentioned red colored folder in all below cases. File name	Folder name
C:\Users\LENOVO\Desktop\New folder	C:\Users\LENOVO\Desktop\New folder\CSC21251
CSC212512016120120161231.emd	CSC21251
CSC212512017010120170131.emd	CSC21251
CSC212512017020120170228.emd	CSC21251
CSC213032016120120161231.emd	CSC21303
CSC213032017010120170131.emd	CSC21303
CSC213032017020120170228.emd	CSC21303
CSC217242016050120160531.emd	CSC21724
CSC219082016090120160930.emd	CSC21908
CSC219082016100120161031.emd	CSC21908
CSC219082016110120161130.emd	CSC21908

<colgroup><col><col></colgroup><tbody>
</tbody>

THANKS...

 

[sprs248]

Hi @sprs248,

Try with the below code

Option Explicit


Sub MoveFiles()
    Dim FSO As Object
    Dim PATH, sourcefile As String, dest, DestinationFolderName, SourceFileName, Filename As String
    Dim lr, x As Long
    
    Set FSO = CreateObject("Scripting.Filesystemobject")
    PATH = Range("D2").Value
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
    If PATH <> "" Then
        For x = 2 To lr
            SourceFileName = Range("A" & x).Value
            DestinationFolderName = Range("B" & x).Value
            sourcefile = PATH & "\" & SourceFileName & ".emd"
            dest = PATH & "\" & DestinationFolderName & "\" & SourceFileName & ".emd"
            If Not FSO.FileExists(sourcefile) Then
                MsgBox ("File Not Found in " & sourcefile)
            Else
                FSO.MoveFile source:=sourcefile, Destination:=dest
                MsgBox (sourcefile + " Moved to " + dest)
            End If
        Next x
    Else
        MsgBox ("Please Insert PATH in cell 'D2'")
        Exit Sub
    End If
End Sub

Regards
Dhruva

Not understood... Which Cell contains what parameter ... Also after run the code, it asks for content of D Cell..
Kindly help.. i am shortage of time..

 

[harky]

Cant u just use =CONCATENATE() to create the full path?

File name	Folder name
C:\Users\LENOVO\Desktop\New folder\	C:\Users\LENOVO\Desktop\New folder\CSC21251
C:\Users\LENOVO\Desktop\New folder\CSC212512016120120161231.emd	C:\Users\LENOVO\Desktop\New folder\CSC21251
C:\Users\LENOVO\Desktop\New folder\CSC212512017010120170131.emd	C:\Users\LENOVO\Desktop\New folder\CSC21251
C:\Users\LENOVO\Desktop\New folder\CSC212512017020120170228.emd	C:\Users\LENOVO\Desktop\New folder\CSC21251
C:\Users\LENOVO\Desktop\New folder\CSC213032016120120161231.emd	C:\Users\LENOVO\Desktop\New folder\CSC21303
C:\Users\LENOVO\Desktop\New folder\CSC213032017010120170131.emd	C:\Users\LENOVO\Desktop\New folder\CSC21303
C:\Users\LENOVO\Desktop\New folder\CSC213032017020120170228.emd	C:\Users\LENOVO\Desktop\New folder\CSC21303
C:\Users\LENOVO\Desktop\New folder\CSC217242016050120160531.emd	C:\Users\LENOVO\Desktop\New folder\CSC21724
C:\Users\LENOVO\Desktop\New folder\CSC219082016090120160930.emd	C:\Users\LENOVO\Desktop\New folder\CSC21908
C:\Users\LENOVO\Desktop\New folder\CSC219082016100120161031.emd	C:\Users\LENOVO\Desktop\New folder\CSC21908
C:\Users\LENOVO\Desktop\New folder\CSC219082016110120161130.emd	C:\Users\LENOVO\Desktop\New folder\CSC21908

<tbody>
</tbody>

I have large volume of files for moving...

 

[sprs248]

Cant u just use =CONCATENATE() to create the full path?

After Run the Code, the instruction says "Please insert PATH in Cell "D2""

 

[harky]

use his old code will work well as long u put in full path.
https://www.dropbox.com/s/khdd4a1kxcy0fqi/Move_Files_V1.xlsm?dl=0

After Run the Code, the instruction says "Please insert PATH in Cell "D2""

 

[sprs248]

use his old code will work well as long u put in full path.
https://www.dropbox.com/s/khdd4a1kxcy0fqi/Move_Files_V1.xlsm?dl=0

Moved all files into the first path...

 

[harky]

or this one?
https://www.ozgrid.com/forum/forum/help-forums/excel-general/126154-vba-code-to-move-multiple-files

After Run the Code, the instruction says "Please insert PATH in Cell "D2""

 

[harky]

dont understand.

There is only Source & Destination

Move from Folder 1 to Folder 2 tht all..

anyway i am not a scripting but it seen like he wrote what u want

Col A (File located at) Source	Col B (Move to) Destination	Filename (What file to be move from COl A)
C:\Users\LENOVO\Desktop\New folder	C:\Users\LENOVO\Desktop\New folder\CSC21251	CSC212512016120120161231.emd

<tbody>
</tbody>

Moved all files into the first path...

 

[sprs248]

or this one?
https://www.ozgrid.com/forum/forum/help-forums/excel-general/126154-vba-code-to-move-multiple-files

Yes I want this ... but dont know where to edit my source and destination .. Please help.

 

[harky]

There is a table.
Just follow

It actually the same as what he give u just tht he put at col C....
But since this code he hardcord the .ext (u just need to put the filename without ext.)

just put the full path at the excel table

Yes I want this ... but dont know where to edit my source and destination .. Please help.

 

[sprs248]

There is a table.
Just follow

It actually the same as what he give u just tht he put at col C....
But since this code he hardcord the .ext (u just need to put the filename without ext.)

just put the full path at the excel table

Thanks for your guidance,...