将数据从 cmd 显示到文本框 VB6

【问题标题】：Display data from cmd into textbox VB6将数据从 cmd 显示到文本框 VB6
【发布时间】：2014-06-13 02:20:17
【问题描述】：

如何将数据直接从 cmd 插入 text1？我试过了，但输出错误只是一些数字......

Dim com As String
Private Sub Command1_Click()
Dim sCommand As String
sCommand = "dir"
Text1.Text = Shell("cmd.exe /k" & sCommand)
End Sub

【问题讨论】：

标签： vba vb6

【解决方案1】：

您的代码非常接近。查看此答案，它应该为您指明正确的方向。 Getting command line output in VBScript (without writing to files) 基本上你需要将 Shell 命令放入一个对象，即 objShell，然后使用 .StdOut.ReadLine() 方法。

【讨论】：

cmd 参数 /k 将阻止任何东西返回给调用者。在窗口关闭之前不会返回任何内容。如果 OP 在您引用的答案中使用 /c 开关，则 OP 将获得他们可能期望的结果。