escribo de carrera porque este pagina web me saco de donde estaba escribiendo la repsuesta y tuve que repetir el prceso de entrar al sistema de repsuestas y escribir de nuevo este choro....(si, es un reclamo, no tengo mil horas para repetir mensajes cada vez que se sale es sitema... jejeje, ni para estarme quejando
)
yo hice una pagina html que presenta el listado de todos los archivos en una carpeta del cliente, siempre y cuando el usuario le especifique un archivo a la pagina html que este contenido en la carpeta a explorar
El archivo se selecciona de un input type="file" en un form, en el evento onchange del input se llama a una funcion que usa un objeto file de ?asp? o de ?ADO? o es de ?FSO?, la verdad no se de donde vino, pero funciona.
esto pones en el <head> de la pagina html que va a correr en el servidor
se requiere todo lo que ya sabes para correr scripts en paginas web:
<script language=vbscript>
option explicit
'esta es lafuncion que muestra la lista de files de una carpeta
sub lists(dat)
Dim i, fso, imgf, f, fy, fc, s, rut, pos, extension, Ima2, Ima3, Ima4, Ima5
i=0
rut = StrReverse( dat )
'document.write(rut & "<br>")
pos = Instr(rut, "\")
'document.write(pos & "<br>")
rut = right(rut,len(rut)-pos)
rut = StrReverse(rut)
'document.write(rut & ":<br>")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(rut)
Set fc = f.Files
'document.write(rut & ":::<br>")
For Each fy in fc
extension = fso.GetExtensionName(rut+"\"+fy.name)
'extension = fso.GetExtensionName()
'document.write(extension)
s = s & fy.name
s = s & "<BR>"
i= i+1 'contador de archivos
Next
document.write("<br>" & s & "<br>")
document.forms.forma.file1.value = Ima2 'esta operacion es una utopia
'porque por razonesde segridad
'no se puede modificar el
'atributo value del elemento
'input type="file", en iexplore,
'pero para netscape hay un
'chequeode noveles de
'seguridad que lo permiten
'hacer...
Set fso = nothing
set f = nothing
End sub
</script>
en el <body> metes el input para que te digan un solo file y luego el script te muestre la lista de files. el objeto FSO tiene muchas propiedades y metodos que te permiten mover, copiar, borrar y renombrar archivos.
<form method="POST" enctype="multipart/form-data" action="guarda.asp" name="forma">
<input type="file" name="path">
<input type="button" value="Ver directorio" onclick="lists(forma.path.value)" language="vbscript" >
</form>
jeje, dije en el evento onchange?, bueno, acabo de ver que es en el onclick del button, pero al caso es lo mismo
oki. es todo