comandos del sistema

[moncherote]

Option Explicit

Sub ListaCarpetas(CarpetaOrigen, Buscamos)
Dim fso As Object
Dim carpeta As Object
Dim Subcarpeta As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set carpeta = fso.GetFolder(CarpetaOrigen)

For Each Subcarpeta In carpeta.SubFolders
If InStr(1, Subcarpeta.Name, Buscamos)=1 Then
'aqui encontramos algo...lo muestro en un MsGbox
MsgBox Subcarpeta.Name
End If

Next

Set carpeta = Nothing
Set fso = Nothing

End Sub

Sub prueba()
Call ListaCarpetas("C:\", "Win")
End Sub