File path issue gets tougher

[kelly mort]

Hello I have this issue here and I need help :

Sub pdfCreate  ()
Dim FolderPath As String 
FolderPath = ThisWorkbook.Path & "\PDF FILES"
ChDir ThisWorkbook.Path & "\PDF FILES"
Sheet10.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheet10.Range("F4").Text, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 
End Sub

I want the files saved in that pdf files folder yet it keeps saving it in the documents folder.

I am sure I am messing up with something but can't see it yet.

Point that out for me please.

Thanks in advance
Kelly

 

[kelly mort]

I am now understanding what tricked me previously:

The path follows where a previous file saved went. So before , I was lured to believe the script was doing what I wanted it to do. Because after saving to the pdf files folder, I tried using the previous code and now it's working. Lol

 

[kelly mort]

  Sheet10.ExportAsFixedFormat Type:=xlTypePDF, _
                              Filename:=ThisWorkbook.Path & "\PDF FILES\" & Sheet10.Range("F4").Text, _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=False

Hello @shg, and anyone seeing this;

I need yet another help here:

Inside that "pdf files " folder, I want to let my script create Sub folders in there from the text in sheet10.Range("B17").Text.

So first scan that folder(pdf files) to see if there is a folder there same as the text in sheet10 cell B17. If there is, then just create the pdf files inside it else create that folder then create pdf files inside. I got stacked in the process please help.

Thanks
Kelly