vb ftp上传下载文件

部分代码： Private Sub Command2_Click()   Dim back As Integer   Dim line1 As String   Dim line2 As String   Dim line3 As String   Dim line4 As String     Dim ret1() As String   Dim ret2() As String   Dim ret3() As String   Dim ret4() As String   Me.Hide   '打开文件   Open App.Path + "\ftpup.txt" For Input As #1     Line Input #1, line1   Line Input #1, line2   Line Input #1, line3   Line Input #1, line4   ret1() = Split(line1, "#")   ret2() = Split(line2, "#")   ret3() = Split(line3, "#")   ret4() = Split(line4, "#")   MsgBox " & ret1(1) & ":" & ret2(1) & "@" & ret3(1)     back = MsgBox("确定要将" & Text1.Text & "上传吗?", vbOKOnly + vbOKCancel, "上传参数表")   'ftp 上传   If back = 1 Then       With Inet1         '上传文件         .Execute " & ret2(1) & ":" & ret3(1) & "@" & ret1(1), "put """ & Text1.Text & """ " & ret4(1)         '下载文件         '.Execute " & Trim(Text2.Text) & ":" & Trim(Text3.Text) & "@" & Trim(Text1.Text), "get ICmaster/conf/busfile.conf c:\testtest1.txt"         '上传文件 '         .Execute " & Trim(Text2.Text) & ":" & Trim(Text3.Text) & "@" & Trim(Text1.Text), "send c:\testtest1.txt   ICmaster/conf/abc.txt"         If Err.Number = 0 Then           MsgBox "上传文件成功", vbOKOnly + vbInformation, "FTP上传"             Else           MsgBox "上传文件失败", vbOKOnly + vbInformation, "FTP上传"         End If             End With   End If End Sub