como puedo renombrar un archivo con ASPUpload..

superscully · #1 (**permalink**) 17/08/2009, 12:16

buen dia!

recientemente me meti en un lio... debo de guardar ciertos archivos y me solicitaron usar el aspupload de persists es la version mas reciente creo la 3... pero no encuentro la manera de renombrarlos ejemplo:

cargo el archivo 332fwefjlfigvvjoe243.jpg

pero debe de llevar un codigo como: 0001-op

alguien me podria ayudar??

upload-b.asp

Código:

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><TITLE>Upload</TITLE>
</HEAD>
<BODY>
<HTML>
<BODY>

<%
vnf =request.form("nf")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\inetpub\wwwroot\narro\docs"
Upload.SetMaxSize 500000, True
%>

Files:<BR>
<%
For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
Next
%>

<P>

Other items:<BR>
<%
For Each Item in Upload.Form
Response.Write Item.Name & "= " & Item.Value & "<BR>"
Next
%>
</BODY>
</HTML>

Adler · #2 (**permalink**) 17/08/2009, 13:13

Hola

En el otro archivo, donde está la clase te encontrarás una propiedad algo como esto Public Property Get FileName() ....... End Property, pues ahí es donde puedes renombrar el archivo

Suerte

superscully · #3 (**permalink**) 18/08/2009, 09:01

Bueno gracias pero no encuentro nada acerca de esas propiedades... de hecho solo estoy usando dos archivos...

upload-a.asp

Código:

<%
vnf=request("nf")
%>
<HTML><HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><TITLE>FreeVBCode.com Asp File Upload example</TITLE></HEAD>
<BODY>
<h2><font face="Tahoma">Documento 1</font></h2>
<font face="Tahoma"><br>
Esta ventana se utiliza para subir el documento escaneado en formato .JPG y .CHM<br>
utiliza el botón de EXAMINAR para buscar el documento en tu disco duro el cual 
quieres agregar, el cual corresponde al folio <%=vnf%> hoja 1 </font>
<FORM ACTION="Upload-b.asp" ENCTYPE="multipart/form-data" METHOD="POST" >
  <TABLE>
    <TR> 
      <TD><font face="Tahoma">Folio:</font></TD>
      <TD><font face="Tahoma"> 
        <INPUT Name="guardarcomo" TYPE="TEXT" value="<%=vnf%>" readonly>
        </font></TD>
    </TR>
    <TR> 
      <TD><font face="Tahoma">Nombre del archivo:</font></TD>
      <TD><font face="Tahoma"> 
        <INPUT size="40" TYPE=FILE NAME="txtFile">
        </font></TD>
    </TR>
    <TR> 
      <TD><font face="Tahoma">Tipo de Archivo:</font></TD>
      <TD> <font face="Tahoma"> 
        <!--
<input type="hidden" name="FileType" value="JPG">
-->
        <SELECT NAME="FileType">
          <OPTION VALUE = "JPG">Imagen JPG </OPTION>
          <OPTION VALUE = "chm">CHM (Help)</OPTION>
          <OPTION VALUE = "doc">Documento de Word</OPTION>
        </SELECT>
        </font></TD>
    </TR>
  </TABLE>
<br>
<INPUT TYPE="SUBMIT" NAME = "UploadFile" VALUE = "Aceptar">
</FORM>

</BODY></HTML>

y el upload-b.asp

Código:

<%
vnf=request("nf")
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><TITLE>Upload</TITLE>
</HEAD>
<BODY>
<center>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverWriteFiles = true
Upload.Save "c:\upload" 
%>

Files:<BR>
<%
For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>"
Next
%>
  
  Other items:<BR>
  <%
For Each Item in Upload.Form
Response.Write Item &" "& Item.Name & "= " & Item.Value & "<BR>"
Next
%>
</center>
</BODY>
</HTML>

y lo que quiero hacer es que en el upload-a-asp esta el textbox = "guardarcomo" y tiene cierto valor... el cual es con el que quiero que se guarde....
pero no se como se que es con

Código:

Upload.SaveAs "c:\upload" & <-- Aqui debe de ir el nombre con el que se guardara

pero no se como espero me puedan ayudar... se los agradeceria....

SAludos!!

Adler · #4 (**permalink**) 18/08/2009, 13:47

Hola

No he trabajado con aspupload pero sin con freeaspupload. Una vez aclarado esto, has de tener un archivo donde estén todas las clases, dentro de una de las clases ha de haber una propiedad, en tu caso podría ser algo como Public Property Get Name()

Suerte