Question

VB 如何通过API 给CMD 发送信息

VB 如何通过API 给CMD 发送信息

写了一个小转换图片格式的的小程序
支持命令行..
主要是通过 Command() 这个函数来区别是否是通过命令行运行程序的
如何把出错的信息显示在CMD 窗口里.

Private Sub Form_Load()

Dim Str As String, Ypath As String, Mpath As String
Set Fso = CreateObject("Scripting.FileSystemObject")

Str = Command() '"e:\a.bmp d:\t\a.jpg"
If Str <> "" Then
Ypath = Trim(Mid(Str, 1, InStr(Str, " ")))
' MsgBox "(" & Ypath & ")"
Mpath = Trim(Mid(Str, InStr(Trim(Str), " ") + 1))
'MsgBox "(" & Mpath & ")"

If Fso.fileexists(Ypath) Then

If UCase(Mid(Mpath, Len(Mpath) - 2)) = "JPG" Then

a = ConvBmpToJpg(Ypath, Mpath, 80, 0)
Else

'怎样 在CMD 窗口中显示 出错信息
End If

Else
'怎么在 在CMD 窗口中显示 出错信息
End If
End
End If
End Sub

Answer 1

'一个示例代码 执行dos命令并在C盘生成一个a.txt文件
Private Sub Form_Click()
Shell "cmd /c dir > c:\a.txt", vbHide
End Sub

Answer 2

用shell函数。