【急求】VB中使用WScript调用外部命令 - VB / 基础类
在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。 代码如下: VB code: Private Function getFile_CMD(filename, filepath) As Boolean Dim command As String On Error GoTo SCPError command = "scp2 " & sshId & ":" & sshDir & filename & " " & filepath MsgBox "start!", vbOKOnly Set wsh = Wscript.CreateObject("wscript.shell") wsh.run ("C:\Windows") MsgBox "end!", vbOKOnly Exit Function SCPError: ' Error-handling routine. MsgBox filename & ": " & Err.Description, vbCritical, "GDWISMS SSH Batch" Close #1 End Function 错误如下: “需要对象” 我不知道是不是wsh要用DIM来声明下还是什么问题?
sf 查了一下,wscript常用来写病毒啊,闪 晕,跟病毒没什么关系。我想在vb中调用scp2命令做文件传输的。上面代码只是简单测试打开一个目录,提示有错误,找不到原因才来发帖问问高手的。 要引用 Wscript 吧!大概 用浏览器“打开一个目录”? 帮顶 学习了引用 查了一下,wscript常用来写病毒啊,闪 不懂就乱叫唤引用 工程——引用——Microsoft Script Run Tim
相关问答:
login.aspx.vb: Public ReadOnly Property nameT() As String Get Return TextBox1.Text &nb ......
用VB怎么只针对windows自带的文件的右键添加菜单 如(.txt .doc) 这个是只针对以这两个为扩展名的文件操作 Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command] @= ......
Private Sub Check1_Click() If Check1.Value = 1 Then DTP1.Enabled = True Else DTP1.Enabled = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then DTP2.Enabled = True Else
......
我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机 可以啊 你先下个AT命令集合学习学习 我来顶 顶贴 LZ好厉害 不顶不行 老是排MP 引用 LZ好厉害 ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写,上面写了很长 很多,但是我不知道怎么用,我想问一下怎样写才能实现在TEXT1中写字,然后点Command1提交,然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......