how to open a file in VB?

[Mc Brain]

Try:

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
 
Private Sub Command1_Click()
  ShellExecute 0&, vbNullString, _
    "d:\223\234.chm", _
    vbNullString, "C:\", SW_SHOWNORMAL
End Sub