В ListBox можно вот так
void Dir(AnsiString Path)
{
TSearchRec sr;
int iAttributes = 0;
AnsiString S2=Path+"*.*";
iAttributes |= faAnyFile;
if (FindFirst(S2, iAttributes, sr) == 0)
{
do
{
if ((sr.Attr & iAttributes) == sr.Attr)
{
AnsiString S1=Path+sr.Name;
ListBox1->Items->Add(S1);
}
}while (FindNext(sr) == 0);
FindClose(sr);
}
}
Вывести все файлы в кататлоге.
Как зная имя директории вывести список файлов, хранящихся в ней?
Цитата:
Originally posted by gray_k
Как зная имя директории вывести список файлов, хранящихся в ней?
Как зная имя директории вывести список файлов, хранящихся в ней?
прямо список не знаю, а по-одному посмотри функции
findfirst
findnext
Цитата:
Originally posted by gray_k
Как зная имя директории вывести список файлов, хранящихся в ней?
Как зная имя директории вывести список файлов, хранящихся в ней?
Код:
А если в папке есть другие папки, как их все вывести?
Цитата:
Originally posted by Sp@m
А если в папке есть другие папки, как их все вывести?
А если в папке есть другие папки, как их все вывести?
если тебе нужны файлы из всех подкаталогов
то:
1) читаешь help про FindFirst FindNext
2) пипешь рекурсивную функцию на основе того что
я привел выше
{
TSearchRec sr;
if (FindFirst("*.*", faAnyFile | faDirectory, sr) == 0)
{
Memo1->Lines->Add(sr.Name);
while (FindNext(sr) == 0)
{
Memo1->Lines->Add(sr.Name);
}
}
FindClose(sr);
}
TSearchRec sr;
if (FindFirst("*.*", faAnyFile | faDirectory, sr) == 0)
{
Memo1->Lines->Add(sr.Name);
while (FindNext(sr) == 0)
{
Memo1->Lines->Add(sr.Name);
}
}
FindClose(sr);
}