File System Object

Quisiera saber si usando fso hay manera de leer todos los archivos que hay en una carpeta. Ya estuve probando y no doy en la tecla. Muchas gracias...

La FAQ File System Object tiene

Pertenece a la categoría:
Pregunta
Quisiera saber si usando fso hay manera de leer todos los archivos que hay
en una carpeta. Ya estuve probando y no doy en la tecla.
Muchas gracias desde ya.
Respuesta de Miguel Angel Navas
Te paso una copia de como podes hacerlo....






Dim fs, f, f1, fc, s


Dim folderspec


folderspec = "c:ControlGastos"


Set fs = CreateObject("Scripting.FileSystemObject")


Set f = fs.GetFolder(folderspec)


Set fc = f.Files


For Each f1 in fc


   MsgBox f1.name


Next






Espero que te sirva. Esto es muy facil de modificar para que te muestre todos los subdirectorios....
Volver al árbol de categoríasVolver al árbol de categorías

Comentarios

zacktagnan

03/2/2006
Yo lo que quiero es, en un determinado momento, al pulsar un vínculo, eliminar de una carpeta todos los archivos que empiecen por unas letras específicas, por emjemplo, "ini"

¿Cómo sería? ¿Un ejemplo?

Gracias

Dani de Saro

16/5/2007
Para hacerlo en JScript, leyendo el directorio en el que se encuentra la página ASP que contiene este código:

<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
var dire_sys=""+ Request.ServerVariables("PATH_TRANSLATED") +"";
var folder_sys=dire_sys.substring(0,dire_sys.lastIndexOf("\"));

x1=new ActiveXObject("Scripting.FileSystemObject");
carpeta=x1.GetFolder(folder_sys);
x2=new Enumerator(carpeta.files);
var directorio="";
for(;!x2.atEnd();x2.moveNext())
{
directorio+=""+ x2.item() +"<br>";
}
Response.Write(directorio);
</SCRIPT>
FAQ relacionadas