Foxtable(狐表)用户栏目专家坐堂 → 判断CMD的执行


  共有4204人关注过本帖树形打印复制链接

主题:判断CMD的执行

帅哥哟,离线,有人找我吗?
fendouww
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:307 积分:2448 威望:0 精华:0 注册:2019/7/19 13:09:00
判断CMD的执行  发帖心情 Post By:2022/11/8 16:29:00 [只看该作者]

Dim p As New Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False '关闭Shell的使用
p.StartInfo.RedirectStandardInput = True '重定向标准输入
p.StartInfo.RedirectStandardOutput = True '重定向标准输出
p.StartInfo.RedirectStandardError = True '重定向错误输出
p.StartInfo.CreateNoWindow = True '设置不显示窗口
p.Start()
Dim bb As String = "echo f| xcopy """ & fi & """ """ & fi1 & """ /i /D /s /e /c /y /h"
p.StandardInput.WriteLine(bb)
p.StandardInput.WriteLine("exit")

请问如何判断CMD已经执行完毕和判断结果?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107523 积分:546900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/8 17:06:00 [只看该作者]

p.StandardInput.WriteLine("exit")
p.WaitForExit()
MsgBox("结束")

 回到顶部