Abrir archivos
¿Hola, qué tal?
Tengo un problema para abrir los archivos pdf, ya que tengo una base de datos que va a ser compartida por más pc's, y no sé cómo hacer que me abra el archivo con una UNC, ni si esa es la solución.
Por si acaso te mando el evento. Muchísimas gracias por tu tiempo.
Un saludo
Private Sub cmd_AbrirInforme_Click()
Dim Asd As Variant
On Error GoTo ManejadorErrores
Set Objeto = CreateObject("Scripting.FileSystemObject")
Asd = Shell("rundll32.exe url.dll,FileProtocolHandler " & ("\\aula001\Documents and Settings\All Users\Documentos\Clase_CFD3_2008.pdf"), vbNormalFocus)
Exit Sub
ManejadorErrores:
MsgBox Err.Description
End Sub
Tengo un problema para abrir los archivos pdf, ya que tengo una base de datos que va a ser compartida por más pc's, y no sé cómo hacer que me abra el archivo con una UNC, ni si esa es la solución.
Por si acaso te mando el evento. Muchísimas gracias por tu tiempo.
Un saludo
Private Sub cmd_AbrirInforme_Click()
Dim Asd As Variant
On Error GoTo ManejadorErrores
Set Objeto = CreateObject("Scripting.FileSystemObject")
Asd = Shell("rundll32.exe url.dll,FileProtocolHandler " & ("\\aula001\Documents and Settings\All Users\Documentos\Clase_CFD3_2008.pdf"), vbNormalFocus)
Exit Sub
ManejadorErrores:
MsgBox Err.Description
End Sub
1 Respuesta
Respuesta de smanero
1
Prueba así:
Asd = Shell("rundll32.exe url.dll,FileProtocolHandler ""\\aula001\Documents and Settings\All Users\Documentos\Clase_CFD3_2008.pdf""", vbNormalFocus)
Asd = Shell("rundll32.exe url.dll,FileProtocolHandler ""\\aula001\Documents and Settings\All Users\Documentos\Clase_CFD3_2008.pdf""", vbNormalFocus)
Hola, qué tal!
La sentencia que te mandé me funciona bien, lo que no sé es que significa. Y tu código también funciona perfectamente. El error estaba en el nombre del ordenador, que le faltaba un cero. Me gusta más tu código, así que lo he cambiado.
Muchas gracias por contestar, no sabes los días que llevaba peleándome con esto.
Un saludo!
La sentencia que te mandé me funciona bien, lo que no sé es que significa. Y tu código también funciona perfectamente. El error estaba en el nombre del ordenador, que le faltaba un cero. Me gusta más tu código, así que lo he cambiado.
Muchas gracias por contestar, no sabes los días que llevaba peleándome con esto.
Un saludo!
