[S] FTP-Client erstellen

  • VB.NET

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

    [S] FTP-Client erstellen

    Ich suche schon lange nach einem tutorial wie man ein FTP-Client erstellt.
    Doch leider bisher noch garnichts gefunden außer source blos die verstehe ich nicht :(
    Villeicht kennt ja einer ein tutorial zu dem thema oder kann mir bei einem beispiel erklären^^

    MfG Brokolie 8o

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FlashTek“ ()

    Hier für Vb6 weiss nciht obs für vb.net ähnlich ist. Habe das für meine Camera gebraucht , wenn ich ein foto geschossen habe, dass es das foto Uploadet:

    VB.NET-Quellcode

    1. Private Sub CmdFotos_Click()
    2. Dim sFile As String * 250
    4. sFile = App.Path & "\" & "Picture" & ".png"
    5. Call SendMessageS(lwndC, WM_CAP_FILE_SAVEDIB, 0, sFile)
    7. Dim sLocalFile As String
    8. Dim sRemoteFile As String
    10. bError = False
    12. With Inet1
    13. .AccessType = icUseDefault
    15. ' Protokoll auf FTP setzen und Port 21 verwenden
    16. .Protocol = icFTP
    17. .RemotePort = 21
    19. ' Name des FTP-Servers, zu dem verbunden werden soll
    20. .URL = "ftp://ftp.HOST.kilu.de"
    22. ' Benutzer-Authentifizierung
    23. .UserName = "USERNAME"
    24. .Password = "PASSWORT"
    26. ' Datei, die hochgeladen werden soll (lokal)
    27. sLocalFile = App.Path & "\Picture.png"
    29. ' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
    30. sRemoteFile = "www/Bilder/" & Format(Now, "ss" & ":" & "mm" & ":" & "hh" & "-" & "DD" & "/" & "MM" & "/" & "YYYY") & ".png"
    32. ' Upload ausführen
    33. .Execute , "PUT " & sLocalFile & " " & sRemoteFile
    35. ' Warten, bis Vorgang abgeschlossen
    36. Do While .StillExecuting And Not bError
    37. DoEvents
    38. Loop
    40. If Not bError Then
    41. ' Upload war erfolgreich
    43. Else
    44. ' Fehler
    45. MsgBox "Fehler beim Upload!" & vbCrLf & _
    46. "ResponseCode: " & .ResponseCode & vbCrLf & _
    47. "ResponseInfo: " & .ResponseInfo
    48. End If
    49. End With
    50. End Sub

    Ich kriege das nicht hin...

    hier ist mal mein Code:
    Spoiler anzeigen

    Quellcode

    1. Imports System.Net
    2. Imports System.IO
    4. Public Class Form5
    6. Private Sub listFTP(ByVal URL As String, ByVal bk As String, ByVal pw As String)
    7. Dim requ As FtpWebRequest = Nothing
    8. Dim resp As FtpWebResponse = Nothing
    9. Dim reader As StreamReader = Nothing
    10. Try
    11. requ = CType(WebRequest.Create(URL), WebRequest)
    12. requ.Credentials = New NetworkCredential(bk, pw)
    13. requ.Method = WebRequestMethods.Ftp.ListDirectory
    14. resp = CType(requ.GetResponse(), FtpWebResponse)
    15. reader = New StreamReader(resp.GetResponseStream())
    16. While (reader.Peek() > -1)
    17. ListBox1.Items.Add(reader.ReadLine())
    18. End While
    19. ToolStripStatusLabel1.Text = "Auflistung komplett!"
    20. Catch ex As UriFormatException
    21. ToolStripStatusLabel1.Text = ex.Message
    22. Catch ex As WebException
    23. ToolStripStatusLabel2.Text = ex.Message
    24. Finally
    25. If reader IsNot Nothing Then reader.Close()
    26. End Try
    27. End Sub
    31. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
    33. End Sub
    35. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    36. RichTextBox1.Visible = True
    37. End Sub
    39. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    40. RichTextBox1.Visible = False
    41. End Sub
    43. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    44. Me.Hide()
    45. Form1.Show()
    46. End Sub
    48. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    49. Me.Hide()
    50. Form2.Show()
    51. End Sub
    53. Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    55. End Sub
    57. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    59. End Sub
    60. End Class


    @rabe0577: Herzlichen Glückwunsch, du hast grade einen 4 Jahren alten Thread ausgegraben. Lass das in Zukunft sein, und erstell dann lieber einen neuen Thread.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FlashTek“ ()

Facebook
Telefonspende