程序如下所示，该程序总不能正常执行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

这么惨，没人答。
我自己找到原因了。
向大家汇报一下，就是目标地址必须写到文件名，否则下载不成功

学习了。谢谢！