by Ritik D Dodhiwala (2 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 10th June 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
''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
On Error GoTo Err
Call ShellExecuteForExplore(0, "open", sFile, 0, 0, essSW_SHOWNORMAL)
Exit Sub
Err:
MsgBox Err.Number & vbCrLf & Err.Description
End Sub
No comments have been posted about ''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following co. Why not be the first to post a comment about ''With This API ShellExecuteForExplore you can Open Files accross the Network '''paste Following co.