Obtener nombre de una subcarpeta

[David]

Con Dir puedes obtener todos los directorios en un bucle, a partir de ahí sólo tienes que comparar:

Código vb:

Dim DirName As String
 
DirName = Dir("C:\", vbDirectory)
Do While DirName <> ""
    If GetAttr("C:\" & DirName) = vbDirectory And Left(DirName, 3) = "170" Then
        MsgBox DirName
    End If
    DirName = Dir
Loop