programación vb60

Puedes hacerlo con la función Dir.

La función Dir

devuelve una cadena para representar un nombre de archivo, nombre de directorio o nombre de carpeta. Debe coincidir. el patrón o atributo de archivo especificado, o la etiqueta de volumen del disco.

Sintaxis

Dir[(nombreruta[, atributos])]

La sintaxis de la función Dir tiene las siguientes partes:

Pieza Descripción

parámetro opcional de nombre de ruta. Una expresión de cadena utilizada para especificar un nombre de archivo, que puede incluir un directorio o carpeta y una unidad. Si no se encuentra el nombre de ruta, se devuelve una cadena de longitud cero ("").

parámetro opcional de atributos. Una expresión constante o numérica cuya suma especifica los atributos del archivo. Si se omite, se devuelven los archivos que coinciden con el nombre de ruta pero que no contienen atributos.

Establecer valor

La configuración del parámetro de atributos puede ser:

Descripción del valor constante

vbNormal 0 (predeterminado) no especifica ningún atributo documento.

vbReadOnly 1 especifica un archivo de solo lectura sin atributos

vbHidden 2 especifica un archivo oculto sin atributos

VbSystem 4 especifica un archivo de sistema sin atributos no disponibles en Uso de Macintosh.

vbVolume 8 especifica el archivo de etiqueta de volumen; si se especifican otros atributos, se ignoran. vbVolume no está disponible en Macintosh.

vbDirectory 16 Especifica el archivo sin atributos y su ruta y carpeta.

vbAlias ​​​​64 El nombre de archivo especificado es un alias, solo disponible en Macintosh.

Tenga en cuenta que estas constantes están especificadas por VBA y pueden usarse para reemplazar valores reales en cualquier parte del código del programa.

Nota

En Microsoft Windows, Dir admite comodines de varios caracteres (*) y de un solo carácter (?) para especificar varios archivos.

En Macintosh, estos caracteres son caracteres de nombre de archivo legales y no se pueden utilizar como caracteres comodín para especificar varios archivos.

Dado que Macintosh no admite caracteres comodín, utilice tipos de archivos para especificar grupos de archivos. . Puede utilizar la función MacID para especificar el tipo de archivo en lugar del nombre del archivo. Por ejemplo, la siguiente declaración devuelve el nombre del primer archivo de TEXTO en la carpeta actual:

Dir("SomePath", MacID("TEXT"))

Para todos los archivos en el archivo de la carpeta seleccionada, especifique una cadena vacía:

Dir("")

En Microsoft Windows, si se utiliza la función MacID en la función Dir, se producirá un error.

Cualquier valor de atributo mayor que 256 se considera el valor de la función MacID.

Al llamar a la función Dir por primera vez, se debe especificar el nombre de la ruta; de lo contrario, se producirá un error. Si también se especifican atributos de archivo, se debe incluir el nombre de ruta.

Dir devolverá el primer nombre de archivo que coincida con la ruta. Si desea obtener otros nombres de archivos que coincidan con la ruta, llame a Dir nuevamente sin parámetros. Si no existe ningún archivo calificado, Dir devuelve una cadena de longitud cero (""). Una vez que el valor de retorno sea una cadena de longitud cero y desee llamar a Dir nuevamente, debe especificar el nombre de la ruta; de lo contrario, se producirá un error.

Es posible cambiar a una nueva ruta sin acceder a todos los nombres de archivos que coincidan con la ruta actual. Sin embargo, la función Dir no se puede llamar de forma recursiva. Llamar a Dir con el atributo vbDirectory no puede devolver subdirectorios consecutivamente.

Sugerencia Dado que los nombres de los archivos no se devuelven en ningún orden particular, puede almacenar los nombres de los archivos en una matriz y luego ordenar la matriz.

Ejemplo de función Dir

Este ejemplo utiliza la función Dir para comprobar si existen ciertos archivos o directorios. En las computadoras Macintosh, el nombre de unidad predeterminado es "HD" y las partes de la ruta están separadas por dos puntos en lugar de barras invertidas. Y los caracteres comodín de Microsoft Windows pueden aparecer como caracteres válidos en los nombres de archivos en Mac. También puede utilizar la función MacID para especificar un grupo de archivos.

Dim MyFile, MyPath, MyName

' Devuelve "WIN.INI" (en Microsoft Windows) si el archivo existe.

MiArchivo = Dir("C:\WINDOWS\WIN.ini")

' Devuelve el nombre del archivo con la extensión especificada. Si existe más de un archivo *.ini, la función

' devuelve el primer nombre de archivo encontrado según los criterios.

MiArchivo = Dir("C:\WINDOWS\*.ini")

' Si se llama a la función Dir por segunda vez sin ningún parámetro, la función volverá al mismo directorio Siguiente archivo *.ini en .

MyFile = Dir

' Devuelve el primer archivo *.TXT implícito encontrado.

MyFile = Dir("*.TXT", vbHidden)

' Muestra el nombre del directorio C:\.

MyPath = "c:\" 'Especifique la ruta.

MiNombre = Dir(MiRuta, vbDirectory) 'Encuentra el primer elemento.

Hacer mientras MiNombre <>"" ' Iniciar el bucle.

' Omite el directorio actual y los directorios de nivel superior.

Si MiNombre lt;gt; "." Y MiNombre lt;gt; ".." Entonces

' Utilice la comparación de bits para determinar que MiNombre representa un directorio.

If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName ' Si es un directorio, muestra su nombre.

End If

End If

MyName = Dir ' Encuentra el siguiente directorio.

Bucle