Cómo recorrer las carpetas en c-drive en vb o en lenguaje electrónico. Tenga en cuenta que es solo la carpeta y lea el nombre del archivo.
En caso de error, reanudar siguiente
Dim str1 As String, str2
Establecer fso = CreateObject("Scripting.FileSystemObject")
Establecer carpetas = fso.GetFolder(" c:\")
Establecer fFolder = Folders.SubFolders
Establecer fFile = Folders.Files
Para cada ffolder en fFolder
str1 = str1 amp; " " amp; fffolder.name
Siguiente paso
MsgBox str1 'Recorre y genera todos los nombres de carpeta en el disco c
Para cada archivo ff En fFile
str2 = str2 amp; " " amp; fffile.Name
Siguiente
MsgBox str2 'Recorre y genera todos los archivos en el disco c Nombre.