FAQ 0112: Feststellen, ob eine Datei geöffnet ist

Antwort  

Dazu versucht man, die Datei exklusiv zu öffnen. Tritt dabei ein Fehler auf, ist die Datei bereits geöffnet.

Dim FNr As Long
Dim FName As String

FName = "C:\AutoExec.bat"

On Error Resume Next

FNr = FreeFile
Open FName For Binary Access Read Lock Read Write As #FNr

If (Err.Number = 55) Then
    Call MsgBox("Die Datei ist bereits geöffnet")
Else
    Close #FNr
End If

Listing 1: Datei exklusiv öffnen

Zu beachten ist, daß einige Anwendungen die benutzten Dateien öffnen, den Inhalt auslesen und anschließend wieder schließen. Mit dem Beispiel gewinnt man dann die Erkenntnis, daß die Datei nicht geöffnet ist, man weiß aber nicht, ob die Datei irgendwo gerade geladen ist.

Ihre Meinung  

Falls Sie Fragen zu dieser FAQ haben, Ihre Erfahrung mit anderen Nutzern austauschen möchten oder auf eine Ergänzung hinweisen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.