Renombrar Archivo cuando se sube al servidor y no despues

[calinzt]

Hola esteve viendo por varias partes y en todas dan la opcion de al guardar el archivo, copiarlo , renombrarlo y despues eliminar el original.

Mi consulta es saber si se puede renombrar un archivo al vuelo cuando se sube antes q sea grabado en el servidor?

[JuanRAPerez]

pues supongo que depende deel componente que usas
en la propiedad save puedes ver si lo cambias

que código usas para subir?
algún componente?

[u_goldman]

Más que cómo hacerlo, me pregunto por qué hacerlo ¿qué diferencia tiene?

Saludos

[calinzt]

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:

'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%>
 

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.

[Myakire]

Supongo que el método que usa renombra archivos copiando el archivo original a otro y luego eliminando el original en lugar de un RENAME, por cierto ¿por qué no usas un ren o un MoveFile (FSO) directamente en lugar de dicho método?

[calinzt]

Iniciado por Myakire

Supongo que el método que usa renombra archivos copiando el archivo original a otro y luego eliminando el original en lugar de un RENAME, por cierto ¿por qué no usas un ren o un MoveFile (FSO) directamente en lugar de dicho método?

con lo de ren te refieres a ren de WScript.Shell ?

[Myakire]

Así es, ren o rename, algo como esto:

Set WShell = CreateObject("WScript.Shell")
WShell.Run ("ren OldFile.txt NewFile.txt")

Claro que con cuidado de los permisos en el directorio y esas cosas que con el upload supongo ya los habrás concedido.

En lo personal, yo usaría el MoveFile de FSO por simpleza, pero cuestión de tus necesidades.

Saludos

[calinzt]

Gracias al final ocupe moveFile aunque ya antes habia prograbado con el WScript.shell , e sun buen metodo usar el sistema de dos^^

gracias las dos formas son lo mas cercano a renombrar al vuelo
^^.

[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)

[Valery-Net]

Yo uso el componente aspupload y si deseo el mismo lo renombra después que lo sube; usar ese componente es muy sencillo.