INET上传时提示对象变量或with块变量未设置

[hinavy]

Private WithEvents Inet1 As Inet

Private Sub Command1_Click()
With Inet1
.URL = "ftp://222.191.251.213" --------------这一行就提示"对象变量或with块变量未设置"
.RemotePort = 21
.Protocol = icDefault
.UserName = "hinavy"
.Password = "a123456"
.RequestTimeout = 0
.Execute , "send D:\temp\Readme.txt \web\1111.txt"
End With
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "OK"

End Sub

[clear_zero]

Private WithEvents Inet1 As new Inet

试试看

[zzyong00]

Dim WithEvents inet1 As VBControlExtender
Private Sub Form_Load()
Licenses.Add "inetctls.inet.1", "inet"
Set inet1 = Controls.Add("inetctls.inet.1", "inet1")

End Sub

但感觉还是在窗口上直接放一个inet控件方便一些

[jinder]

看不错毛病,帮顶.