'Ermitteln der Datenbankgröße
    Public Function GetFileSize() As String
 
        Try
            'Auslesen des Pfads der AGT60 Datenbank (Contactcenter60.mdf)
            regger = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Voxtron\agenTel60\", True)
            If Not regger Is Nothing Then
                DBpath = regger.GetValue("DataPath")
                LB_DBname.Text = "agenTel 6"
            Else
                regger = Registry.LocalMachine.OpenSubKey( _
                  "SOFTWARE\Voxtron\agenTel50\", True)
                If Not regger Is Nothing Then
                    DBpath = regger.GetValue("Path")
                    LB_DBname.Text = "agenTel 5"
                Else
                    LB_DBname.Text = "Nicht Vorhanden"
                End If
            End If
 
        Catch ex As Exception
        End Try
 
        Try
            myFile = New FileInfo(DBpath & "\ContactCenter60.mdf")
            If Not myFile.Exists Then
                myFile = New FileInfo("C:\Programme\Microsoft SQL" & _
                  "Server\MSSQL$AGENTEL\Data\contactcenter.mdf")
            End If
            If Not myFile.Exists Then
                MsgBox("Die Datenbank konnte nicht gefunden werden!", _
                  MsgBoxStyle.Critical)
                With OpenFileDialog
                    .FileName = "ContactCenter.mdf"
                    .Filter = _
                    "MSSQL Datenbanken (*.mdf)|*.mdf"
                    .FilterIndex = 1
                    .InitialDirectory = "C:\Programme\Microsoft SQL Server\"
                    .Title = "Geben Sie den Pfad zur Agentel Datenbank an."
                    .ShowDialog()
                End With
            End If
            If Not myFile.Exists Then
                mySize = 0
            Else
                mySize = myFile.Length
            End If
 
            Select Case mySize
                Case 0 To 1023
                    Return mySize & " Bytes"
                Case 1024 To 1048575
                    Return Format(mySize / 1024, "###0.00") & " KB"
                Case 1048576 To 1043741824
                    Return Format(mySize / 1024 ^ 2, "###0.00") & " MB"
                Case Is > 1043741824
                    Return Format(mySize / 1024 ^ 3, "###0.00") & " GB"
            End Select
            If mySize > 1.9 / 1024 ^ 3 Then
                LB_DB.ForeColor = Color.Red
            End If
            Return "0 bytes"
 
        Catch ex As Exception
            Return "nicht gefunden"
        End Try
    End Function