renombrar archivos

igonfil · #1 (**permalink**) 23/07/2010, 02:45

Hola a todos. Tengon un código con el cual subo al servidor archivos lo que quisiera ahora es renombrar todos y cada unos de los archivos que esté subiendo en ese momento ¿cómo lo podría hacer? gracias. Un saludo

El código es:
PruebaUpload

Código PHP:

  <%  
option explicit 
Response.Expires = -1 
Server.ScriptTimeout = 600 
%> 
<!-- #include file="freeaspupload.asp" --> 
<% 
 
  Dim uploadsDirVar 
  uploadsDirVar = "d:\xvrt\gmdelyser.com\Html\aceprodent\foro\slideshow\thumbs"  
' **************************************************** 
function SaveFiles 
    Dim Upload, fileName, fileSize, ks, i, fileKey, resumen 
    Set Upload = New FreeASPUpload 
    Upload.Save(uploadsDirVar) 
    ' If something fails inside the script, but the exception is handled 
    If Err.Number <> 0 then Exit function 
    SaveFiles = "" 
    ks = Upload.UploadedFiles.keys 
    if (UBound(ks) <> -1) then 
        resumen = "<B>Archivos subidos:</B> " 
        for each fileKey in Upload.UploadedFiles.keys 
            resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) " 
        next 
    else 
        resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema." 
    end if 
    'comentar la siguiente linea si no se desea mostrar el resumen 
'    SaveFiles = resumen 
end function 
 
%> 
 
<HTML> 
<HEAD> 
<TITLE>Test Free ASP Upload</TITLE> 
</HEAD> 
<BODY> 
<br> 
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir archivos</div> 
<div style='margin-left:150'> 
 
<form name="frmSend" method="POST" enctype="multipart/form-data" action="pruebaupload.asp"> 
Archivo 1: <input name="attach1" type="file" size="35"><br> 
Archivo 2: <input name="attach2" type="file" size="35"><br> 
Archivo 3: <input name="attach3" type="file" size="35"><br> 
Archivo 4: <input name="attach4" type="file" size="35"><br> 
<br>  
<input type=submit value="Upload"> 
</form> 
 
<BR></div> 
<% 
'solo llamo al UPLOAD si hay envio de formulario 
if Request.ServerVariables("REQUEST_METHOD") = "POST" then 
    'Hace el upload de los archivos enviados y muestra el resumen     
    response.write SaveFiles() 
end if 
%> 
</BODY> 
</HTML>

freeASPUpload
[PHP]

Adler · #2 (**permalink**) 23/07/2010, 05:13

Hola

Creo recordar que solamente has de modificar la propiedad Get FileName

Código ASP:

Ver originalPublic Property Get FileName() 
        'FileName = nameOfFile
' Cambia el nombre de la imagen por el nombre del usuario, mantiene la extensión original
        FileName = nuevoNombre & lcase(Right(nameOfFile, 4))
    End Property

Suerte

igonfil · #3 (**permalink**) 23/07/2010, 06:00

Muchas gracias Adler pero no me funciona ese código

igonfil · #4 (**permalink**) 23/07/2010, 06:08

Perdona funciona correctamente pero lo que sucede es que me machaca los otros archivos subidos al mismo tiempo al renombrarlos con el mismo nombre

Adler · #5 (**permalink**) 23/07/2010, 06:17

Hola

Danos un ejemplo de al menos dos archivos de cuales son sus nombres originales y como han de quedar renombrados

Suerte

igonfil · #6 (**permalink**) 23/07/2010, 06:19

el nombre original de archivo es birrete.jpg, casa.jpg y el nombre con el cual quiero nombrar es img-1, img-2

Adler · #7 (**permalink**) 23/07/2010, 14:50

Hola

En negrita los cambios que has de hacer

Cita:

Public Sub Save(path)
Dim streamFile, fileItem, i, particion

if Right(path, 1) <> "\" then path = path & "\"

if not uploadedYet then Upload
i = 1
For Each fileItem In UploadedFiles.Items
particion = Split(fileItem.FileName, ".")

Set streamFile = Server.CreateObject("ADODB.Stream")
streamFile.Type = 1
streamFile.Open
StreamRequest.Position=fileItem.Start
StreamRequest.CopyTo streamFile, fileItem.Length
streamFile.SaveToFile path & particion(0) & "-" & i & "." & particion(1), 2
streamFile.close
Set streamFile = Nothing
fileItem.Path = path & particion(0) & "-" & i & "." & particion(1)
i = i +1
Next
End Sub

Suerte

Valery-Net · #8 (**permalink**) 23/07/2010, 19:37

A mi me gusta el componente aspupload para subir archivos desde asp, el mismo trae el método para renombrar los archivos que se suben.

igonfil · #9 (**permalink**) 26/07/2010, 02:34

Muchas gracias. Funciona a la perfección