Eigenschaften mehrere Dateien ändern.

**smart**

Hallo Alle!

Ich möchte in einer Schleife die Eigenschaften mehrere Dateien ändern. Dafür habe ich auf einem Formular eine Filelistbox, eine CheckBox und ein Button. Wenn ich auf dem Button klicke, sollen alle Dateien auf Schreibgeschützt gesetzt werden.

Wieso klappt dieser Code nicht?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  Attributes, NewAttributes: Word;

  A:Integer;

begin

For A := 0 To FileListBox1.Items.Count -1 Do

begin

Attributes := FileGetAttr(FileListBox1.Items[A]);

NewAttributes := Attributes;

if CheckBox1.Checked = True then NewAttributes := NewAttributes or faReadOnly

      else NewAttributes := NewAttributes and not faReadOnly;

end;

end;

Viele Grüße
Heike

Eigenschaften mehrere Dateien ändern.

Eigenschaften mehrere Dateien ändern.

Forumregeln