Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
06.02.2003, 13:12:42
|
|||
|---|---|---|---|
|
|||
Как получить список файлов... |
|||
|
#18+
Как получить список файлов в директории по определённой маске? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.02.2003, 13:25:16
|
|||
|---|---|---|---|
Как получить список файлов... |
|||
|
#18+
смотри функции: FindFirst, FindNext, FindClose ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.02.2003, 15:06:58
|
|||
|---|---|---|---|
|
|||
Как получить список файлов... |
|||
|
#18+
Спасибо :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.02.2003, 15:48:54
|
|||
|---|---|---|---|
Как получить список файлов... |
|||
|
#18+
Процедура удаляет все файлы в директории 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; не трудно переделать под что хош ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=58&tablet=1&tid=2119173]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
183ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
47ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 512ms |
| 0 / 0 |
