Function CopyPDF()
Dim stSource As String
Dim stDest As String
stSource = "D:\Ponude\Ponuda.pdf"
stDest = "D:\Ponude\Ponuda_0002.pdf"
FileCopy stSource, stDest
End Function