FTPLib 2.1.1.0

    • Release

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

      Ich möchte ja einen gesamten Ordner übertragen. Das es nicht möglich ist einen Ordner im Ganzen zu übertragen ist mir schon klar. Deshalb habe ich mich ein wenig umgeschaut und hier im Forum in irgendeinem Beitrag FTPLib gefunden. Womit dies angeblich möglich ist

      Hier der gesamte Code:

      VB.NET-Quellcode

      1. Dim host, username, passwort, ftppfad As String
      3. Private WithEvents locFTP As FTP
      5. Public Sub New()
      7. InitializeComponent()
      9. locFTP = New FTP
      11. End Sub
      13. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      15. locFTP.Disconnect()
      17. End Sub
      19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      21. FolderBrowserDialog1.ShowDialog()
      22. FolderBrowserDialog1.SelectedPath = ftppfad
      23. TextBox4.Text = ftppfad
      25. End Sub
      27. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      29. host = TextBox1.Text
      30. username = TextBox2.Text
      31. passwort = TextBox3.Text
      33. ' Verbindung zum FTP-Server herstellen
      34. locFTP.Connect(vStrHost:=host, vStrUsername:=username, vStrPassword:=passwort)
      36. If (locFTP.IsConnected = True) Then
      38. MessageBox.Show("Verbindung wurde hergestellt")
      39. Else
      40. MessageBox.Show("Verbindung konnte nicht hergestellt werden.")
      41. End If
      43. End Sub

      Button1 macht:
      1. Öffnet einen folderBrowser
      2. setzt den Pfad des FolderBrowsers auf nichts(ftppfad)
      3. setzt den textBox4.text auf ftppfad(und somit auf nichts)
      Button2:
      1. Setzt drei Variablen
      2. verbindet sich mit diesen 3 Variablen
      3. Überprüft ob die Verbindung erfolgreich war...

      Ich sehe hier noch nichts von Ordner hochladen ;)
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      Habe folgendes Vergessen :D... :

      VB.NET-Quellcode

      1. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      3. locFTP.Upload(ftppfad, "/")
      5. End Sub


      Ich habe jetzt

      VB.NET-Quellcode

      1. Private Sub FTP_ProgressChanged(ByVal sender As Object, ByVal e As Events.FTPProgressChangedEventArgs) Handles locFTP.ProgressChanged
      3. ' Fortschritt in einer Progressbar anzeigen
      4. Me.pbFortschritt.Value = e.Single.Percent
      6. ' Aktuellen Fortschritt anzeigen
      7. Me.lblPercent.Text = CStr(e.Single.Percent) & " %"
      9. ' Bereits heruntergeladene MBs anzeigen
      10. Me.lblSize.Text = CStr(Math.Round(((e.Single.SizeLeft / 1024) / 1024), 2)) & " MB von " & CStr(Math.Round(((e.Single.Size / 1024) / 1024), 2)) & " MB hochgeladen."
      12. ' Vergangene Zeit anzeigen
      13. Me.lblTimeElapsed.Text = CStr(e.Single.TimeElapsed) & " vergangen"
      15. ' Verbleibende Zeit anzeigen
      16. Me.lblTimeLeft.Text = CStr(e.Single.TimeLeft) & " verbleibend"
      18. ' Geschwindigkeit anzeigen
      19. Me.lblBandwidth.Text = CStr(e.Single.Bandwidth) & " KB/s"
      22. End Sub

      aus dem Beispielprojekt kopiert.

      Wenn ich nun auf Hochladen drücke (button4) läuft der Balken die Zeit usw. Der vorgang wir auch erfolgreich abgeschlossen.

      Nur wurde auf dem FTP weder eine Datei noch ein Ordner erstellt.

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

      sicher dass du auch in den richtigen Bereich hochlädst bzw. da auch hinguckst ?

      soweit war ich auch. Hast du dort auch nachgeguckt oder zB im /html/ (mach ich öfters)

      An deinem Code liegt es nicht. Hab ihn eben getestet und auf meinen Server einen Ordner geladen.

      Hallo singu,

      Ich habe Schwierigkeiten mit deiner Lib und der Demo.
      Starte ich das Demo Projekt ist Visual Studio ausgelastet und alles stürzt zusammen.
      Ich habe jetzt auch nur das Demo Projekt testen wollen um mich mit deiner Lib vertraut zu machen.

      hoffe du hast einen Rat!
      LG.L

      Also ich hab noch gar nichts hochgeladen, ich habe in der Demo die FTP Daten eingegeben, Debug = Programm sollte starten
      tut es aber nicht, es kommt keine Fehlermeldung weil Visual Studio sich aufhängt.

      Lg.L

      singu schrieb:

      Features / Funktionen

      Up- & Download mit detailliertem Fortschritt

      Dateien

      Datei löschen

      Prüfen ob eine Datei existiert

      Dateigröße auslesen

      Datei umbenennen

      Dateien auflisten



      Verzeichnis

      Verzeichnis erstellen

      Verzeichnis löschen

      Prüfen ob ein Verzeichnis existiert

      Ordner auflisten



      Dateien bzw. Verzeichnisse in einem bestimmten Verzeichnis auflisten


      Wollte mal wissen ob nun Verzeichnis umbenennen schon funktioniert :)

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

      Hi und erstmal Danke dass Du dir die Mühe machst.

      Da ich eine solche FTP Klasse benötige bin ich auf diese hier gestoßen.
      Leider musste ich nach Tagen des ausprobierens feststellen, dass sie leider nicht funktioniert. Jedenfalls die neuste Version davon.
      Ich habe mir mal die Mühe gemacht und einige Dinge ausprobiert.

      ' Datei hochladen
      ' Funktioniert
      ' locFTP.Upload("D:\up\test.txt", "test.txt")

      'Upload funktioniert nicht. Egal was man eingibt, Ordner exisitiert schon!
      'locFTP.DirCreate("/httpdocs/ordner")

      'Ordner Löschen funktioniert
      'locFTP.DirRemove("/httpdocs/Ordner")

      'Es kommt immer die Meldung das, das Verzeichnis existiert
      'locFTP.DirExists("/httpdocs/Ordner")

      'Datei existiert immer
      'locFTP.FileExists("/httpdocs/tedst.txt")

      'Funktioniert
      'locFTP.FileDelete("/httpdocs/test.txt")

      Ich habe die Original Demo verwendet.
      Das einzigst was ich geändert habe ist:

      Private WithEvents locFTP As FTP = nothing

      zu:

      Private WithEvents locFTP As New FTP() und in Public Sub New(), locFTP = New FTP() hinzugefügt.

      Und die neuste ftplib.dll implementiert.

      Hier ein paar Angaben zur Umgebung:

      OS: Windows 7 Ultimate 64 Bit
      Entwicklungsumgebung: Virtual Basic Express 2010
      FTP Klasse: v.2.0

      Wäre Super wenn die Klasse funktionieren würde :)

      Viele Grüße

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

      Hi,

      ich kann zwar eine Verbindung herstellen, aber das downloaden und disconnecten funktioniert nicht:


      VB.NET-Quellcode

      1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      3. locFTP.Download("muster.ms.funpic.de/text.txt", "C:\users\mustermann\")
      4. End Sub


      ausserdem versuche ich das mit einer progressBar anzuzeigen wie eine Datei gedownloaded wird:

      VB.NET-Quellcode

      1. Private Sub FTP_ProgressChanged(ByVal sender As Object, ByVal e As Events.FTPProgressChangedEventArgs) Handles button1.click
      3. Me.pbFortschritt.Value = e.Single.Percent
      4. End Sub



      Dann hängt sich das Programm aber wegen eines Errors auf:

      Das Objekt des Typs "System.Windows.Forms.MouseEventArgs" kann nicht in Typ "FTPLib.Events.FTPProgressChangedEventArgs" umgewandelt werden.

      Desweiteren habe ich das Problem des disconnectens:

      VB.NET-Quellcode

      1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      2. 'Verbindung trennen
      3. locFTP.Disconnect()
      4. End Sub



      Das funktioniert nicht was muss ich in die Klammern schreiben ?

      Ich weiß das sind viele Fragen aber ich hoffe trotzdem, dass ihr mir helfen könnt

      die Download Funktion erwartet wahrscheinlich beim Ziel auch einen Dateinamen:

      VB.NET-Quellcode

      1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      3. locFTP.Download("muster.ms.funpic.de/text.txt", "C:\users\mustermann\text.txt")
      4. End Sub

      und sofern muster.ms.funpic.de der Host und kein Ordnername ist, musst du dies wohl auch weglassen...

      beim ProgressChanged musst du auch das entsprechende Event verwenden und nicht Button.Click:

      VB.NET-Quellcode

      1. Private Sub FTP_ProgressChanged(ByVal sender As Object, ByVal e As Events.FTPProgressChangedEventArgs) Handles locFTP.ProgressChanged
      3. Me.pbFortschritt.Value = e.Single.Percent
      4. End Sub


      beim trennen hab ich keine Ahnung, Fehlermeldung?
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---

      hi,

      danke für die Antwort:

      1. Wie meinst du das musste wohl weglassen ?

      VB.NET-Quellcode

      1. locFTP.Download("/text.txt", "C:\users\")


      so gehts nicht

      2.

      VB.NET-Quellcode

      1. Private Sub FTP_ProgressChanged(ByVal sender As Object, ByVal e As Events.FTPProgressChangedEventArgs) Handles locFTP.ProgressChanged
      3. Me.pbFortschritt.Value = e.Single.Percent
      4. End Sub


      geht auch nicht da dann der Error :
      "Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird."
      auftritt

      3. Es gibt keine Fehlermeldung es wird einfach nicht disconnectet das ist als wenn du einen Button ohne Funktion drückst

      Guten Tag die Herren und Damen,

      erstmal danke für die V2.0 nun fonktioniert bei mir auch die Status anzeige top!
      nun habe ich folgendes problem wenn ich den download button (nach abgeschlossenem Download)erneut betätige kommt folgende fehlermeldung:
      Fehler Screenshot
      kann n mir wer sagen was ich falsch mache?
      Hier noch mein code
      und danke im Voraus

      Gruß Ötzi

      VB.NET-Quellcode

      1. Imports System.Windows.Forms
      2. Imports FTPLib
      4. Public Class Main
      5. Private WithEvents locFTP As FTP = Nothing
      6. Public Sub New()
      8. InitializeComponent()
      10. locFTP = New FTP
      12. End Sub
      13. Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      14. 'My.settings auslesen und Felder füllen
      15. Tb_IP_1.Text = My.Settings.IP_1
      16. Tb_IP_2.Text = My.Settings.IP_2
      17. Tb_IP_3.Text = My.Settings.IP_3
      18. Tb_IP_4.Text = My.Settings.IP_4
      19. Tb_Port.Text = My.Settings.Port
      20. Tb_username.Text = My.Settings.username
      21. Tb_password.Text = My.Settings.password
      22. Pb_Status.Visible = False
      24. 'LBL Initialisieren und ausblenden
      25. llbl_selected_path.Visible = False
      26. LBL_Status_1.Text = ""
      29. End Sub
      30. 'Ordnersuchoption für Backupordner
      31. Private Sub B_search_clean_directory_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_search_clean_directory.Click
      32. 'Filebrowser Dialog Eignschaften festlegen und öffen
      33. FBD_clean.Description = "Bitte den gewünschten Backup Ordner wählen."
      34. FBD_clean.ShowNewFolderButton = False
      35. FBD_clean.SelectedPath = My.Settings.standard_folder
      37. If (FBD_clean.ShowDialog() = Windows.Forms.DialogResult.OK) Then
      38. Tb_Path.Text = FBD_clean.SelectedPath
      39. End If
      40. End Sub
      41. 'Backup ordnen Button -> Clean routine ausführen
      42. Private Sub B_clean_Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_clean_Backup.Click
      43. 'Informationen in Variablen speichern
      44. Selected_Path = Tb_Path.Text
      45. Project_Number = Projectnumber.Text
      46. Anlagen_bezeichnung = Anlagenbeschreibung.Text
      48. If Not Projectnumber.Text = "" And Not Anlagenbeschreibung.Text = "" And Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = True Then
      49. LBL_Projektnummer.ForeColor = Color.Black
      50. LBL_Anlagenbeschreibung.ForeColor = Color.Black
      51. LBL_Backupverzeichnis.ForeColor = Color.Black
      52. LBL_Status_1.Text = ""
      53. Pb_Status.Visible = False
      54. Call Clean_Sub()
      55. Else
      56. If Projectnumber.Text = "" Then LBL_Projektnummer.ForeColor = Color.Red Else LBL_Projektnummer.ForeColor = Color.Black
      57. If Anlagenbeschreibung.Text = "" Then LBL_Anlagenbeschreibung.ForeColor = Color.Red Else LBL_Anlagenbeschreibung.ForeColor = Color.Black
      58. If Tb_Path.Text = "" Then LBL_Backupverzeichnis.ForeColor = Color.Red Else LBL_Backupverzeichnis.ForeColor = Color.Black
      59. If Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = False Then
      60. LBL_Status_1.ForeColor = Color.Red
      61. LBL_Status_1.Text = "!!! Der Angegebene Pfad existiert nicht !!!"
      62. Pb_Status.Image = My.Resources.fehler
      63. Pb_Status.Visible = True
      64. End If
      65. If Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = True Then
      66. LBL_Status_1.Text = ""
      67. Pb_Status.Visible = False
      68. End If
      69. End If
      70. End Sub
      71. 'Parameter Info Button -> Info Dialog öffnen
      72. Private Sub Parameter_Info_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Parameter_Info_Button.Click
      73. FTP_Info.ShowDialog()
      74. End Sub
      76. Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
      78. 'Informationen in Variablen speichern
      79. Selected_Path = Tb_Path.Text
      80. Project_Number = Projectnumber.Text
      81. Anlagen_bezeichnung = Anlagenbeschreibung.Text
      83. 'Informationen in My.settings speichern um die Informationen zu erhalten
      84. My.Settings.IP_1 = Tb_IP_1.Text
      85. My.Settings.IP_2 = Tb_IP_2.Text
      86. My.Settings.IP_3 = Tb_IP_3.Text
      87. My.Settings.IP_4 = Tb_IP_4.Text
      88. My.Settings.Port = Tb_Port.Text
      89. My.Settings.username = Tb_username.Text
      90. My.Settings.password = Tb_password.Text
      91. My.Settings.Save()
      93. 'Datum aus System Auslesen
      94. Dim Year As String = Format$(Now, "yy")
      95. Dim Month As String = Format$(Now, "MM")
      96. Dim Day As String = Format$(Now, "dd")
      97. Dim Hour As String = Format$(Now, "hh")
      98. Dim Minute As String = Format$(Now, "mm")
      99. Dim Second As String = Format$(Now, "ss")
      101. 'Abchecken ob die Backup Infos vollständig ausgefüllt wurden.
      102. If Not Projectnumber.Text = "" And Not Anlagenbeschreibung.Text = "" And Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = True Then
      103. LBL_Projektnummer.ForeColor = Color.Black
      104. LBL_Anlagenbeschreibung.ForeColor = Color.Black
      105. LBL_Backupverzeichnis.ForeColor = Color.Black
      106. LBL_Status_1.Text = ""
      107. llbl_selected_path.Visible = False
      108. Pb_Status.Visible = False
      110. Gb_Info.Enabled = False
      111. Gb_FTP.Enabled = False
      113. 'Steuerung anpingen und Pb grün färben
      115. If My.Computer.Network.Ping(My.Settings.IP_1 & "." & My.Settings.IP_2 & "." & My.Settings.IP_3 & "." & My.Settings.IP_4) = True Then
      116. PB_Ping.BackColor = Color.Lime
      119. 'FTP Verbindung herstellen und downloaden
      122. 'Verbindung zum FTP-Server herstellen
      123. locFTP.Connect(vStrHost:=My.Settings.IP_1 & "." & My.Settings.IP_2 & "." & My.Settings.IP_3 & "." & My.Settings.IP_4, vStrUsername:=My.Settings.username, vStrPassword:=My.Settings.password, vIntPort:=My.Settings.Port)
      125. If (locFTP.IsConnected = True) Then
      127. PB_FTP.BackColor = Color.Lime
      129. 'Backupordner erstellen
      131. Selected_Path = (Selected_Path & "\" & "20" & Year & "_" & Month & "_" & Day & "#" & Hour & "_" & Minute & "_" & Second & "#" & Project_Number)
      133. System.IO.Directory.CreateDirectory(Selected_Path)
      135. ' Sichtbare Dateien herunterladen
      136. locFTP.Download("/", Selected_Path & "\")
      139. Else
      140. Gb_Info.Enabled = True
      141. Gb_FTP.Enabled = True
      142. PB_FTP.BackColor = Color.Red
      143. LBL_Status_1.ForeColor = Color.Red
      144. LBL_Status_1.Text = "FTP Verbindung fehlerhaft, bitte Zugangsdaten prüfen."
      145. Pb_Status.Image = My.Resources.fehler
      146. Pb_Status.Visible = True
      147. End If
      148. Else
      149. Gb_FTP.Enabled = True
      150. Gb_Info.Enabled = True
      151. PB_Ping.BackColor = Color.Red
      152. LBL_Status_1.ForeColor = Color.Red
      153. LBL_Status_1.Text = "Ping zur Steuerung ( IP Adresse: " & My.Settings.IP_1 & "." & My.Settings.IP_2 & "." & My.Settings.IP_3 & "." & My.Settings.IP_4 & " ) ist fehlgeschlagen."
      154. Pb_Status.Image = My.Resources.fehler
      155. Pb_Status.Visible = True
      156. End If
      157. Else
      158. If Projectnumber.Text = "" Then LBL_Projektnummer.ForeColor = Color.Red Else LBL_Projektnummer.ForeColor = Color.Black
      159. If Anlagenbeschreibung.Text = "" Then LBL_Anlagenbeschreibung.ForeColor = Color.Red Else LBL_Anlagenbeschreibung.ForeColor = Color.Black
      160. If Tb_Path.Text = "" Then LBL_Backupverzeichnis.ForeColor = Color.Red Else LBL_Backupverzeichnis.ForeColor = Color.Black
      161. If Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = False Then
      162. LBL_Status_1.ForeColor = Color.Red
      163. LBL_Status_1.Text = "!!! Der Angegebene Pfad existiert nicht !!!"
      164. Pb_Status.Image = My.Resources.fehler
      165. Pb_Status.Visible = True
      166. If Not Tb_Path.Text = "" And System.IO.Directory.Exists(Selected_Path) = True Then
      167. LBL_Status_1.Text = ""
      168. End If
      169. LBL_Status_1.Text = ""
      170. Pb_Status.Visible = False
      171. End If
      172. End If
      173. End Sub
      175. Private Sub FTP_Completed(ByVal sender As Object, ByVal e As Events.FTPCompletedEventArgs) Handles locFTP.Completed
      176. Gb_Info.Enabled = True
      177. Gb_FTP.Enabled = True
      178. PB_Ping.BackColor = Color.Transparent
      179. PB_FTP.BackColor = Color.Transparent
      180. If cb_clean.CheckState = CheckState.Checked Then
      181. locFTP.Disconnect()
      182. download = True
      183. Clean_Sub()
      184. LBL_Status_1.Text = "Download und Archivierung erfolgreich abgeschlossen."
      185. llbl_selected_path.Visible = True
      186. Pb_Status.Image = My.Resources.haken
      187. Pb_Status.Visible = True
      188. Else
      189. Pb_Status.Image = My.Resources.haken
      190. Pb_Status.Visible = True
      191. LBL_Status_1.Text = "Der Download wurde erfolgrich abgeschlossen."
      192. llbl_selected_path.Visible = True
      193. locFTP.Disconnect()
      194. End If
      195. End Sub
      197. Private Sub FTP_Canceled(ByVal sender As Object, ByVal e As Events.FTPCanceledEventArgs) Handles locFTP.Canceled
      198. MessageBox.Show("Der Download wurde abgebrochen.", "Download abgebrochen!", MessageBoxButtons.OK, MessageBoxIcon.Information)
      199. locFTP.Disconnect()
      200. End Sub
      201. End Class
      Fehler Screenshot

    Facebook