que onda banda bueno ya tenia rato que no se me atoraba nada en vb pero hay me surgio este problema no se si men puedan ayudar quiero crear un boton de añadir me explico:
Estoy trabajando con VB 6.0 y creo recordar q el mismo llevaba un tipo de
control o botón q habría él mismo el explorador de windows y te permitía
buscar en las unidades y subcarpetas hasta q seleccionabas una y se
quedaba con el Path de esa carpeta.
Bueno quiza me estoy confundiendo,
De todas maneras eso es lo que tengo q hacer, y si VB no lleva un contol
que lo automatiza alguien puede sugerirme como hacerlo?
(http://vbnet.mvps.org/images/gfx/browse/browsefolders.gif)
esto es para la version 2.0 de red music me esta quedando leve y ya la avia acabado pero se me ocurrio eso segure buscando.
Pues no has mirado mucho la verdad
Porque en tu barra de heramientas tienes el objeto DRIVE que te devuelve todas tus unidades, el objeto DIRLISTBOX que te devuelve las carpetas de un path determinado, el objeto FILE que te devuelve todos los ficheros de un determinado path y si escarbas un poquito mas verás que en componentes tienes el objeto CMDIALOG que es el cuadro de diálogo común de windows.
Y todo eso sin mirar las apis que es lo mas recomendable, pero un poco mas complicadas.
Vamos que mires un poco antes de preguntar tio
mriate también algunas propiedades del app k te serán utiles...
Dim iNull As Integer, lpIDList As Long
Dim sPath As String, udtBI As BrowseInfo
With udtBI
.hWndOwner = Me.hWnd
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
SHGetPathFromIDList lpIDList, sPath
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
MsgBox sPath
End If
Espero que te sirva, saludos.-
chale que novatada me paso pero ni modo gracias nylon pero el error que tenia es que no estaba mandando el path al filelistbox chale carnales ya esta mi red music 2.0
a bueno la solucion que tengo es en un modulo declaro las funciones y en form mando llamar la funcion para que examine por ahi si quieren el code me lo piden pero de todos modos gracias.
////////////////////Publisidad////////////////////
Siempre es bueno cambiar ....
Red Music 2.0 llego
///////////////////////////////////////////////////