Label_FTPServer.Text = "FTP-Server: " & FTPServer
        Label_FTPUser.Text = "FTP-User: " & FTPUser
        Label_FTPPassword.Text = "FTP-Passwort: " & FTPPassword
        Dim statusstatus As Double = 1
        Label_Status.Text = "Status: " & statusstatus & "/" & anzahlscreens
 
        anzahlscreens = frm_CaptureScreen.save.Length
 
        While flagupload < anzahlscreens
            'Ungültige Zeichen werden aus dem String entfernt
            FTPServertwice = FTPServer & frm_CaptureScreen.save(flagupload)
            FTPServertwice = FTPServertwice.Replace("{", "")
            FTPServertwice = FTPServertwice.Replace("}", "")
            FTPServertwice = FTPServertwice.Replace("\", "")
 
            'FTP Upload wird gestartet
            status = FTPUpload(frm_CaptureScreen.save(flagupload), _
              FTPServertwice, FTPUser, FTPPassword)
 
            If status = "ERROR" Then
                MsgBox("Währen des Uploads kam es zu einem Fehler! Der Upload" & _
                  "wurde abgebrochen!")
                Exit Sub
            End If
 
            flagupload = flagupload + 1
 
        End While
 
 
        MsgBox("Die Screenshots wurden erfolgreich hochgeladen!")

    Public Function FTPUpload(ByVal FilePath As String, ByVal FTPServerup As _
      String, ByVal FTPUser As String, ByVal FTPpassword As String)
        On Error GoTo ErrHandler
        My.Computer.Network.UploadFile(FilePath, FTPServerup, FTPUser, _
          FTPpassword)
        Return "OK"
        Exit Function
ErrHandler:
        WriteToErrorLog("ERROR", "Can´t upload to FTP!", "mod_FtpFunctions.vb -" & _
          "Function FTPUpload")
        Return "ERROR"
    End Function