ZooFlow: IDB Admin

GUIs.ZooFlow/Globix/ClassFilehandle.vb

@@ -23,13 +23,13 @@ Public Class ClassFilehandle
         Dim r = New Regex(String.Format("[{0}]", Regex.Escape(regexSearch)))
         Return r.Replace(Input, replacement)
     End Function
-    Public Function Decide_FileHandle(filename As String, handletype As String)
+    Public Function Decide_FileHandle(filename As String, handletype As String) As Boolean
         Try
             If filename.EndsWith(".msg") Then
                 My.Application.Globix.CurrMessageID = ""
                 Dim _msg As New Msg.Message(filename)
                 If _msg.Attachments.Count > 0 Then
-                    Dim result As MsgBoxResult
+                    Dim result As DialogResult
 
                     If My.Application.User.Language = "de-DE" Then
                         result = MessageBox.Show(New Form With {.TopMost = True}, "Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -62,7 +62,7 @@ Public Class ClassFilehandle
             Return False
         End Try
     End Function
-    Private Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+    Private Function Email_Decay(msgname As String, Optional FW As Boolean = False) As Boolean
         Try
             Dim msgonly As String = "|MSGONLY|"
             Dim ATT_EXTR As String = "|ATTMNTEXTRACTED|"
@@ -147,7 +147,7 @@ Public Class ClassFilehandle
         End Try
     End Function
 
-    Private Function Insert_GI_File(filename As String, handleType As String)
+    Private Function Insert_GI_File(filename As String, handleType As String) As Boolean
         Try
             filename = filename.Replace("'", "''")
 
@@ -183,9 +183,9 @@ Public Class ClassFilehandle
         End If
 
     End Function
-    Public Function Versionierung_Datei(Dateiname As String)
-        Dim extension
-        Dim _NewFileString
+    Public Function Versionierung_Datei(Dateiname As String) As String
+        Dim extension As String
+        Dim _NewFileString As String
         Try
             Dim version As Integer = 1