<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Este ejemplo utiliza Files In Directory para obtener una lista de todos los archivos en un directorio. Luego busca todos los archivos .jmp, los abre (y luego los cierra) uno por uno, formando una tabla de resumen a lo largo del camino. El directorio $ sample_data tiene subdirectorios que estarán en la lista pero se omitirán en la prueba EndsWith. EndsWith distingue entre mayúsculas y minúsculas; podrías querer EndsWith (LowerCase (nombre de archivo), ".jmp") para obtener los archivos que terminan en .JMP y .jmp.
Los archivos en el directorio no necesitan el final /, pero tampoco le importa. Pero el final / es importante cuando los nombres de archivo en la lista se concatenan al directorio. JMP se encarga de los problemas de Windows vs Mac / y \.
directory = "$ sample_data /";
fileNames = Files In Directory (directorio);
sumario = Nueva tabla ("resumen", Nueva columna ("nombre", carácter), Nueva columna ("filas", numérico));
Para (iFile = 1, iFile <= N elementos (fileNames), iFile ++,
filename = fileNames [iFile];
Si (termina con (nombre de archivo, ".jmp"),
dt = Abrir (directorio || nombre de archivo);
resumen << adiciones (1);
resumen: nombre = nombre de archivo;
resumen: filas = N Filas (dt);
Cerrar (dt, "nosave");
);
);
Hay una opción recursiva si quieres esos archivos también ...
