Utilice VB para recorrer todos los archivos de la carpeta. No hay subcarpetas en la carpeta y el número máximo de archivos contenidos es 150.000.

En primer lugar, debemos comprender un concepto básico: en el sistema de archivos FAT32, el límite superior del número de archivos y subcarpetas en una carpeta es 65534 (si se utilizan nombres de archivos largos, este número se reducirá), y en el sistema de archivos NTFS, este valor se convierte en 4G-1, que es más de 4 mil millones, lo que es casi ilimitado. La carpeta que mencionaste con 150.000 archivos es obviamente del sistema NTFS.

En segundo lugar, VB6 es un software antiguo nacido a finales del siglo pasado. Es un lenguaje de desarrollo de programas de 32 bits. Cuando nació, FAT32 era el sistema de archivos más común y avanzado. tiempo, por lo que VB6 también funciona según archivos FAT32, y considerando la necesidad de ser compatible con nombres de archivos largos, el límite en la cantidad de archivos que los propios controles y funciones de VB6 pueden operar en una carpeta es 32,767 (reducido a la mitad).

Por lo tanto, su carpeta de 150.000 archivos no se puede recorrer utilizando los controles o funciones que vienen con el propio VB. Sólo puede utilizar controles o componentes de terceros, como el famoso FSO: Dim?fso ?As. ?Object,?fd?As?Object,?f?As?Object

Set?fso?=?CreateObject("Scripting.FileSystemObject")

Set?fd? fso.GetFolder("Escriba aquí el nombre de ruta completo de la carpeta a procesar")

For?Each?f?In?fd.Files

'Aquí está el recorrido transversal Operar cada archivo sale

'donde f.Name es el nombre del archivo, f.Path es la ruta del archivo,

'f.Size es el tamaño del archivo y f.Type es el Tipo de archivo, etc.

'Para evitar retrasos, puede utilizar la siguiente línea en este bucle:

'DoEvents

Siguiente

Set?fd?=?Nothing

Set?fso?=?Nothing

No lo probé porque no tengo una carpeta con tantos archivos.

Si este método no funciona, entonces solo podrás usar la API.