Forum Discussion

krishank652's avatar
krishank652
Copper Contributor
Jun 17, 2021

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 Photos:-

 

  • NikolinoDE's avatar
    NikolinoDE
    Gold Contributor

    krishank652 

     

    Copy a picture or pictures

    1. Select the picture or pictures you want to copy.

    2. Click Home, and then click Copy 

       

       

      .

    3. Click the folder where you want to paste the copy, and then click Paste 

       
    • Alternatively, you can copy the picture by dragging it to another folder. If you want to move the picture rather than copy it, hold down SHIFT while you drag the picture to the new folder.

    • You can also copy a picture to another Microsoft Office program. Select the picture or pictures you want to copy, click Copy, witch to the other program, and then clickPaste.

     

    I would be happy to know if I could help.

     

    Nikolino

    I know I don't know anything (Socrates)

    * Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.

    • krishank652's avatar
      krishank652
      Copper Contributor
      I want to filter out lists of photos that are given in the excel sheet.
      • NikolinoDE's avatar
        NikolinoDE
        Gold Contributor

        krishank652 

        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

         

Resources