Überprüfen, ob Datei schreibgeschützt ist

[DrMueller]

Hallo mal wieder,
wie immer habe ich zuerst bei Google und dann auch hier im Forum gesucht, aber entweder bin ich unfähig oder die Antworten liegen gut verborgen. Kurzum, ich frage lieber hier kurz, da ich bisher immer nette und klare Antworten bekommen habe:
Ist es möglich zu überprüfen, ob eine Datei schreibgeschützt ist?

 

[wincnc]

Hallo, versuch´s mal hiermit:

Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" _
  (ByVal lpFileName As String) As Long
  
Private Const FILE_ATTRIBUTE_READONLY = &H1

Private Sub Command1_Click()
  MsgBox SchreibSchutz("D:\Test.txt")
End Sub

Private Function SchreibSchutz(ByVal Datei As String) As Boolean
  If GetFileAttributes(Datei) = -1 Then
    MsgBox "Datei nicht gefunden!"
    Exit Function
  End If
  
  SchreibSchutz = CBool(GetFileAttributes(Datei) And FILE_ATTRIBUTE_READONLY)
End Function

 

[DrMueller]

Ah funktioniert wunderbar, ich danke.