Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 09.09.03 |
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: | Views: 27.372 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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