MS

app/ResultHandler_Konfig/ClassAllgemeineFunktionen.vb

@@ -0,0 +1,46 @@
+Imports System.IO
+
+Public Class ClassAllgemeineFunktionen
+   
+    Public Function func_check_file_use(ByVal filename) As Boolean
+        Dim fs As Integer = FreeFile()
+        Dim inuse As Boolean = False
+        If File.Exists(filename) Then
+            Try
+                FileOpen(fs, filename, OpenMode.Binary, _
+                OpenAccess.ReadWrite, OpenShare.LockReadWrite)
+            Catch
+                inuse = True
+            Finally
+                FileClose(fs)
+            End Try
+        End If
+        Return inuse
+    End Function
+    Public Function Delete_File(originFile As String)
+        Try
+            If file_exists(originFile, False) = True Then
+                System.IO.File.Delete(originFile)
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler in Funktion Delete_File - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Public Function file_exists(ByVal _file As String, ByVal suche As Boolean)
+        Try
+            If System.IO.File.Exists(_file) Then
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            MsgBox("Fehler in Funktion file_exists - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    
+
+    
+   
+End Class