易截截图软件、单文件、免安装、纯绿色、仅160KB

【急求】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


相关问答:

asp.net(vb)问题

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VB修改注册表

用VB怎么只针对windows自带的文件的右键添加菜单 如(.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......

vb修改DTPicker1日期问题

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 ......

vb控制GPRS MODEM拨号

我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习

我来顶

顶贴

LZ好厉害

不顶不行

老是排MP
引用
LZ好厉害
......

VB ini文件写入 读取 - VB / 基础类

看了一些VB ini文件写入读取的方法 但是还是不知道怎么写,上面写了很长 很多,但是我不知道怎么用,我想问一下怎样写才能实现在TEXT1中写字,然后点Command1提交,然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号