Renombrar Archivo cuando se sube al servidor y no despues

[sqa212]

Iniciado por calinzt

NombreNuevo = "prueba"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath(".") & "\imagen\" & FileName, ForWriting, True)
f.Write strFileData
set f = nothing
set fso = nothing

Prueba a poner el nuevo nombre en este momento:

NombreNuevo = "prueba"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath(".") & "\imagen\" & NombreNuevo, ForWriting, True)