请教关于inet控件的问题！

[koppi]

URL.Text是ftp://xzdx:123456@192.168.0.20,用xzdx用户登陆linux的默认路径是/home/xzdx，如果不更改linux默认路径，在VB中实现路径的更改，例如转到/home/abc/bin该如何实现，以下是默认路径上传的代码，请大侠们看看应该如何更改路径，谢谢！
Private Sub cmdSend_Click()
Dim myfilepath As String
myfilepath = File1.Path & "\" & File1.FileName
StateStyle = 1
Inet1.Execute URL.Text, "SEND" & myfilepath & " " & File1.FileName
MsgBox "上传已成功！", , "系统提示"
StateStyle = 0
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Inet1.Execute URL.Text，“DIR”
End Sub

[bcrun]

关注!尤其是这种在VB6中访问FTP的:)

[帝企鹅已被占用]

.Execute , "CD " & "/home/abc/bin"?

[koppi]

Inet1.Execute URL.Text,"CD " & "/home/abc/bin" "SEND" & myfilepath & " " & File1.FileName
这样吗？不行啊

[Tiger_Zhao]

CD 和 SEND 是两次命令，注意要等到前一个命令成功后再发送下个命令。

[koppi]

麻烦楼上给段代码 谢谢

[舉杯邀明月]

up

[赵4老师]

Private Sub cmd(cmdstr As String)
    Do
        If Inet1.StillExecuting = False Then Exit Do
    Loop
    ExeStr = cmdstr
    Done = False
    Debug.Print ExeStr; "="
    Inet1.Execute , ExeStr
    Do
        DoEvents
        If Done Then Exit Do
    Loop
End Sub
Public Sub ReadAFile(filename As String)
    Inet1.URL = "ftp://xzdx:123456@192.168.0.20"
    Inet1.UserName = "xzdx"
    Inet1.Password = "*****"

    cmd "PWD"
    cmd "CD /home/abc/bin"
    cmd "LS"
    cmd "GET " + filename+" " + App.Path + "\" + vox + ".VOX"
    cmd "QUIT"
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim intFile As Integer
Dim vtData() As Byte
Dim str As String
'On Error GoTo ISCerr
    Debug.Print "State="; State,
    Select Case State
    Case 0
        Debug.Print "icNone"
    Case 1
        Debug.Print "icHostResolvingHost"
    Case 2
        Debug.Print "icHostResolved"
    Case 3
        Debug.Print "icConnecting"
    Case 4
        Debug.Print "icConnected"
    Case 5
        Debug.Print "icRequesting"
    Case 6
        Debug.Print "icRequestSent"
    Case 7
        Debug.Print "icReceivingResponse"
    Case 8
        Debug.Print "icResponseReceived"
        If Left(ExeStr, 2) = "CD" Then Done = True
    Case 9
        Debug.Print "icDisconnecting"
    Case 10
        Debug.Print "icDisconnected"
        Done = True
    Case 11
        Debug.Print "icError of [" + ExeStr + "]="; Inet1.ResponseInfo
        Done = True
    Case 12
        Debug.Print "icResponseCompleted----------------"
        Do
            str = Inet1.GetChunk(1024, icString)
            If LenB(str) = 0 Then Exit Do
            Debug.Print str
        Loop
        Done = True
    End Select
    Exit Sub
ISCerr:
    Resume Next
End Sub

[赵4老师]

上帖中
cmd "GET " + filename+" " + App.Path + "\" + vox + ".VOX"
改为
cmd "GET " + filename+" " + App.Path + "\" + filename

[koppi]

自己顶一下 求高人解决

[koppi]

"get /home/abc/bin/a.txt c:/1/a.txt"可以
"put c:/1/a.txt /home/abc/bin/a.txt " 就不行
求助ing

[koppi]

测试楼上的，inet不能连续执行两个命令，请大侠们给段成码好吗，谢谢

[koppi]

起~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~