Datei hochladen über ftp

Wie würde ich den upload einer Textdatei auf meinem ftp-server mithilfe von Visual Basic 6.0?

Ich hochladen will "C:\hello.txt" "files/hello.txt" auf meinem server.

Habe ich zuvor versucht, diesen code, ohne Erfolg:

Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean

Dim FTP As Inet

Set FTP = New Inet
    With FTP
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
    Set FTP = Nothing
End Function
Und was ist mit Ftp.url? Ihnen nie vergeben es in einem Beispiel, das Sie uns zeigen. Und was meinst du mit "ohne Erfolg"?
Was ist das Ergebnis? Wie nennt man UploadFile? (Was stellst du LocalFileName und RemoteFilename? Tun Sie incluse den Weg in LocalFileName, Was ist der Wert .ResponseCode?

InformationsquelleAutor Jeff Reed | 2013-04-02

  1. 1

    Drop-Internet-Übertragung-Steuerelement auf das Formular (VB6: gewusst wie: hinzufügen Inet Komponente?). Dann nutzen Sie Ihre Execute Methode. Beachten Sie, dass es gibt keine Notwendigkeit, geben Sie Protocol Eigenschaft als Execute zahlen es aus URL argument.

    Gibt es MSDN-walkthrough auf der Verwendung von Internet Transfer Control: http://msdn.microsoft.com/en-us/library/aa733648%28v=vs.60%29.aspx

    Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" _
    (ByVal dwMilliseconds As Long)

Private Function UploadFile(ByVal sURL As String _
    , ByVal sUserName As String _
    , ByVal sPassword As String _
    , ByVal sLocalFileName As String _
    , ByVal sRemoteFileName As String) As Boolean
    'Pessimist
    UploadFile = False

    With Inet1
        .UserName = sUserName
        .Password = sPassword
        .Execute sURL, "PUT " & sLocalFileName & " " & sRemoteFileName

        'Mayhaps, a better idea would be to implement
        'StateChanged event handler
        Do While .StillExecuting
            Sleep 100
            DoEvents
        Loop

        UploadFile = (.ResponseCode = 0)
        Debug.Print .ResponseCode
    End With
End Function

Private Sub cmdUpload_Click()
    UploadFile "ftp://localhost", "", "", "C:\Test.txt", "/Level1/Uploaded.txt"
End Sub

    InformationsquelleAutor Ilya Kurnosov

Schreibe einen Kommentar