Add Property DatabaseName to Firebird class

Modules.Database/Firebird.vb

@@ -1,6 +1,6 @@
 Imports NLog
 Imports FirebirdSql.Data.FirebirdClient
-
+Imports System.Text.RegularExpressions
 
 ''' <summary>
 ''' MODULE:         Firebird
@@ -55,6 +55,15 @@ Public Class Firebird
     Public ReadOnly Property ConnectionEstablished As Boolean
     Public ReadOnly Property ConnectionFailed As Boolean
     Public ReadOnly Property ConnectionString As String
+    Public ReadOnly Property DatabaseName As String
+        Get
+            Dim oRegex As New Regex("^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:")
+            Dim oPath As String = oRegex.Replace(_connectionDatabase, "")
+            Dim fi As New IO.FileInfo(oPath)
+            Return fi.Name
+        End Get
+    End Property
+
 
     ''' <summary>
     '''