Checken, ob eine Datei schon geöffnet ist

[26865]

nachgeschärft:

Code:

Option Explicit

Private Function DateiGeoeffnet(DerPfad As String) As Boolean
On Error Resume Next                                     'Fehler in beliebieger nachfolgender Codezeile ignorieren und zur nächsten Zeile weitergehen

Open DerPfad For Binary Access Read Lock Read As #1      'Versuche, exklusiven (Lese-)Zugriff auf die Datei zu erhalten;
                                                         'schlägt fehl, wenn bereits ein anderes Programm exklusiven Zugriff hat
Close #1                                                 'falls das Öffenen geklappt hat, schließe die Datei wieder

If Err.Number <> 0 Then                                  'wenn irgendwo vorher ein Fehler auftrat, interpretiere dies so, dass die Datei bereits geöffnet ist
   DateiGeoeffnet = True                                 '...und diese Fuktion soll den Wert WAHR zurückgeben
                                                         '(der Rückgabewert der Funktion ist in allen anderen Fällen FAlSE, da dies der Deftault-Wert bei Boolean ist)
   Err.Clear                                             '...und der Fehler soll gelöscht werden
End If
End Function

[matthias wehrli]

Ich vermute mal, ich soll dem "next" das Wort "Zeile" anfügen, sprich: 

"Gehe trotz Fehler einfach weiter"

Vielen Dank für deinen Link, der hat geholfen.

Matthias