Kod:
If Dir(StrTempKlasor & File1N) <> "" And Dir(StrTempKlasor & File2N) <> "" Then
FileF = "PM1_" & Left(rsMuayene!CADI, 1) & "_" & Left(rsMuayene!CSOYAD, 3) & "_" & _
rsTCKN!TCKN & "_" & Format(rsMuayene!MUAYENETARIHI, "dd-mm-yyyy") & ".pdf"
FileF = TurkceToIngilizce(FileF)
StrCommand = "pdftk.exe " & StrTempKlasor & File1N & " " & StrTempKlasor & File2N & " " & _
"cat output " & StrKlasor & FileF & ""
Shell StrCommand
Sleep 1000 '1 saniye bekleme
Kill StrTempKlasor & "*.*"
End If