Error '76' no encontro ruta de acceso.

[feivelfabiola]

'''' Este es un fragmento de codigo:


' Variables para funcion shellexecute que fuerza a ejecutar aplicaciones

Private Const GWL_WNDPROC = (-4)
Private 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

' El prog. que se fuerza a ejecutarse es un geoworkspace (Geomedia version 4)
Private Sub cmdGeomedia_Click()
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Dim RetVal As Long
On Error Resume Next
RetVal = ShellExecute(0, "open", "C:\GeoWorkspaces\FABIOLA.gws", "", "", SW_SHOWMAXIMIZED) 'AQUI ABRE UN ARCHIVO GEOMEDIA
End Sub

''' Le puse como dijiste App.C:\GeoWorkspaces\FABIOLA.gws y no habre nada, no se si es asi ''' como dices