Move .pdf files from one folder to another

[dwilson38550m]

Hi is it possible to use a vba macro to move .pdf files from one folder to another on my c drive....there are 100 or so files...the only constant is that all end in .pdf (the name of the file itself will vary but all end in .pdf. Thanks in advance

 

[John_w]

See if you can adapt https://www.mrexcel.com/forum/excel...images-newfolder-post4717976.html#post4717976

Change the folder paths and the If Right .... Then line.

 

[JoeMo]

Here's a similar macro that assumes you have a single source folder that holds all the pdf files you want to move to an existing destination folder. Change the paths and folder names to suit. Note: if you are using a MAC the final path separator (here a " \ ") must be changed.

Sub MovePDFsToAnotherFolder()
Dim fso As Object, sourcePath As String, destPath As String
Dim Fldr As Object, f As Object, ct As Long
sourcePath = "C:\Users\Joe\Documents\Source Folder\"  'Change path and folder name to suit
destPath = "C:\Users\Joe\Documents\Destination Folder\"  'Change path and folder name to suit
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fldr = fso.getfolder(sourcePath).Files
For Each f In Fldr
    If f.Name Like "*.pdf*" Or f.Name Like "*PDF*" Then
        ct = ct + 1
        f.Move destPath
    End If
Next f
If ct > 0 Then
    MsgBox ct & " pdf files have been moved"
Else
    MsgBox "No pdf files found in the source folder"
End If
End Sub

 

[dwilson38550m]

Many thanks, John W and JoeMo...I'll give this a try.