Renombrar archivos !!

Sugey · #1 (**permalink**) 13/03/2007, 10:56

Hola tengo el siguiente código, que sube archivos al servidor con asp puro, pero los sube y los guarda tal cual el nombre que tiene y si existe alguno igual, lo sobreescribe, es decir, me gustaria poder renombrar el archivo que subi, poniendo un nombre constante y concatenarle el mes,dia,y hora. Para que no sean sobreescritos. Alguna idea??

<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
' ************************************************** **
' Cambiar el valor de la siguiente variable
' para indicar el directorio de destino.
' El directorio indicado debe tener permisos de escritura
' de caso contrario el script fallará mostrando un error.
Dim uploadsDirVar
uploadsDirVar = "C:\pruebasubirarchivos\"
' ************************************************** **

Function SaveFiles
Dim Upload, ks, resumen
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
If Err.Number <> 0 then Exit function
ks = Upload.UploadedFiles.keys
if (UBound(ks) = -1) then resumen = "No es un nombre valido en el sistema."
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>
<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
response.write SaveFiles()
end if
%>
</BODY> </HTML>

Gracias

Myakire · #2 (**permalink**) 13/03/2007, 11:57

no recuerdo si se puede renombrar, pero si se puede copiar el archivo y borrar el primero. Cosa de usar los métodos de FSO