Abrir explorador de windows
Publicado por Albert (204 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:
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
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 SubLabel29.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
0