title image


Smiley So kannst Du das feststellen ob, und ändern ...
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias _

"GetFileAttributesA" (ByVal lpFileName As String) As Long



Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 ' Archiv

Private Const FILE_ATTRIBUTE_COMPRESSED = &H800 ' Komprimiert

Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 ' Verzeichnis

Private Const FILE_ATTRIBUTE_HIDDEN = &H2 ' Versteckt

Private Const FILE_ATTRIBUTE_NORMAL = &H80 ' Keine Attribute

Private Const FILE_ATTRIBUTE_READONLY = &H1 ' Schreibgeschützt

Private Const FILE_ATTRIBUTE_SYSTEM = &H4 ' Systemdatei





Private Sub Command1_Click()

Dim ChkFile As String



ChkFile = InputBox("Bitte geben sie einen Dateipfad an", "Auf Schreibschutz _

prüfen", "c:\Autoexec.bat")



If CBool(GetFileAttributes(ChkFile) And FILE_ATTRIBUTE_READONLY) = True Then

MsgBox "Die angegebene Datei ist schreibgeschützt!", vbOKOnly + _

vbInformation, "Schreibschutz ist gesetzt"

ElseIf GetFileAttributes(ChkFile) = -1 Then

MsgBox "Die angegebene Datei existiert nicht", vbOKOnly + vbInformation, _

"Lesen nicht möglich"

Else

MsgBox "Die angegebene Datei ist nicht schreibgeschützt!", vbOKOnly + _

vbInformation, "Schreibschutz ist nicht gesetzt"

End If

End Sub



----------------------------------------------------------





Legt die Attribute für eine Datei fest.



Syntax



SetAttr pathname, attributes



Die Syntax der SetAttr-Anweisung verwendet die folgenden benannten Argumente:



Teil Beschreibung

pathname Erforderlich. Zeichenfolgenausdruck, der einen







Dateinamen angibt. Der Dateiname kann ein Verzeichnis oder einen Ordner sowie ein Laufwerk enthalten.

attributes Erforderlich. Konstante oder numerischer Ausdruck, die/der die Summe der Dateiattribute angibt.







Einstellungen



Das Argument attributes hat die folgenden Einstellungen:



Konstante Wert Beschreibung

vbNormal 0 Normal (Voreinstellung).

vbReadOnly 1 Schreibgeschützt.

vbHidden 2 Versteckt.

vbSystem 4 Systemdatei. Beim Macintosh nicht verfügbar.

vbArchive 32 Datei wurde seit dem letzten Speichern geändert.

vbAlias 64 Der angegebene



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: