Componente para listar directorios (qe no sea el dirlistbox)

Sandman
31 de Agosto del 2004
Buenas

Alguien sabe otro tipo de componente de Visual 6
para moverse por directorios? Qe no sea el patatero DirListBox

Me gustari ke me mostrara todas las unidades a + de los directorios, un arbol mas kompleto tipo XP

Muchas Gracias

sdemingo
31 de Agosto del 2004
Hola,

puedes currarte un explorador de archivos con los controles treeview y listview

ismael
31 de Agosto del 2004
GRACIAS POR CONTESTAR.

NO ME FUNCIONA
PUES EXPLIKAR CON MAS DETALLE , TE LO AGRADECERIA.

CHAS GRACIAS

mvallejos
31 de Agosto del 2004
Usando funciones API, el problema que es el llamadoa una ventana, no puedes incrustarlo en un formulario.
Fijate esto

Const MAX_PATH = 255

Enum eBIF
BIF_RETURNONLYFSDIRS = &H1 'Sólo dir sistema
BIF_DONTGOBELOWDOMAIN = &H2 'No incluir red
BIF_STATUSTEXT = &H4
BIF_RETURNFSANCESTORS = &H8
BIF_BROWSEFORCOMPUTER = &H1000 'Buscar PCs
BIF_BROWSEFORPRINTER = &H2000 'Buscar Impr.
End Enum





Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long 'Especifica dónde se empezará a mostrar
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

Declare Function SHBrowseForFolder Lib "shell32.dll"
(lpbi As BrowseInfo) As Long


Después, en una subrutina

Dim udtBI As BrowseInfo

With udtBI
.hwndOwner = hwndOwner
.lpszTitle = "Buscar carpeta"
.ulFlags = lFlags Or BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)