ASP - Bajar archivos

 
Vista:

Bajar archivos

Publicado por gonzo (1 intervención) el 14/03/2001 10:40:05
Me gustaría saber cómo podría hacer para poder listar el contenido de un directorio del servidor y poder bajar los archivos seleccionados, tal y como lo hace el ASPUpload de Persits.
Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Bajar archivos

Publicado por federico (270 intervenciones) el 14/03/2001 12:09:37
Emplea el FSO (FileSystemObject) para tener un control absoluto de la estructura del espacio web
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Bajar archivos

Publicado por gonzo (17 intervenciones) el 14/03/2001 13:02:09
Sí, si eso ya me lo imagino.Lo que pasa es que estoy empezando con ASP y no he encontrado un manual "sencillito" del FSO. Y si he encontrado uno sencillito es porque se limita a decir qué son las siglas (más o menos)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Bajar archivos

Publicado por currela (1 intervención) el 11/04/2002 02:37:34
con este codigo puedes subir cosas y luego listarlas.
A este codigo lo tienes que llamar desde un formulario pasandole los archivos de la forma <INPUT TYPE="FILE" SIZE="40" NAME="FILE1">
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
count = Upload.SaveVirtual("/anexos")
response.write "archivos guardados " & count

%>

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

'File.Delete


Response.Write ShowFolderList("D:\Inetpub\wwwroot\emasesa\anexos")

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
'Para listar los archivos que esten dentro de la carpeta
Set fc = f.Files
'Para listar las subcarpetas
'Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function
%>

</BODY>
</HTML>
si sabes como eliminar archivos ....te lo agradezco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar