FTP Problem // Einfach ?

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Apfel.

    FTP Problem // Einfach ?

    Hey :) :) ,

    Ich habe mal wieder ein kleines VB 2008 Express Editon Problem 8| !
    Und zwar finde ich den Fehler in meinem Code einfach nicht ?
    Es soll ein einfacher FTP Upload sein !

    Hier mal der Code :

    Brainfuck-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. OpenFileDialog1.ShowDialog()
    5. TextBox1.Text = OpenFileDialog1.FileName
    6. End Sub
    8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    9. FTPUpload()
    10. End Sub
    11. Private Function FTPUpload() As Boolean
    12. Try
    14. Dim sLocalFile As String = TextBox1.Text
    15. Dim sFTPHost As String = "ftp://.......................adresse"
    16. Dim sUserName As String = "benutzername"
    17. Dim sPassword As String = "passwort"
    19. My.Computer.Network.UploadFile(sLocalFile, sFTPHost, sUserName, sPassword)
    20. Catch ex As Exception
    21. MsgBox("Manooooooooooooooooooo , hier ist wohl noch ein Fehler !")
    22. End Try
    23. End Function
    24. End Class


    Ich hoffe das ihr mir helfen könnt !

    Mfg


    Tizi ?( ?( ?( ?(

    Ich habe jetzt alles so gemacht wie ihr es gesagt habet , es kommt aber immer noch die MSG BOX !
    Und die Datei auf C exstiert !

    Hier nochmal mein jetztiger Code :

    Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. FTPUpload()
    5. End Sub
    6. Private Function FTPUpload() As Boolean
    7. Try
    9. Dim sLocalFile As String = "C:\test.txt"
    10. Dim sFTPHost As String = "ftp host"
    11. Dim sUserName As String = "benutzername"
    12. Dim sPassword As String = "passwort"
    14. My.Computer.Network.UploadFile(sLocalFile, sFTPHost, sUserName, sPassword)
    15. Catch ex As Exception
    16. MsgBox(ex.Message)
    17. End Try
    18. End Function
    20. End Class