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