Pdf movement to folder

[Faiyaz]

Hii can anyone help me how can i move multiple pdf from one folder to another folder using the starting name of pdf
Eg: There are 100 pdf file with the name (invoice_001 lane_inv, invoice_005 street_inv, payment_009 creek_inv) and so on i need to move all the pdf with invoice name to' Invoice' folder and all payment pdf to 'Payment' Folder. How can i do that can anyone explain me in detail as i don't have much idea about it

 

[JEC]

You can do that with VBA. Are you familiar with that?

 

[Faiyaz]

You can do that with VBA. Are you familiar with that?

No i am not can you help me with that

 

[JEC]

Are all three folders in the same directory and do all folders already exist?
It is important to know how to run a macro from Excel.

 

[Faiyaz]

Are all three folders in the same directory and do all folders already exist?
It is important to know how to run a macro from Excel.

No i only have pdf's file with me i need to make folder to move that pdf pleaseee help me out as it will save a lot of my time everyday

 

[JEC]

I can give you code but you have to read on the web for how to run a macro

 

[Faiyaz]

I can give you code but you have to read on the web for how to run a macro

Yes please give me that would help me a little

 

[JEC]

If you run this code, it will ask you to select the folder in which the pdf files are located. After selecting the folder, it will create your new folders and moves the pdf's to their destination folder.

Sub jec()
 Dim srcPath, destFold, destPath, it
 With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = 0 Then Exit Sub
    srcPath = .SelectedItems(1) & "\"
    destFold = Left(srcPath, InStrRev(srcPath, "\", Len(srcPath) - 1))
    With CreateObject("scripting.filesystemobject")
       For Each it In .getfolder(srcPath).Files
         If LCase(it.Name) Like "payment_*.pdf" Or LCase(it.Name) Like "invoice_*.pdf" Then
            destPath = destFold & StrConv(Split(it.Name, "_")(0), vbProperCase) & "\"
            If Not .folderexists(destPath) Then .createfolder destPath
            .movefile srcPath & it.Name, destPath & it.Name
         End If
       Next
    End With
 End With
End Sub

 

[Faiyaz]

I will try it tomorrow and get back to you if i need any suggestions

If you run this code, it will ask you to select the folder in which the pdf files are located. After selecting the folder, it will create your new folders and moves the pdf's to their destination folder.

Sub jec()
 Dim srcPath, destFold, destPath, it
 With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = 0 Then Exit Sub
    srcPath = .SelectedItems(1) & "\"
    destFold = Left(srcPath, InStrRev(srcPath, "\", Len(srcPath) - 1))
    With CreateObject("scripting.filesystemobject")
       For Each it In .getfolder(srcPath).Files
         If LCase(it.Name) Like "payment_*.pdf" Or LCase(it.Name) Like "invoice_*.pdf" Then
            destPath = destFold & StrConv(Split(it.Name, "_")(0), vbProperCase) & "\"
            If Not .folderexists(destPath) Then .createfolder destPath
            .movefile srcPath & it.Name, destPath & it.Name
         End If
       Next
    End With
 End With
End Sub

 

[JEC]

Ok, waiting for your feedback. Good luck