代码之家 › 专栏 › 技术社区 › Maruthi

VB6-ShellExecute不工作

shellexecute vb6

0

Maruthi · 技术社区 · 9 年前

我一直在尝试在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

1 回复 | 直到 9 年前

1

Giorgio Brausi 9 年前

通话前 ShellExecute() 您应该使用检查文件是否存在 Dir$()

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