Dir Descripción
Devuelve el primer nombre de archivo que coincide con el nombre de ruta y los atributos especificados.
Ejemplos de dir simples
| 1 | MsgBox Dir ("") |
Esto devolverá el primer nombre de archivo en la ruta actual.
Sintaxis de Dir
En el Editor de VBA, puede escribir "Dir (" para ver la sintaxis de la función Dir:
La función Dir contiene 2 argumentos:
PathName: [Opcional] Una expresión de cadena que representa un directorio / carpeta / unidad.
Atributo: [Opcional] Especifica los atributos del archivo. Si se omite, devuelve archivos que coinciden con el nombre de la ruta pero no tienen atributos.
los Atributo la configuración de los argumentos es:
| Constante | Valor | Descripción |
|---|---|---|
| vbNormal | 0 | (Predeterminado) Especifica archivos sin atributos. |
| vbReadOnly | 1 | Especifica archivos de solo lectura además de archivos sin atributos. |
| vbHidden | 2 | Especifica archivos ocultos además de archivos sin atributos. |
| vbSystem | 4 | Especifica los archivos del sistema además de los archivos sin atributos. No disponible en Macintosh. |
| vbVolume | 8 | Especifica la etiqueta de volumen; si se especifica cualquier otro atributo,vbVolume se ignora. No disponible en Macintosh. |
| vbDirectory | 16 | Especifica directorios o carpetas además de archivos sin atributos. |
| vbAlias | 64 | El nombre de archivo especificado es un alias. Disponible solo en Macintosh. |
Programación VBA | ¡Code Generator funciona para usted!
Ejemplos de la función Dir VBA de Excel
Para enumerar las carpetas y archivos en la unidad C, puede usar el siguiente código.
| 123456789101112131415161718192021222324 | Sub Dir_Ejemplo ()Dim fileName como cadenaDim fullName como cadenaAtenuar como rangoDim i como enteroEstablecer rng = Rango ("A1")fileName = Dir ("C: \", vbDirectory)i = 1HacerfullName = "C: \" & fileNamerng.Offset (i, 0) = nombreArchivorng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (nombre completo)rng.Offset (i, 3) = GetAttr (nombre completo)fileName = DirSi fileName = "" Entonces Salir Haceryo = yo + 1CírculoEnd Sub |
El resultado será similar al siguiente.
Función VBA Dir en Access VBA
La función VBA Dir funciona en Access VBA de la misma manera que lo hace en Excel VBA.
| 123456789 | Función CreateDirectory (strP como cadena) como booleanoSi Len (Dir (strP, vbDirectory)) = 0 EntoncesMkDir strPTerminara siCreateDirectory = VerdaderoFunción de salidafinalizando:CreateDirectory = FalsoFunción final |
