Cómo usar Dir $ en VB6

El lenguaje de programación de Visual Basic todavía tiene algunos usos en la programación moderna y el desarrollo de aplicaciones, y como tal, puede encontrar que está profundizando en su sintaxis para que las aplicaciones profesionales de su empresa funcionen con aplicaciones o bibliotecas de códigos más antiguas. El uso de la función Dir $ le permite ver fácilmente cómo se realiza la búsqueda de archivos y carpetas a través de VB6.

1.

Use la función Dir $ para verificar si existe un archivo. Si el archivo no existe, la función devuelve una cadena vacía. El siguiente código determina si el archivo "example.txt" existe o no en el directorio C:

Si Dir $ ("C: \ example.txt") = "" Entonces Msgbox "no está aquí!" Else Msgbox "aquí" termina si

2.

Utilice Dir $ para comprobar si existe un directorio. Este comando es idéntico al que comprueba si existe un archivo, pero requiere el uso de un argumento adicional, "vbDirectory", en la llamada a la función. Este código de ejemplo verifica la existencia de una carpeta llamada "ejemplo" en la partición C:

Si Dir $ ("C: \ example", vbDirectory) = "" Then Msgbox "no está aquí!" Else Msgbox "aquí" termina si

3.

Use Dir $ para enumerar los contenidos de un directorio. Si sabe que existe un directorio, puede usar Dir $ para enumerar los archivos dentro de ese directorio. Usando una variable llamada "nombre", use Dir $ junto con un bucle Do-While para extraer el nombre de cada archivo en un directorio que tenga una extensión de archivo .txt:

Nombre oscuro como cadena

name = Dir $ ("C: \ example * .txt") Do Until name = "" Nombre del nombre de impresión = Dir $ () Loop