Bei einer Textdatei den Schreibschutz setzten / entfernen

[MasterSHYBBY]

Hallo leutz,

ich hab ein Problem und zwar folgendes.
Ich möchte ein Programm schrieben bei welchem die optionen in einer Testdatei abgespeichert werden! Nun will ich die Datei schützen. Die frage an euch wie kann ich den Schreibschutz setzten bzw. entfernen?
Danke bereits im Vorrau

Gruss
Master SHYBBY

 

[ANI]

hallo MasterSHYBBY,

zum setzen der Attribute benutze folgenden Code:

'A, R, H und S sind Checkboxen in deiner Form
Dim userset As Long
If A.Value = 1 Then
userset = userset + 32
End If
If R.Value = 1 Then
userset = userset + 1
End If
If H.Value = 1 Then
userset = userset + 2
End If
If S.Value = 1 Then
userset = userset + 4
End If
SetAttr Dateiname, userset

ANI