Datei per VBA auf Schreibschutz prüfen

Die nachfolgende Funktion prüft, ob die mitgegebene Datei zur Bearbeitung freigegeben oder gesperrt ist. Eine gesperrte Datei kann zum Beispiel durch einen aktiven Datei-Schreibschutz zustande kommen. Oder eine Datei auf einer CD ist schreibgeschützt und eine geöffnete Datei, die evtl. gerade bearbeitet wird, ist auch gesperrt.

Code:

Function DateiGesperrt(DateiNam As String) As Boolean   '------------------------------------------------------------ ' Diese Funktion prüft ob die mitgegebene Datei zur ' Bearbeitung freigegeben oder gesperrt ist. Eine Sperre ' kann z.B. durch einen Dateischreibschutz aktiv sein oder ' dadurch das die Datei geöffnet ist. ' Die Funktion gibt TRUE zurück, wenn die Datei gesperrt ' ist und FALSE, wenn Sie zur Bearbeitung frei ist, '------------------------------------------------------------   On Error GoTo Fehler   Dim x As Long   x = FreeFile Open DateiNam For Append Access Write Lock Read Write As #x Close #x DateiGesperrt = False   Ende: Exit Function   Fehler: DateiGesperrt = True Exit Function   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!