Moving PDF files

[Senthil Murugan]

Good Afternoon to All

Can anybody know how to move PDF files from one folder to another based on PDF file's Partial Name using "*"

Thanks in advance

 

[DanteAmor]

You provide very little information, so you will have to adapt the macro to your needs.
At the end of the post I put the notes so you can adapt the macro.

Sub movePDFfiles()
  Dim Folder1 As String, Folder2 As String, sFile As String
  
  Folder1 = "C:\Trabajo\Files\"       'origin
  Folder2 = "C:\trabajo\examples\"    'destination
  
  sFile = Dir(Folder1 & "*.pdf")
  
  Do While sFile <> ""
    If sFile Like "invoice" & "*" Then
      Name Folder1 & sFile As Folder2 & sFile
    End If
    sFile = Dir()
  Loop
  
End Sub

Notes:

• Change folder1 and folder2 to the names of your folders.
• Change "invoice" to the partial text you want to search for
• You can choose where to search for the partial text:
  • "invoice" & "*" : means at the beginning of the name
  • "*" & "invoice" & "*" : means anywhere in the name
  • "*" & "invoice" : means at the end of the name

----- --
Let me know the result and I'll get back to you as soon as I can.
Sincerely
Dante Amor
----- --

 

[Senthil Murugan]

Thank you Dante Amor. I will try