Cómo leer todos los archivos en una carpeta usando vbs

El siguiente código lee todos los archivos en la carpeta actual:

'═══generate ═══code ════ open ═══start════

set fso = CreateObject("Scripting.FileSystemObject")

establezca fs=fso.getfolder(" .") .files

para cada f en fs

msgbox f . ruta

siguiente

'══Generar ══Código════Nudo════Paquete════

Descripción:

Utilice la propiedad de archivos en el objeto de carpeta para obtener el conjunto de archivos y luego enumere cada uno.

Los objetos enumerados son todos objetos de archivo. Por supuesto, los atributos y métodos del objeto de archivo se pueden aplicar directamente.