• Home
 · 
• Windows API Call/Explanation
 · 
• ''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following co

''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following co

''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following code In Bas module then call ViewDocument

API Declarations



Private Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long
Public Enum EShellShowConstants
essSW_HIDE = 0
essSW_MAXIMIZE = 3
essSW_MINIMIZE = 6
essSW_SHOWMAXIMIZED = 3
essSW_SHOWMINIMIZED = 2
essSW_SHOWNORMAL = 1
essSW_SHOWNOACTIVATE = 4
essSW_SHOWNA = 8
essSW_SHOWMINNOACTIVE = 7
essSW_SHOWDEFAULT = 10
essSW_RESTORE = 9
essSW_SHOW = 5
End Enum





Rate ''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following co

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error GoTo Err
Call ShellExecuteForExplore(0, "open", sFile, 0, 0, essSW_SHOWNORMAL)
Exit Sub
Err:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub