Paulo Prudente

Por favor, alguém poderia me ajudar. Como faço para mudar o nome do arquivo na hora de salvar no servidor. O código esta funcionado perfeitamente <% Dim objUpload Set objUpload = Server.CreateObject("Dundas.Upload.2") objUpload.MaxFileSize = 6500000 objUpload.UseVirtualDir = True objUpload.UseUniqueNames = False '..................local onde o arquivo sera salvo objUpload.Save "up" '......................nome do arquivo For Each objUploadedFile in objUpload.Files pp = Right(objUploadedFile.path,Len(objUploadedFile.path)-InstrRev(objUploadedFile.path,"\")) Next Set objUpload = Nothing %>