VB6

Question

我一直在尝试使用 VB6 中的 ShellExecute 方法打开文件，文件名将从表单中的文本框中获取。但是文件打不开，也没有错误。

但是，如果我直接传递文件名而不是从变量引用，同样的方法可以顺利进行。下面的代码供参考。不确定哪里存在问题，但非常感谢任何帮助。

工作代码

ShellExecute 0, vbNullString, "F:\Desktop\SBKL\template.xlsx", vbNullString, vbNullString, vbNormalFocus

非工作代码

Dim FlNme As String
FlNme = Trim(Me.T_Doc_Link.Text)
ShellExecute 0, vbNullString, FlNme, vbNullString, vbNullString, vbNormalFocus

Answer 1

在调用 ShellExecute() 之前，您应该使用 Dir$() 检查文件是否存在，并在路径 and/or 文件错误时警告用户：

If Dir$(FlNme, vbNormal) = vbNullString Then
    MsgBox "File not found:" & vbCrLf & FlNme
    Exit Sub
End If
ShellExecute 0, vbNullString, FlNme, vbNullString, vbNullString, vbNormalFocus

VB6 - ShellExecute 不工作

VB6 - ShellExecute not working

shellexecute