Visual Basic - URGENTE!!! COmmon dialog Box

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE!!! COmmon dialog Box

Publicado por matt (13 intervenciones) el 09/08/2000 00:00:00
Hola, chicos y chicas. A ver si vosotros sabeis como hacer esto...
Necestito sacar un CommonDialogBox con los ficheros y carpetas de mi disco duro...lo hago a traves del metodo .Showopen, pero claro, el tipo de cuadro de dialogo es de Abrir o Guardar Como.
Yo necesito sacarlo pero solo para que seleccionen una carpeta...necesito solo eso..nade de archivos de abrir o guardar, solo que seleccionen una carpeta....
Muchas gracias por anticipado.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE!!! COmmon dialog Box

Publicado por Raul ruiz (19 intervenciones) el 10/08/2000 00:00:00
prueba con esta funcion a ver si te funciona.

Function VerCarpetas() As String
´devuelve la carpeta elegida
Dim A As Integer
Dim I As Integer
Dim iNull As Integer, lpIDList As Long, lResult As Long
Dim sPath As String, udtBI As BrowseInfo, idl As ITEMIDLIST
With udtBI
.hwndOwner = Me.hwnd
.lpszTitle = lstrcat("Selecciona nombre del servidor", "")
.ulFlags = 1
´DESKTOP = 0 INTERNET = 1 PROGRAMS = 2 Controls = 3 Printers = 4 PERSONAL = 5
´FAVORITES=6 STARTUP=7 RECENT=8 SENDTO=9 BITBUCKET=10 STARTMENU=11
´DESKTDIR=16 DRIVES=17 NETWORK = 18 NETHOOD=19 FONTS=20 TEMPLATES=21
´COMMN_STMENU=22 COMMN_PROGS=23 COMMN_STUP=24 COMMN_DESK=25
´APPDATA=26 PRINTHOOD=27 ALTSTUP=29 ALTSTUP=30 COMMN_FAVOR=31
´INET_CACHE=32 COOKIES=33 HISTORY=34
SHGetSpecialFolderLocation Me.hwnd, 18, idl ´Iniciar en Menú inicio
.pIDLRoot = idl.mkid.CB
´End If
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String(260, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)
If iNull Then sPath = Left(sPath, iNull - 1)
End If
VerCarpetas = sPath
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar