在VB6中使用Internet Transfer Control为什么不能执行Execute命令？
程序如下所示，该程序总不能正常执行execute命令。请高手答复一下。谢谢！Private Sub Command1_Click()
Dim isRight As Boolean '定义一个BOOLEAN变量,用于判断是否仍然在执行上传
Dim filestr As String '定义一个字符串变量,用于存储本地文件的路径和文件名,并在后面赋值,当然,正式使用的时候这里是由用户选择文件的路径
filestr = "d:\1.sql"
Inet1.UserName = "abcd"
Inet1.Password = "abcd"
'调用Inet的execute方法上传文件,第一参数是FTP URL地址,第2个参数是传递参数,字符串型,分为3个部分: 方法+本地文件+上传后文件名 ,FTP上传使用 PUT 命令
Inet1.Execute "ftp://10.10.10.10", "PUT " & filestr & " uploadedfilename.exe" 'put,本地文件路径,上传后的文件名称之间一定要有空格隔开
isRight = Inet1.StillExecuting '获取当前是否仍然在执行命令
'循环检查是否仍然在命令执行,如果仍然还在执行命令,那么将控制权交给系统,这样系统可以分配空闲的处理时间来执行命令
Do While isRight
isRight = Inet1.StillExecuting
DoEvents
Loop
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
'获取并显示一下当前的执行状态,方便测试
txtData.Text = txtData.Text + CStr(State)
'检查当前返回的状态值
Select Case State
'如果是12,说明执行完成
Case 12
'以下=号中间的代码我暂时还不知道具体有什么在作用
'==============================================
Dim vtData As Variant ' Data variable.
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
' Get first chunk.
vtData = Inet1.GetChunk(1024, icString)
Do While Not bDone
strData = Data & vtData
' Get next chunk.
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
txtData.Text = strData
'===============================================
txtData.Text = "上传完成"
End Select
End Sub
