Hallo zusammen,
in meiner Software verwende ich den folgenden Code um eine Datei auf einen FTP-Server zu übertragen. Jetzt weiß ich nur nicht, wie ich es hier anstellen kann, dass eine Progressbar den Uploadvorgang anzeigt.
Wie kann ich hier eine Progressbar ansprechen, die den Upload anzeigt?
Selbes Problem gilt später für den Download:
Beide Codes funktionieren einwandfrei, nur eben ohne Progressbar. Für Hilfe wäre ich sehr dankbar.
LG, so27
in meiner Software verwende ich den folgenden Code um eine Datei auf einen FTP-Server zu übertragen. Jetzt weiß ich nur nicht, wie ich es hier anstellen kann, dass eine Progressbar den Uploadvorgang anzeigt.
VB.NET-Quellcode
- Imports System.IO
- Imports System.NET
- Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
- Try
- Me.Cursor = Cursors.WaitCursor
- My.Computer.Network.UploadFile(Application.StartupPath & "\Dateiname.sdf", My.Settings.FTPurl & "Dateiname.dsi", My.Settings.FTPuser, KeyOff(My.Settings.FTPpasswort)) ' KeyOff entschlüsselt nur das Passwort
- DesktopAlert.AlertPosition = eAlertPosition.TopRight
- DesktopAlert.AlertColor = eDesktopAlertColor.Default
- DesktopAlert.AutoCloseTimeOut = 10
- DesktopAlert.TextMarkupEnabled = True
- DesktopAlert.Show("Das Backup wurde erfolgreich erstellt und auf den FTP-Server übertragen.", My.Resources.Resources.WolkeUp)
- Me.Cursor = Cursors.Default
- Catch ex As Exception
- Me.Cursor = Cursors.Default
- ToastNotification.ToastBackColor = Color.SteelBlue
- ToastNotification.Show(Me, ex.Message, My.Resources.Fehler, 3000, eToastGlowColor.Red, eToastPosition.MiddleCenter)
- End Try
- End Sub
Wie kann ich hier eine Progressbar ansprechen, die den Upload anzeigt?
Selbes Problem gilt später für den Download:
VB.NET-Quellcode
- Imports System.IO
- Imports System.NET
- Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
- Try
- Me.Cursor = Cursors.WaitCursor
- Dim sDBFile As String = "Dateiname.sdf"
- My.Computer.Network.DownloadFile(My.Settings.FTPurl & "Dateiname.dsi", Application.LocalUserAppDataPath & "\Dateiname.sdf", My.Settings.FTPuser, KeyOff(My.Settings.FTPpasswort)) ' KeyOff entschlüsselt nur das Passwort
- ' Restore the original file from the compacted file
- If File.Exists(Application.LocalUserAppDataPath & "\Dateiname.sdf") Then
- File.Copy(Application.LocalUserAppDataPath & "\Dateiname.sdf", sDBFile, True)
- Form1.ListBox1.Items.Clear()
- ReadData() ' Einlesen der Datenbank
- Form1.ListBox1.SelectedIndex = 0
- Form1.GroupBox1.Text = Form1.ListBox1.Items.Count & " Einträge"
- File.Delete(Application.LocalUserAppDataPath & "\Dateiname.sdf")
- DesktopAlert.AlertPosition = eAlertPosition.TopRight
- DesktopAlert.AlertColor = eDesktopAlertColor.Green
- DesktopAlert.AutoCloseTimeOut = 10
- DesktopAlert.TextMarkupEnabled = True
- DesktopAlert.Show("Die Rücksicherung der Datenbank wurde erfolgreich durchgeführt.", My.Resources.Resources.WolkeDown)
- End If
- Me.Cursor = Cursors.Default
- Catch ex As Exception
- Me.Cursor = Cursors.Default
- ToastNotification.ToastBackColor = Color.SteelBlue
- ToastNotification.Show(Me, ex.Message, My.Resources.Fehler, 3000, eToastGlowColor.Red, eToastPosition.MiddleCenter)
- End Try
- End Sub
Beide Codes funktionieren einwandfrei, nur eben ohne Progressbar. Für Hilfe wäre ich sehr dankbar.
LG, so27