47 lines
1.3 KiB
VB.net
47 lines
1.3 KiB
VB.net
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
|