如何用参数调用外部程序？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何用参数调用外部程序？

共有2383人关注过本帖树形打印复制链接主题：如何用参数调用外部程序？

ycwk

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00

Post By：2017/12/25 16:16:00 [只看该作者]

我是这样写的 '如何避免这两个路径都不存在的情况下报错？也就是说这两个路径都没有的情况下，就退出事件，不再往下运行？

Dim Proc As New Process

If FileSys.FileExists("C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe") Then

Proc.File ="C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe" '指定要执行的文件

ElseIf FileSys.FileExists("C:\Program Files\LANDesk\ServerManager\RCViewer\isscntr.exe") Then

Proc.File ="C:\Program Files\LANDesk\ServerManager\RCViewer\isscntr.exe" '指定要执行的文件

Else

Msgbox("没有找到可供远程的执行程序,请联系管理员")

End If

Proc.Arguments = "-A" & str_ip & "; -c""Remote Control"" "

Proc.Start()

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/25 16:26:00 [只看该作者]

Dim file1 = "C:\Program Files (x86)\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file2 = "C:\Program Files\LANDesk\ServerManager\RCViewer\isscntr.exe"
Dim file As String = ""
If FileSys.FileExists(file1) Then
    file = file1
ElseIf FileSys.FileExists(file2) Then
    file = file2
End If
If file = "" Then
    msgbox("路径不存在")
Else
    Dim Proc As New Process
    proc.file = file
    Proc.Arguments = "-A" & str_ip & "; -c""Remote Control"" "
    Proc.Start()
End If

下一主题 >> << 上一主题

总数 12 上一页 1 2

主题：如何用参数调用外部程序？