Private Sub Backup_Databases()
        FilePath4BackupDatabase_AusSichtDesServers = txtFolder.Text
 
        ' Für jeden Eintrag (Datenbank) in ListBox2 wird nun 
        ' die Sicherung durchgeführt:
        Dim i As Integer = ListBox2.Items.Count
        For i_ As Integer = 0 To i - 1
 
            ListBox2.SelectedIndex = i_
            Try
                ' Sicherung der Datenbank durchführen:
                Dim conn As New SqlConnection
                conn.ConnectionString = ConnStr
                Dim cmd As New SqlCommand
                cmd.Connection = conn
                cmd.CommandText = "use Master; backup database " & _
                  ListBox2.SelectedItem.ToString.Trim & _
                  " to Disk = '" & _
                  FilePath4BackupDatabase_AusSichtDesServers & _
                  "\" & ListBox2.SelectedItem.ToString.Trim & _
                  ".bak' with init;"
                cmd.CommandType = CommandType.Text
                conn.Open()
                cmd.ExecuteNonQuery()
                conn.Close()
 
            Catch ex As Exception
                Me.WindowState = FormWindowState.Normal
                MessageBox.Show(ex.Message.ToString, "Fehler", _
                  MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Next
    End Sub