Una manera de entender la función de " Dir" es leer su descripción en el Examinador de objetos VBA. Este navegador está disponible en el entorno de programación VBA de acceso . Después de entrar en ese ambiente haciendo clic en el botón "Visual Basic " de la pestaña " desarrolladores" , haga clic en " Lista de objetos" del menú "Ver " para abrir el navegador. Tipo "Dir " en el campo de motores de búsqueda del navegador para localizar la descripción de la función.
Programa Mostrando Una Archivo
Para entender mejor la función Dir, ejecutar un programa corto que lo utiliza . Para entrar en el entorno de desarrollo de Visual Basic la función , de acceso abierto , haga clic en el botón "Visual Basic " de la pestaña " Developer " . Pega el programa después de esta sección en la nueva ventana que aparece. Este programa utiliza "Dir " para identificar a un único archivo en el directorio " C: . \\ Windows " Para ejecutar el programa , haga clic en cualquiera de sus estados , a continuación, haga clic en el comando " Ejecutar" de la pestaña "Ejecutar" . El programa mostrará un mensaje que muestra un archivo de " C: . \\ Windows "
Public Sub ShowFile ()
f Dim
f = Dir ( "c: \\ windows \\ " )
MsgBox f
End Sub
Argumentos de Dir
La" función Dir " se ejecuta diferente que la mayoría de las funciones de VBA . La primera vez que llame , usted debe hacer lo mismo con el nombre de una carpeta, como "C: . \\ Windows " Después de que la invocación inicial, sin embargo , se puede llamar " Dir" sin argumentos. Cada vez que se llama de esta manera, " Dir" devuelve el nombre de otro archivo en el directorio especificado originalmente . " Dir" devuelve una cadena vacía después de enumerar todos los archivos en el directorio .
Lista de todos los archivos de un directorio
Para ver cómo " Dir" puede enumerar todos los archivos en un directorio , pegue el siguiente programa en el entorno de desarrollo de acceso . Haga clic en una declaración en el programa, a continuación, pulse la tecla " F5 " o haga clic en el comando " Ejecutar" del menú " Ejecutar" para ejecutar el programa . verás abrir la ventana " inmediata " una lista de todos los archivos en el directorio "C : \\ windows " . carpeta
showfiles Public Sub ( ) guía
f Dim
f = Dir ( "c: \\ windows \\ " )
While ( f < > "" )
i = i + 1
Debug.Print f
f = Dir Wend
End Sub