|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Что то типа очистки
Есть папка с которого надо удалить все файлы кроме файлов 1.тхт - 2.тхт - 3.тхт
как это сделать?? возможноли такое?? |
#2
|
||||
|
||||
Кидаешь на форму один 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]); Последний раз редактировалось Winny, 12.02.2008 в 22:18. |
#3
|
||||
|
||||
Код:
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; |