Move selected files to selected folder based on excel list

[sprs248]

[TABLE="width: 578"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD]Hi,
I want to move left blue colored files to rightly mentioned red colored folder in all below cases.

File name[/TD]
[TD]




Folder name[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[/TR]
[TR]
[TD]CSC212512016120120161231.emd [/TD]
[TD]CSC21251[/TD]
[/TR]
[TR]
[TD]CSC212512017010120170131.emd[/TD]
[TD]CSC21251[/TD]
[/TR]
[TR]
[TD]CSC212512017020120170228.emd[/TD]
[TD]CSC21251[/TD]
[/TR]
[TR]
[TD]CSC213032016120120161231.emd[/TD]
[TD]CSC21303[/TD]
[/TR]
[TR]
[TD]CSC213032017010120170131.emd[/TD]
[TD]CSC21303[/TD]
[/TR]
[TR]
[TD]CSC213032017020120170228.emd[/TD]
[TD]CSC21303[/TD]
[/TR]
[TR]
[TD]CSC217242016050120160531.emd[/TD]
[TD]CSC21724[/TD]
[/TR]
[TR]
[TD]CSC219082016090120160930.emd[/TD]
[TD]CSC21908[/TD]
[/TR]
[TR]
[TD]CSC219082016100120161031.emd[/TD]
[TD]CSC21908[/TD]
[/TR]
[TR]
[TD]CSC219082016110120161130.emd[/TD]
[TD]CSC21908[/TD]
[/TR]
</tbody>[/TABLE]

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?

[TABLE="class: cms_table, width: 578"]
<tbody>[TR]
[TD]

File name[/TD]
[TD]

Folder name[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC212512016120120161231.emd[/TD]
[TD]
C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC212512017010120170131.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC212512017020120170228.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC213032016120120161231.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21303[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC213032017010120170131.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21303[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC213032017020120170228.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21303[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC217242016050120160531.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21724[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC219082016090120160930.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21908[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC219082016100120161031.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21908[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC219082016110120161130.emd[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21908[/TD]
[/TR]
</tbody>[/TABLE]
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


[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Col A (File located at)
Source [/TD]
[TD]Col B (Move to)
Destination[/TD]
[TD]Filename (What file to be move from COl A)[/TD]
[/TR]
[TR]
[TD]C:\Users\LENOVO\Desktop\New folder[/TD]
[TD]C:\Users\LENOVO\Desktop\New folder\CSC21251[/TD]
[TD]CSC212512016120120161231.emd[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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,...