Este código puede ser útil para todos aquellos que quieran hacer un sistema operativo y, en cierto momento, usando la consola pretendan listar todos los archives de una carpeta determinada. Tiene una opción básica, que es la de mostrar todos los ficheros, pero puede ser implementada posteriormente para buscar un archivo determinado o para mostrarlo de una forma estipulada.
Funciona gracias a que QuickBasic, luego que hace el primer DIR, al llamarse nuevamente esta función, muestra el segundo archivo que coincida con el criterio de búsqueda, así que lo que vamos a hacer es llamar tantas veces a la función DIR, hasta que devuelva como resultado una cadena vacía.
CLS ‘Se borra la pantalla para eliminar cualquier otra información
DIM temp AS STRING ‘Se declara una variable que almacenará el nombre del archivo
CHDIR ("c:\qbx\bin") ‘Se establece la carpeta de la cual se requiere la información
PRINT CURDIR$ ‘Se imprime la carpeta para verificar que es la correcta
PRINT DIR$("*.*") ‘Se hace un llamado al primer DIR
10
temp = DIR$ ‘Se asigna el resultado del DIR a una variable
PRINT temp ‘Se imprime el valor de la variable
IF temp <> "" THEN GOTO 10 ‘Si el resultado es distinto de vacío, que vaya a la línea declarada como 10
Implementar la función DIR
Implementar la función DIR
La lógica es el lenguaje del universo, el código es su traducción.