Можно через стандартные компоненты, но целесообразней через функции:
| Код |
/* получение путей к временным файлам */
void GetTempFiles(TStrings* List)
{
TSearchRec sr; // начинаем поиск
AnsiString path = ExtractFilePath (Application->ExeName); // путь к папке
if (FindFirst(path+"*.TMP", faAnyFile, sr) == 0) // задаем условия
do List->Add(path+sr.Name); while (FindNext(sr) == 0); // записываем, пока файлы не кончатся
FindClose(sr); // завершаем поиск
}
//------------------------------------------------------------------------------------------------------
/* получение количества временных файлов */
int GetCountTF()
{
TSearchRec sr; int Count = 0;
AnsiString path = ExtractFilePath (Application->ExeName);
if (FindFirst(path+"*.TMP", faAnyFile, sr) == 0)
do Count++; while (FindNext(sr) == 0);
FindClose(sr);
return Count;
}
/------------------------------------------------------------------------------------------------------
|
Поиск введется в директории, указанной в path (по умолчанию текущая папка). Временным файлом считается любой файл с расширением TMP.
Добавлено через 58 секунд
при необходимости функции можно объеденить |