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

Question

如何直接从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

Answer 1

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