'*********** 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 *************