Copy folder from new folder as per the excel list

[punit83]

Hello !

I have 5000 product video/photo in initial folder in a main folder and i want to copy few video/photo with their initial folder to new folder.

Product Id are in excel in list.i want to copy only that folder which are in list in excel.

can any one pls provide solution for this.


i am newbie.

Thanks in Advance.

 

[Yongle]

i want to copy few video/photo

To COPY SOME of the video/photo from a folder C:\Test\A2 to folder C:\Test\A3
- destination folder MUST exist BEFORE files are copied

One photo

Sub copyFile()
    Dim sourceStr As String, destinationStr As String, fName As String
    fName = "ABC.jpg"
    sourceStr = "[COLOR=#008080]C:\Test\A2\[/COLOR]" & fName
    destinationStr = "[COLOR=#008080]C:\Test\A3\[/COLOR]" & fName
    
    FileCopy sourceStr, destinationStr
End Sub

Photos listed (list specifies extension)

Sub copyFilesListed1()
    Dim rng As Range, cel As Range, sourceStr As String, destinationStr As String, fName As String
    Set rng = Range("A2:A10")
    For Each cel In rng

        fName = cel.Value
        sourceStr = "[COLOR=#008080]C:\Test\A2\[/COLOR]" & fName
        destinationStr = "[COLOR=#008080]C:\Test\A3\[/COLOR]" & fName
        
        FileCopy sourceStr, destinationStr
    Next cel
End Sub

Photos listed (list does not specify extension)
- photos and video need listing separately (different extensions)

Sub copyFilesListed2()
    Dim rng As Range, cel As Range, sourceStr As String, destinationStr As String, fName As String
    Set rng = Range("A2:A10")
    For Each cel In rng

        fName = cel.Value[COLOR=#ff0000] & ".jpg"[/COLOR]
        sourceStr = "[COLOR=#008080]C:\Test\A2\[/COLOR]" & fName
        destinationStr = "[COLOR=#008080]C:\Test\A3\[/COLOR]" & fName

        FileCopy sourceStr, destinationStr
    Next cel
End Sub

If something does not work for you, please post the code you are using inside code tags - click on # icon above reply window and paste your code inside the tags that appear
[ CODE ] code goes here [ /CODE ]