下列程式碼要呼叫呼叫winnt裡Windows.hlp會產生錯誤
請問各位先進如何 設定有標記●程式碼。謝謝。
Private Sub cmdHelp_Click()
Dim fso As New Scripting.FileSystemObject
Dim lngReturn As Long
Dim strWindowsFolder As String
Dim strSystemFolder As String
Dim strHelpFile As String
Dim strHelpFile_NT4 As String
' For Windows 95,98.
strWindowsFolder = fso.GetSpecialFolder(WindowsFolder)
strHelpFile = strWindowsFolder & "\Help\Windows.hlp"
' For Windows NT, 2000
strSystemFolder = fso.GetSpecialFolder(SystemFolder)
strHelpFile_NT4 = strSystemFolder & "\Windows.hlp"
●lngReturn = WinHelp(Me.hwnd, strHelpFile_NT4, HELP_PARTIALKEY, "ShutDown")
End Sub