Bei der Erstellung einer Anwendung, welche externe Dateien lesen oder schreiben soll, kann es zu Konflikten beim Zugriff kommen. Eventuell wird eine Logdatei, welche man lesen möchte noch von einer anderen Anwendung benutzt. Man erhält einer Fehlermeldung das ein Zugriff nicht möglich ist. Um nun zu prüfen ob die gewünschte Datei sich öffnen lässt, benutze ich folgende Funktion:

Public Function check_file_use(sub_filename as string) as Boolean

Funktion erstellen, Übergabe der zu prüfenden Datei, Rückgabe als Boolean

Dim fs As Integer = FreeFile()

freie Vergabe von einer Dateinummer

If file.Exists(sub_filename) Then

prüfen ob die Datei existiert

Try
FileOpen(fs, sub_filename, OpenMode.Binary , OpenAccess.ReadWrite, OpenShare.LockReadWrite)

versuchen die Datei zuöffnen

Catch
check_file_use = true

True wenn die Datei nicht geöffnet werden kann

Finally
FileClose(fs)

Datei schließen

End if
End Function

Hier die gesamte Funktion:

Public Function func_check_file_use(sub_filename) As Boolean
Dim fs As Integer = FreeFile()
If file.Exists(sub_filename) Then
  Try
     FileOpen(fs, sub_filename, OpenMode.Binary , _
     OpenAccess.ReadWrite, OpenShare.LockReadWrite)
  Catch
     func_check_file_use = true
  Finally
     FileClose(fs)
  End Try
End If
  End Function