Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 10.02.01 |
Schreibschutz entfernen Beim Kopieren einer Datei von einer CD auf die Festplatte wird nicht automatisch der Schreibschutz entfernt. Wie zeigen, wie es geht! | ||
Autor: Dieter Otter | Bewertung: | Views: 25.367 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Sicherlich kenn Sie das Problem: Beim Kopieren einer Datei von einer CD auf die Festplatte wird nicht automatisch der Schreibschutz entfernt. Der nachfolgende Tipp zeigt, wie Sie den Schreibschutz einer Datei per VB-Code entfernen können.
Public Function SchreibschutzEntfernen(ByVal _ sFilename As String) As Boolean On Local Error Resume Next Attr = GetAttr(sFilename) If Err <> 0 Then ' Datei nicht gefunden SchreibschutzEntfernen = False Else Attr = (Attr And Not vbReadOnly) SetAttr sFilename, Attr DoEvents ' Prüfen, ob Schreibschutz entfernt Attr = GetAttr(sFilename) SchreibschutzEntfernen = Not (Attr And vbReadOnly) End If On Local Error GoTo 0 End Function
Anmerkungen:
Die Funktion SchreibschutzEntfernen versucht den Schreibschutz einer Datei zu entfernen, und gibt im Erfolgsall True zurück. Konnte der Schreibschutz nicht entfernt werden oder existiert die angegebene Datei nicht, wird False zurückgegeben.