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.
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.No les entiendo nada :(
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.Y donde devuelve ese valor? :P
El ejemplo mas sencillo es:Gracias ;) , em funciono, ahora... como hago para el el el dirbox o como se llame no aparesca solo el Disco C: :huh:
Pones unavariable global en un modulo:
Public directorioSeleccionado as string.
dps haces un formulario con un dirlistbox y dos botones uno que dice aceptar y otro cancelar.
Supongamos que tenes el boton aceptar se llama cmdAceptar y el de cancerlar cmdCancelar, y el dirlistbox se llama dir1, entonces:Código: TextY listo entonces en el formulario "principal", pones:
sub cmdAceptar_click() if (dir1.path <> "") then directorioSeleccionado = dir1.path else directorioSeleccionado = "" end if unload me end sub sub cmdCancelar_click() unload me end sub
frmSeleccionarDirectorio.show
Y cuando necesites usar el directorio seleccionado se encotrara en la variable directorioSeleccionado.
Esperi qeu este mas claro...
slds.
Y que me de la ruta en una variable :Pya lo hice B)
¿Cómo se hace?
YEAH! :smartass: B)Cita de: "Bopo"Y que me de la ruta en una variable :Pya lo hice B)
¿Cómo se hace?Código: Text
Private Sub Drive1_Change() Dir1.Path = Drive1 End Sub