| ** Indik |
| Отправлено: 03.11.2005, 17:50 |
|
Не зарегистрирован
|
Подскажите пожалуйста, как получить список всех файлов и папок в конкретной папке |
|
| Guest |
| Отправлено: 03.11.2005, 18:02 |
|
Не зарегистрирован
|
в поиск. |
|
| Gal |
| Отправлено: 03.11.2005, 18:13 |
|
Станционный диспетчер
Группа: Участник
Сообщений: 124
|
вот финкция всех файлов cpp, начиная с директории PathStr
| CODE |
void ListFiles
(AnsiString PathStr,
TStrings* ListPtr)
{
TSearchRec SearchRec;
if (FindFirst(PathStr + "*.*", faAnyFile, SearchRec) == 0)
{
do
{
if (SearchRec.Attr & faDirectory)
{
if (SearchRec.Name!=".")
if (SearchRec.Name!="..")
{
ListFiles(PathStr + SearchRec.Name + "\\",ListPtr);
}
}
else
{
AnsiString Ext = ExtractFileExt(SearchRec.Name).UpperCase();
if (Ext == ".CPP")
{
ListPtr->Add(PathStr + SearchRec.Name);
}
}
}
while (FindNext(SearchRec) == 0);
FindClose(SearchRec);
}
}
|
|
|
| ** Indik |
| Отправлено: 03.11.2005, 19:01 |
|
Не зарегистрирован
|
Огромное спасибо код работает на ура! |
|
