[Electronic_Arts]

Есть папка с которого надо удалить все файлы кроме файлов 1.тхт - 2.тхт - 3.тхт
как это сделать?? возможноли такое??

[Winny]

Кидаешь на форму один FileListBox (вкладка Win 3.1). Вот код:

Код:

var
i:integer;
begin
for i:=0 to FileListBox1.Count-1 do begin
if (FileListBox1.Items.Strings[i]<>'1.txt') and (FileListBox1.Items.Strings[i]<>'2.txt') then
DeleteFile(FileListBox1.Items.Strings[i]);

[4erep_88]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var t:TSearchRec;
begin
if FindFirst('C:\*.*',faAnyFile, t) = 0 then
begin
repeat
if (t.name<>'1.txt')and(t.name<>'2.txt')and(t.name<>'3.txt')
 then DeleteFile(t.name);
until FindNext(t) <> 0;
FindClose(t);
end;
end;