Datei in Benutzung? Durch den Versuch eine Datei exklusiv zu öffnen, lässt sich sehr schnell feststellen, ob die Datei bereits anderweitig geöffnet ist.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  27.916
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 36 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger Tipp zeigt einen Weg, um festzustellen, ob eine bestimmte Datei bereits von der eigenen oder von einer anderen Anwendung geöffnet ist. Hierzu versuchen wir einfach die besagte Datei exklusiv zu öffnen. Kommt es hierbei zum Fehler 70 (Zugriff verweigert) ist die Datei i.a.R. bereits in Benutzung.

' Prüfen, ob Datei in Benutzung
Private Function FileInUse(ByVal sFile As String) As Boolean
  Dim F As Integer
 
  On Error Resume Next
  ' Versuch, Datei EXKLUSIV zu öffnen
  F = FreeFile
  Open sFile For Binary Lock Read Write As #F
 
  ' Bei Fehler 70 ist die Datei in Benutzung
  FileInUse = (Err.Number = 70)
 
  Close #F
  On Error Goto 0
End Function