Navngive fil ved upload

Jeg vil uploade en fil med aspSmartUpload og vil samtidig omdøbe filen, men det går ikke så godt.
Det ser sådan ud:

Dim mySmartUpload, intCount, File, objFSO, objFolder, objFiles
'**************************************************************************************************************************************************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

intCount = mySmartUpload.Save("../../upload")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.Mappath("../../upload"))
Set objFiles = objFolder.Files

function uploadFile
    For Each File in objFiles
        File.LoadFile(File.path)
        File.FileName = server.mappath("../../upload/golf/pdf") & "/pdf_file.pdf"
        File.SaveFile
        file.delete
    Next
end function

Set objFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

Lige nu lægger den bare filen ind i ../../upload