vb打开自己目录下的文件

来源：百度知道 编辑：UC知道 时间：2024/06/05 04:51:00
是运行EXE文件
注意：自己目录下的所有EXE

Private Sub Command1_Click()
Dim s As String

s = Dir(App.Path & "\*.exe")
Do While s <> ""
Shell App.Path & "\" & s, vbNormalFocus
s = Dir
Loop
End Sub

Dim s As String
s=App.Path & "\*.exe"
s = Replace(s, "\\", "\")
s = Dir(s)
Do While s <> ""
s = Replace(s, "\\", "\")
s = Dir
DoEvents
Loop

shell replace(app.path & "\123.exe","\\","\")

应用程序目录是默认的当前目录，直接用shell [程序文件名] 即可

shell app.path & "文件名"