Listar archivos

[xavi]

Palabras clave: lista, archivos, ficheros, carpeta, directorio
Autor: Juan M. Afán de Ribera (Happy)
Extraído de: La web del Búho

Objetivo:
Rutina que lista los archivos existentes en una carpeta.

Código: [Seleccionar]


'*********** Código ***************
'
' ListaArchivos
'
' Rutina que lista los archivos
' existentes en una carpeta.
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub ListaArchivos(nomCarpeta)
Dim fso As Object 'New FileSystemObject
Dim carpeta As Object 'Folder
Dim archivos As Object 'Files
Dim archivo As Object 'File
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set carpeta = fso.GetFolder(nomCarpeta)
    Set archivos = carpeta.Files
   
    For Each archivo In archivos
        Debug.Print " - " & archivo.Name
    Next
   
    Set archivos = Nothing
    Set carpeta = Nothing
    Set fso = Nothing
   
End Sub
'********* Fin código *************