Visual Basic para Aplicaciones - Abrir explorador de windows

Life is soft - evento anual de software empresarial
   
Vista:

Abrir explorador de windows

Publicado por Albert (108 intervenciones) el 28/02/2015 15:02:11
estimados Foreros:
Tengo un código que (según guardo como nota) me proporciono JuanC (sin cuya inestimable ayuda "muchos" no seriamos capaces de hacer la mas mínima aplicación) cuando le doy a un botón me abre el explorador para poder guardar una ruta, es el siguiente:

1
2
3
4
5
6
7
8
9
'Obre el explorador de Windows per buscar un arxiu
'de LWP JuanC
Private Sub CommandButton5_Click()
Dim FileToOpen As Variant
On Error Resume Next
FileToOpen = Application.GetOpenFilename("Todos los archivos, *.*")
If False = FileToOpen Then Exit Sub
Label29.Caption = FileToOpen
End Sub

La cosa esta en que me ha funcionado muy bien (Se situa en la carpeta "Bibliotecas" del escritorio) pero ahora se me hace un poco farragoso tener que abrir el árbol entero cada vez que necesito poner una ruta, pues siempre voy a un disco externo y en él a una carpeta( que siempre es la misma ) y en ella es donde escojo una subcarpetas etc.. he intentado cambiar la ruta en

FileToOpen = Application.GetOpenFilename("E: Quirze,Trabajos EGV. *.*")
Donde E:Quirze es el disco externo
Trabajos EGV la primera carpeta
*.* pretendía que fuese lo que tengo que escoger

pero no lo hago bien pues no me la reconoce. La pregunta es eso que quiero es posible?
De Antemano Mil gracias por vuestra ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Abrir explorador de windows

Publicado por Albert (108 intervenciones) el 04/03/2015 17:35:28
Buenas tardes foreros:
Otra cosa resuelta....... adaptando un código de Excelforo Ismael Romero ya he conseguido que se me abra la carpeta que necesito

Dim MyPath As String
MyPath = "E:\FREECOM HDD (F)\TRABAJOS DE EGV FACTORÍA"
ChDrive MyPath
ChDir MyPath

Gracias por vuestro tiempo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar