sorduğum sorunun cevabını buldum: herkese teşekkür ederim iyi çalışmalar.
Dim i As Long
Dim klasor, bak, anaklasor_kontrol, altklasor_kontrol, dosya, altdosya_kontrol
Dim ana_klasor As String, alt_dosya As String, dosya_yolu As String
Set klasor = CreateObject("Scripting.FileSystemObject")
ana_klasor = ThisWorkbook.Path & "\DENEME\"
anaklasor_kontrol = klasor.FolderExists(ana_klasor)

If anaklasor_kontrol <> True Then
klasor.CreateFolder ana_klasor
End If

Rapor.Cells(1, 2) = "Denemepdf"
Rapor.Cells(1, 3) = "Deneme"
Rapor.Cells(1, 4) = "ALtKlasörü"
Rapor.Cells(1, 5) = "Bir"

alt_klasor = ana_klasor & Rapor.Cells(1, 3) & "-" & Rapor.Cells(1, 4) & "-" & Rapor.Cells(1, 5)
altklasor_kontrol = klasor.FolderExists(alt_klasor)
alt_dosya = Rapor.Cells(1, 2)
If altklasor_kontrol <> True Then
klasor.CreateFolder alt_klasor


Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook \ alt_klasor & pdfdosya_adı
Else
dosya_yolu = "ThisWorkbook.Path\DENEME\alt_klasor\"
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & alt_dosya & ".pdf"


End If