vb code to send PDF in workbook path / folder

[ateebali]

Dear Sir
I am using following code and it copying my file

PDFFileName = GeneratedFileName(ThisWorkbook.Path & "\TCS # " & Range("O6").Value, 0)

It is copying my file to current folder where original file exist, I just need on amendment to send this file to a folder name PDF, if folder not exist then VB need to create it
Thisworkbook.path/PDF

 

[John_w]

    If Dir(ThisWorkbook.Path & "\PDF", vbDirectory) = vbNullString Then MkDir ThisWorkbook.Path & "\PDF"
    PDFFileName = GeneratedFileName(ThisWorkbook.Path & "\PDF\TCS # " & Range("O6").Value, 0)

 

[ateebali]

worked perfect, thanks a lot