Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Red Mx en 25 Junio 2006, 21:19 pm



Título: [ayuda]boton de examinar
Publicado por: Red Mx en 25 Junio 2006, 21:19 pm
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.


Título: Re: [ayuda]boton de examinar
Publicado por: soplo en 25 Junio 2006, 21:59 pm
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


Título: Re: [ayuda]boton de examinar
Publicado por: Hans el Topo en 26 Junio 2006, 20:15 pm
mriate también algunas propiedades del app k te serán utiles...


Título: Re: [ayuda]boton de examinar
Publicado por: NYlOn en 26 Junio 2006, 22:09 pm
Código:
    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.-


Título: Re: [ayuda]boton de examinar
Publicado por: Red Mx en 26 Junio 2006, 23:07 pm
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

///////////////////////////////////////////////////