Function CopyPDF(ID as string) Dim stSource As String Dim stDest As String stSource = "D:\Ponude\Ponuda.pdf" stDest = "D:\Ponude\Ponuda_f" & ID & ".pdf" FileCopy stSource, stDest End Function