Question

VB6中在调用inet时，执行execute总不成功，请查看源代码，并给予答复。谢谢！

Private Sub Command1_Click()

Dim isRight As Boolean '定义一个BOOLEAN变量,用于判断是否仍然在执行上传

Dim filestr As String '定义一个字符串变量,用于存储本地文件的路径和文件名,并在后面赋值,当然,正式使用的时候这里是由用户选择文件的路径

filestr = "d:\1.sql"

Inet1.UserName = "lvmin"
Inet1.Password = "lvmin"

'调用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

Answer 1

ftp://10.10.10.10
改成
10.10.10.10 试试看。