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

 

[Faiyaz]

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 "*_*.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

No its working the same way as the older one if you see the image there are pdf's of reliance, tata power, u torrent with different pdf's name i need to move all the reliance pdf's in reliance folder all the tata power pdf's in tata power folder and all the u torrent pdf's in u torrent folder

 

[JEC]

here it works perfectly fine… you could try

If LCase(it.Name) Like "*.pdf" Then

 

[Faiyaz]

here it works perfectly fine… you could try

If LCase(it.Name) Like "*.pdf" Then

Yes the previous one is working i was doing a mistake in it its working perfectly fine now thank you so much you saved my time

 

[Faiyaz]

Yes the previous one is working i was doing a mistake in it its working perfectly fine now thank you so much you saved my time

I am having one more issue if a pdf is already in a folder it doesn't replace it it shows file isn't working end file. Can you help me with it