Programación General > Visual Basic 6.0 e inferiores

 Seleccionar Una Carpeta

(1/3) > >>

Bopo:
Y que me de la ruta en una variable :P

¿Cómo se hace?

Brroz:
Hola Bopo.

Puedes usar una función de este estilo:


--- Código: Text --- Public Function RtvPath(ByVal Cadena As String) As String     On Local Error Resume Next    Cadena = Trim(Cadena)    Cadena = Replace(Cadena, "//", "\\")    Dim int1 As Integer    int1 = InStrRev(Cadena, "\")    If int1 > 2 Then        RtvPath = Left(Cadena, int1 - 1) & "\"    Else        If Len(Cadena) = 2 And Mid(Cadena, 2, 1) = ":" Then            RtvPath = Cadena & "\"        ElseIf Left(Cadena, 2) = "//" And InStr(3, Cadena, ":") = 0 Then            RtvPath = Cadena & "\"        End If    End If    End Function  
Suerte.

Bopo:

--- Cita de: "Brroz" --- Hola Bopo.

Puedes usar una función de este estilo:


--- Código: Text --- Public Function RtvPath(ByVal Cadena As String) As String     On Local Error Resume Next    Cadena = Trim(Cadena)    Cadena = Replace(Cadena, "//", "\\")    Dim int1 As Integer    int1 = InStrRev(Cadena, "\")    If int1 > 2 Then        RtvPath = Left(Cadena, int1 - 1) & "\"    Else        If Len(Cadena) = 2 And Mid(Cadena, 2, 1) = ":" Then            RtvPath = Cadena & "\"        ElseIf Left(Cadena, 2) = "//" And InStr(3, Cadena, ":") = 0 Then            RtvPath = Cadena & "\"        End If    End If    End Function  
Suerte.
--- Fin de la cita ---


Y como hago para que abra la cosa donde se selecciona :unsure:  :losiento:

Brroz:
Entendí que necesitabas una función para recuperar el path en un string...

Para lo que quieres lo más sencillo es que incluyas en algún formulario un control Microsoft Common Dialog Control o si quieres utilizar apis, usa
SHBrowseForFolder junto con SHGetPathFromIDList

Chao.

QliX=D!:
Si tambien podes usar un form con un dirlistbox, hacer que la seleccione ahí poner un boton que diga aceptar, en el cual pone el path en una variable (global por ejemplo) y cierra la ventana.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente