Obtener nombre de una subcarpeta

[albertogarci86]

Buenas

¿Alguien sabe como obtener el nombre de una subcarpeta?

En el directorio de las subcarpetas puede haber varias pero quiero quedarme con el nombre de la que empieza por 170....

¿Cómo puedo hacerlo?

Seguramente sea algo sencillo pero estoy bloqueado,

Gracias

[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
 

[albertogarci86]

No me funciona cuando genero un vbs

[David]

Si estás trabajando con VBS, puedes usar FileSystemObject para listar los directorios, por ejemplo, con GetFolder obtienes un objeto Folder con el cual trabajar:
http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

[ldcd]

en vb .net puedes utilizar el FileBrowserDialog, el cual t muestra una ventana en la cual

tienes q seleccionar una carpeta, al aceptar tndras la direccion completa de la carpeta q

seleccionaste, de ahi puedes sacar el nombre. esper t sirva

[pkj]

¿Porque no añades un DirListBox y le pones la ruta y punto?. Haces un For Next con el listado del DirListBox y buscas la carpeta que quieres.

Saludos