31/05/2006, 01:37
| ||||
| ||||
| Abrir una carpeta con el explorador de wondows Hola amigos , se que tal vez es algo sencillo pero me pregunto ¿COMO ABRO EN UNA VENTANA UNA CARPETA? lo eh intentado asi: Cita: pero solo me funciona para ejecutar archivos, no logro abrir la carpetashell "c:/carpeta/" o asi shell "c:/carpeta"  Alquien me prodria decir como hacerlo porfavor Salu2
__________________ Dios solo nos dio el 0 y el 1 pero con eso hemos hecho maravillas 1er dia te espantas, 2° te desesperas,3° buscas ayuda y 4°....Adios |
|
31/05/2006, 04:54
| |||
| |||
| Hola Para eso mejor que Shell puedes utilizar la API ShellExecute. Tienes que declarar la API
Código:
Luego para abrir la carpetaPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1
Código:
Si quieres abrir la carpeta en modo explorardor en lugar de open pones ExploreShellExecute Me.hwnd, "open", "D:\Misdoc", "", "", 1 --Saludos-- |
|
31/05/2006, 05:40
| |||
| |||
| Hola Solo por curiosidad lo he intentado con el Shell y se puede hacer, lo malo es que lo tienes que hacer indicando la ruta del explorer, que puede ser distinta según el ordenador. De todas formas también lo pongo
Código:
--Saludos-- resul = Shell("C:\Archivos de programa\Internet Explorer\iexplore.exe d:\misdoc", vbNormalFocus)
|
|
31/05/2006, 12:14
| ||||
| ||||
| Muchas gracias me sirvieron de mucho esos ejemplos  Te lo agradezco mucho 
__________________ Dios solo nos dio el 0 y el 1 pero con eso hemos hecho maravillas 1er dia te espantas, 2° te desesperas,3° buscas ayuda y 4°....Adios |
