Componente para listar directorios (qe no sea el dirlistbox)
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
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
Hola,
puedes currarte un explorador de archivos con los controles treeview y listview
puedes currarte un explorador de archivos con los controles treeview y listview
GRACIAS POR CONTESTAR.
NO ME FUNCIONA
PUES EXPLIKAR CON MAS DETALLE , TE LO AGRADECERIA.
CHAS GRACIAS
NO ME FUNCIONA
PUES EXPLIKAR CON MAS DETALLE , TE LO AGRADECERIA.
CHAS GRACIAS
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)
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)