Cita:
Iniciado por JuanRAPerez 
pues supongo que depende del componente que usas
en la propiedad save puedes ver si lo cambias
que código usas para subir?
algún componente?
Gracias por responder, el fin de semana no tenia el codigo , pero volviendo al tema no uso componente y este es el codigo que lo subo y despues hago el metodo de copiar , renombrar y eliminar el antiguo.
Código asp:
Ver original'Subir Archivo---------------------------------------------------------------
<%Case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)
if LenBinary > 0 then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End If
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
do while lngCurrentEnd > 0
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 then
Response.Write "<FONT FACE=Verdana SIZE=5>Ha ocurrido un error</FONT><BR><BR>"
Response.Write "<FONT FACE=Verdana SIZE=2><B>Explicación:</B><BR>"
Response.Write "1) Deberías seleccionar al menos 1 archivo.<BR>"
Response.Write "2) Deberías seleccionar los archivos en orden, de uno en uno y de arriba a abajo.<BR><BR>"
Response.Write "<B>Solución:</B><BR>"
Response.Write "Retrocede pulsando el botón de <B>Retroceder</B> e inténtalo de nuevo.</FONT><BR><BR>"
Response.Write "<INPUT TYPE=Button onclick=history.go(-1) value='<< Retroceder' ID='button'1 NAME='button'1 Class=presenta2>"
Response.End
end if
if lngBeginFileName <> lngEndFileName then
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)
tmpLng = instr(1,strFilename,"\")
Do While tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
Loop
FileName = right(strFilename,len(strFileName) - PrevPos)
lngCT = instr(1,strData,"Content-Type:")
If lngCT > 0 then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4
Else
lngBeginPos = lngEndFileName
End If
lngEndPos = len(strData)
lngDataLenth = lngEndPos - lngBeginPos
strFileData = mid(strData,lngBeginPos,lngDataLenth)
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
lngNumberUploaded = lngNumberUploaded + 1
'/Renombra los archivos subidos------------------------------------------------/'
Set fsx = CreateObject("Scripting.FileSystemObject")
set Archivo = fsx.GetFile(Server.MapPath(".") & "\imagen\" & FileName)
Extension = fsx.GetExtensionName(Archivo)
Call Archivo.Copy(Server.MapPath(".") & "\imagen\" & NombreNuevo & lngNumberUploaded & "." & Extension)
Eliminado = Server.MapPath(".") & "\imagen\" & FileName
if fsx.FileExists(Archivo) = True then
call Archivo.Delete()
Response.Write("Eliminado el archivo"&" "&Eliminado)
'Response.Write(Archivo)
end if
Set Archivo = Nothing
set fsx = nothing
'/------------------------------------------------------------------------------/'
End If
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop
Response.Write "<FONT FACE=Verdana SIZE=5>Fichero(s) subido(s) al servidor</FONT><BR><BR>"
Response.Write "<FONT FACE=Verdana SIZE=2>" & lngNumberUploaded & " fichero(s) subidos al servidor.</FONT><BR><BR>"
Response.Write "<INPUT TYPE=Button onclick='document.location=" & chr(34) & "Subir_Ficheros.asp" & chr(34) & "' VALUE='<< Enviar más Loteo(s)' ID='button'1 NAME='button'1 Class=presenta2>"
End Select%>
Cita:
Iniciado por u_goldman 
Más que cómo hacerlo, me pregunto por qué hacerlo ¿qué diferencia tiene?
Saludos
es un paso demas que se esta haciendo copiando y pegando el archivo, a su vez que en mi caso se esta dando un servicio publico se suben archivos a cada momento y de peso algunas veces grandes con cada solicitud alrededor de 3000 o mas, por eso quiero tambien hacerlo en el momento de la subida y no despues.