Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как получить список файлов... / 4 сообщений из 4, страница 1 из 1
06.02.2003, 13:12
    #32102223
-=Extreme=-ShamaN
-=Extreme=-ShamaN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список файлов...
Как получить список файлов в директории по определённой маске?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2003, 13:25
    #32102235
Tаrantino
Tаrantino
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список файлов...
смотри функции: FindFirst, FindNext, FindClose
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2003, 15:06
    #32102354
-=Extreme=-ShamaN
-=Extreme=-ShamaN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список файлов...
Спасибо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2003, 15:48
    #32102412
Sergmal
Sergmal
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как получить список файлов...
Процедура удаляет все файлы в директории
procedure DelDir(Path: string);
var
SR: TSearchRec;
begin
if FindFirst(Path+'*.*',faArchive,SR)=0 then DeleteFile(PChar(Path+SR.Name));
while FindNext(SR)=0 do DeleteFile(PChar(Path+SR.Name));
end;

не трудно переделать под что хош
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как получить список файлов... / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]