FTPLib 2.1.1.0

    • Release

    Es gibt 589 Antworten in diesem Thema. Der letzte Beitrag () ist von hitman48.

      Danke :D

      und wo lag der Fehler bzw. wie hast du es gelöst ?

      wird nicht hochgeladen

      Hallo,

      ich hab zurzeit das Problem das mein Programm eine Datei nicht auf den Server hochladen will!
      Verbinden geht ohne Probleme und beim Upload kommt auch kein fehler, nur die datei kommt nicht an!

      Auch nicht beim beispiel programm!

      Woran kanns liegen?

      hast du beim Hochladen einen Try-Catch-Block ohne Fehlerausgabe ? Das würde evtl. Fehlermeldungen unterdrücken.

      ne ich habs so gemacht!

      VB.NET-Quellcode

      1. locFTP.Connect()
      2. If (locFTP.IsConnected = True) Then
      3. MsgBox("verbunden")
      6. End If
      7. If System.IO.File.Exists("C:\remotefile.txt") Then
      8. locFTP.Upload("C:\remotefile.txt", "remotefile.txt")
      9. MsgBox("Datei hochgeladen")
      10. Else
      11. MsgBox("NIcht Übertragen!")
      12. End If
      13. locFTP.Disconnect()


      Die MSGBOX Verbunden kommt und dann auch die MSGBOX Datei übertragen!
      Doch die datei ist nicht aufm server!

      Es gibt sicher ein Event, wenn er fertig ist mitm Upload. Da solltest du die MsgBox reinbringen und evtl. prüfen ob es einen Fehler gab.

      achso.

      Es gibt sicher ein Event, wenn er fertig ist mitm Upload. Da solltest du die MsgBox reinbringen und evtl. prüfen ob es einen Fehler gab.
      und welches ist dann hierfür?
      :P Mfg Aligator :P

      so schwer ist es doch nicht -.- ... geht doch mal die Liste durch. Die Namen sind gut genug gewählt, dass man erkennt wofür Sie gut sind :thumbsup:

      also mein programm ist bis jetzt so!
      noch nix fertiges nur zum test der lib
      bei button2 also verzeichniss erstellen kommt immer das das verzeichniss schon existiert!
      bei button3 passiert garnichts und die datei kommt auch nicht auf dem ftp an!
      button1 ist was anderes und kann hier grad ignoriert werden

      VB.NET-Quellcode

      1. Imports FTPLib.FTPLib
      2. Public Class Form1
      3. Dim locFTP As New FTP(My.Settings.ftpserver, My.Settings.ftpuser, My.Settings.ftppass, 21)
      4. Public Sub New()
      6. ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
      7. InitializeComponent()
      8. AddHandler locFTP.Canceled, AddressOf FTP_Canceled
      9. AddHandler locFTP.Completed, AddressOf FTP_Completed
      10. AddHandler locFTP.ProgressChanged, AddressOf FTP_ProgressChanged
      13. End Sub
      15. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
      16. locFTP.Disconnect()
      17. End Sub
      19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      20. locFTP.Connect()
      22. If (locFTP.IsConnected = True) Then
      24. MessageBox.Show("Verbindung wurde hergestellt")
      26. End If
      27. End Sub
      30. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      31. Dim sPath As String
      32. sPath = My.Settings.locpfad
      33. If sPath.EndsWith("\") And sPath.Length > 3 Then
      34. sPath = sPath.Substring(0, sPath.Length - 1)
      35. End If
      36. Dim oDir As New System.IO.DirectoryInfo(sPath)
      37. Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()
      38. Dim oFile As System.IO.FileInfo
      39. ListBox1.Items.Clear()
      40. For Each oFile In oFiles
      41. ListBox1.Items.Add(oFile.Name)
      42. Next
      44. End Sub
      47. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      48. Try
      50. locFTP.DirCreate("TEST")
      52. Catch ex As FTPDirectoryAlreadyExists
      53. MessageBox.Show(ex.Message)
      55. Catch ex As Exception
      56. MessageBox.Show(ex.Message)
      58. End Try
      59. End Sub
      61. Private Sub FTP_Canceled(ByVal sender As Object, ByVal e As FTPCanceledEventArgs)
      63. MessageBox.Show("Der Download wurde abgebrochen.", "Download abgebrochen!", MessageBoxButtons.OK, MessageBoxIcon.Information)
      65. End Sub
      67. Private Sub FTP_Completed(ByVal sender As Object, ByVal e As FTPCompletedEventArgs)
      69. MessageBox.Show("Die Datei wurde erfolgreich heruntergeladen.", "Download erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information)
      71. End Sub
      73. Private Sub FTP_ProgressChanged(ByVal sender As Object, ByVal e As FTPProgressChangedEventArgs)
      75. ' Fortschritt in einer Progressbar anzeigen
      76. Me.pbFortschritt.Value = e.SinglePercent
      78. ' Aktuellen Fortschritt anzeigen
      79. Me.lblPercent.Text = CStr(e.SinglePercent) & " %"
      84. End Sub
      86. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      87. locFTP.Upload("C:\remotefile.txt", "remotefile.txt")
      88. End Sub
      89. End Class

      gibt es eine Möglichkeit die ftp daten (server, user, pass) über textboxen mitzugeben?
      da der connect ja schon stattfindet bevor die form richtig geladen ist scheint mir das als schwer oder seh ich das falsch?

      lg
      ScheduleLib 0.0.1.0
      Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

      müsste doch gehn wenn du irgendwo (z.B. im Button1.Click - event) es als Public deklarierst.
      dadurch müsstest du von überall zugreifen können. (auch von anderen Sub's)

      korrigiert mich, wenn ich mich täusche:

      VB.NET-Quellcode

      1. Private Sub Button1_Click(...) Handles Button1.Click
      2. Public locFTP As New FTP(My.Settings.ftpserver, My.Settings.ftpuser, My.Settings.ftppass, 21)
      3. End Sub
      :P Mfg Aligator :P

    Facebook