Forum Discussion
How do I copy some multiple photos from one folder to another?
I have a list of names of photos that I have required to copy from one folder to another. How Can I do that? List of Photos name that I have required to copy in a New Folder:- qa List of ...
Please read this link before continuing
Welcome to your Excel discussion space!
How are you sure that what was written or copied in the Excel sheet also exists in the folder?
Here is a suggested solution with direct copying from folder to folder.
Option Explicit
Sub Copy()
Dim rngC As Range
Const cstrPfad1 As String = "c:\Bilder\"
Const cstrPfad2 As String = "c:\Bilder\relevant\"
If Dir(cstrPfad2, vbDirectory) = "" Then
MkDir cstrPfad2
End If
For Each rngC In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Name cstrPfad1 & rngC As cstrPfad2 & rngC
Next
End Sub
I am using OS: Windows10 and Product: Microsoft office professional plus 2016
Yes, photos exist in the folder and their names exist in the excel sheet.
I run this code in Macro. It's showing an error
As ordered 🙂
You have to specify the path in the code and the name of the new folder where you want to go.
Easy to do.
It worked for me without any problems (test under Excel 2016 and Windows 10, as desired).
I wish you a lot of fun with Excel.
I would be happy to know if I could help.
Nikolino
I know I don't know anything (Socrates)
Try this macro:
Sub CopyFiles() ' Folder containing the images. Path must end in \ Const SourcePath = "C:\MyFiles\Source\" ' Folder to copy the images to. Path must also end in \ Const TargetPath = "C:\MyFiles\Target\" Dim r As Long Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For r = 1 To LastRow FileCopy SourcePath & Range("A" & r).Value, TargetPath & Range("A" & r).Value Next r End Sub
