zunächst solltest du überprüfen ob die Datei ein Attribut hat oder nicht
Variable = getattr(dateiname)
wobei du den dateinamen auch aus einer filelistbox entnehmen kannst (file1.filename) oder diesen direkt mit Pfad angeben kannst. Die Funktion liefert folgende Werte:
0 vbnormal
1 vbreadonly
2 vbhidden
4 vbsystem
16 Verzeichnis
32 Archiv-Attribut
wenn die Datei mehrere Attribute hat, werden die Werte addiert (Archiv und Read-Only wäre dann 33)
wenn also deine msdos.sys den Wert 33 bei der Abfrage hat, dann mußt du mit der Funktion
setattr pfad, attribute
(Attribute siehe oben)
die Attribute bestimmen (Bsp: setattr "c:\msdos.sys", vbarchive - die Funktion getattr würde dann 32 zurückgeben)
dann kannst du deine Änderungen oder was auch immer du machen willst vornehmen und dann den ursprünglichen Zustand wieder herstellen ( setattr "c:\msdos.sys", vbarchive)
Hinweis: Die Attribute lassen sich nicht ändern, wenn das zugrundeliegende file geöffnet ist!
[Dieser Beitrag wurde von Chrisu am ( 22. Juni 2000 editiert).]
[Dieser Beitrag wurde von Chrisu am ( 22. Juni 2000 editiert).]