MS 19.08

Global_Indexer/ClassFilehandle.vb

@@ -38,6 +38,8 @@ Public Class ClassFilehandle
 
             If Not msg.InternetMessageId Is Nothing Then
                 CURRENT_MESSAGEID = msg.InternetMessageId
+            Else
+                MsgBox("Es konnte keine Message-ID ausgelesen werden." & vbNewLine & "Dies kann zu Fehlern in der Indexierung führen!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
 
             'Nur die MSGDatei ablegen
@@ -96,4 +98,29 @@ Public Class ClassFilehandle
             Return False
         End Try
     End Function
+    Public Shared Function IsFileInUse(ByVal fullFilePath As String) As Boolean
+        ' Gibt zurück, ob die übergebene Datei momentan exklusiv zu haben ist.
+        ' Prüft, ob die angegeben Datei aktuell durch eine
+        ' andere Anwendung in Benutzung ist
+        Dim ff As Integer = FreeFile()
+
+        If System.IO.File.Exists(fullFilePath) Then
+            Try
+                ' Versuchen, die Datei mit *exklusiven* Lese- und
+                ' Schreibrechten zu öffnen
+                FileOpen(ff, fullFilePath, OpenMode.Binary, _
+                                           OpenAccess.ReadWrite, _
+                                           OpenShare.LockReadWrite)
+            Catch
+                ' Ist ein Fehler aufgetreten, so wird nach außen hin generell
+                ' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
+                ' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
+                IsFileInUse = True
+            Finally
+                ' Die eventuell geöffnete Datei schließen
+                FileClose(ff)
+            End Try
+        End If
+
+    End Function
 End Class