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]

So it worked?

 

[Faiyaz]

So it worked?

No i have been trying it but it not moving the pdf files

 

[JEC]

You marked the answer as solved.

 

[Faiyaz]

No i did it by mistakenly it still haven't been solved

 

[Faiyaz]

No i did it by mistakenly it still haven't been solved

The thing is your code is working but when i change my file name to invoice_ and payment_ then only it working but my file name are different like( invoice_239 southwest creek_inv, invoice_789 northern hill lane_inv, invoice_890 burfod lane_inv) etc i need all the pdf starting with invoice in one folder and all the pdf starting with payment in another one that's not working. Can you help me with that

 

[Faiyaz]

The thing is your code is working but when i change my file name to invoice_ and payment_ then only it working but my file name are different like( invoice_239 southwest creek_inv, invoice_789 northern hill lane_inv, invoice_890 burfod lane_inv) etc i need all the pdf starting with invoice in one folder and all the pdf starting with payment in another one that's not working. Can you help me with that

See this i have like this file i need all the pdf starting with Reliance in one folder all the pdf's starting with tata power in one folder and so on

 

[JEC]

yes for different filenames you have to rewrite a bit. Now only payment and incoice will be taken into account. I can’t look into your pc

 

[Faiyaz]

yes for different filenames you have to rewrite a bit. Now only payment and incoice will be taken into account. I can’t look into your pc

How can i rewrite it can you explain it to me. I have around 7000 pdf file with different names i need to move all thoose pdf. Do help me with that

 

[Faiyaz]

Thie is an example for it

 

[JEC]

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