SoloCodigo

Hola Bopo.

Puedes usar una función de este estilo:

Código: Text

1.  
2. Public Function RtvPath(ByVal Cadena As String) As String
3.  
4.     On Local Error Resume Next
5.     Cadena = Trim(Cadena)
6.     Cadena = Replace(Cadena, "//", "\\")
7.     Dim int1 As Integer
8.     int1 = InStrRev(Cadena, "\")
9.     If int1 > 2 Then
10.         RtvPath = Left(Cadena, int1 - 1) & "\"
11.     Else
12.         If Len(Cadena) = 2 And Mid(Cadena, 2, 1) = ":" Then
13.             RtvPath = Cadena & "\"
14.         ElseIf Left(Cadena, 2) = "//" And InStr(3, Cadena, ":") = 0 Then
15.             RtvPath = Cadena & "\"
16.         End If
17.     End If
18.     
19. End Function
20.  
21.  

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.

El ejemplo mas sencillo es:
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: Text

1.  
2. sub cmdAceptar_click()
3.      if (dir1.path <> "") then
4.            directorioSeleccionado = dir1.path
5.      else
6.            directorioSeleccionado = ""
7.      end if
8.      unload me
9. end sub
10.  
11. sub cmdCancelar_click()
12.     unload me
13. end sub
14.  
15.  

Y listo entonces en el formulario "principal", pones:

     frmSeleccionarDirectorio.show

Y cuando necesites usar el directorio seleccionado se encotrara en la variable directorioSeleccionado.

Esperi qeu este mas claro...
slds.

Cita de: "Bopo"

Y que me de la ruta en una variable

¿Cómo se hace?

ya lo hice

Código: Text

1. Private Sub Drive1_Change()
2. Dir1.Path = Drive1
3. End Sub
4.  
5.