我正在尝试在我的一个旧的VB6项目中使用OCX COM库(这是一个生成WinSCP文件的遗留应用程序,我认为我们必须使用VB6来实现它,但不是100%确定)。
无论如何,我们想实现SFTP,而WinSCP可以很容易地做到这一点。
我注册了COM对象,并且在添加引用时可以看到WinSCPNet类型库。但是,当我在对象浏览器中查看该库时,看不到类的属性/方法。此外,这段代码失败了,它没有到达第三个MsgBox ("In SendWinSCP4"),它在这一点上从函数返回,我认为是因为属性UserName没有公开。
MsgBox ("in SendWinSCP")
Dim session As WinSCPnet.session
Dim sessionOptions As WinSCPnet.sessionOptions
Dim transferOptions As WinSCPnet.transferOptions
Set session = New WinSCPnet.session
Set sessionOptions = New WinSCPnet.sessionOptions
Set transferOptions = New WinSCPnet.transferOptions
MsgBox ("in SendWinSCP3")
sessionOptions.Protocol = Protocol_Sftp
sessionOptions.HostName = "example.com"
sessionOptions.UserName = "user"
sessionOptions.Password = "example.com"
sessionOptions.SshHostKeyFingerprint = "ssh-rsa 2048 xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"
MsgBox ("in SendWinSCP4 " & sessionOptions.HostName & "!")发布于 2014-10-15 01:40:36
如上所述,使用On error Resume Next让我克服了错误。
https://stackoverflow.com/questions/26342675
复制相似问题