Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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.