急，帮忙看看什么错，在线等

[kcw]

下面这句提示“文件未找到”

Shell "IEXPLORE.EXE " + App.Path + "\" + CStr(Date) + ".html", 1

如果用notepad.exe就可以打开，求解

[yjplus]

"\"换为"/"试试

[kcw]

试了一下，不行啊

[artoksxb]

这样试试：
Shell "EXPLORER.EXE " + App.Path + "\" + CStr(Date) + ".html", 1

[射天狼]

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 Sub Command1_Click()
ShellExecute Me.hwnd, "open", "http://www.sohu.com", vbNullString, vbNullString, 1
End Sub

[recollectpainer]

你将打开方式换成 notepad.exe 则可打开,而改成 IEXPLORE.EXE 打开则不行
说明报错语句中说的文件未找到是指 IEXPLORE.EXE 文件未找到
在 shell 语句中指明 IEXPLORE.EXE 文件所在路径则问题应可解决