• Home
 · 
• Files/File Controls/Input/Output
 · 
• How to open a Windows Explorer(Cabinet Class) or any file with its default applicat¨on.

How to open a Windows Explorer(Cabinet Class) or any file with its default applicat¨on.

How to open a Windows Explorer(Cabinet Class) or any file with its default applicat¨on.

Rate How to open a Windows Explorer(Cabinet Class) or any file with its default applicat¨on.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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
Private Const SW_SHOWNORMAL = 1

'Write the path in the text box and clic in Command1

Private Sub OpenWin()
Dim r As Long
 r = ShellExecute(Me.hWnd, "Open", _
 Text1.Text, "", "", SW_SHOWNORMAL)

End Sub

Private Sub Command1_Click()
 OpenWin
end sub