1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Public Function WirdDieDateiVerwendet(ByVal vollerPfad As String) As Boolean
Dim freieDatei As Integer = FreeFile()
Dim dateiWirdVerwendet As Boolean
dateiWirdVerwendet = False
'>>> Prüfen, ob die Datei existiert
If System.IO.File.Exists(vollerPfad) Then
Try
'>>> Versuch, die Datei mit exklusiven Lese- und Schreibrechten zu öffnen
FileOpen(freieDatei, vollerPfad, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
Catch
'>>> Tritt ein Fehler auf, so wird die Datei gerade verwendet (oder aber es liegt ein Rechteproblem oder ähnliches vor)
dateiWirdVerwendet = True
Finally
'>>> Schließen der ggf. geöffneten Datei
FileClose(freieDatei)
End Try
End If
Return dateiWirdVerwendet
End Function
|