module1.bas

来自「一个数据库应用程序」· BAS 代码 · 共 15 行

Attribute VB_Name = "Module1"
Private Sub shell()


If path <> "" Then
Call shell(path, 1)
strsql = ""
path = ""
Else
MsgBox "对应的程序不存在!", vbCritical, "错误!"
strsql = ""
path = "'"
Exit Sub
End If