Как проверить есть ли файлы в папке???

← →
MakNik © (2003-07-07 12:34) [0]

← →
panov © (2003-07-07 12:35) [1]

FindFirst, FindNext

← →
BillyJeans © (2003-07-07 12:49) [2]

if exist MyPath\*.* then Good :)

← →
MakNik © (2003-07-07 13:33) [3]

Что то не работает...
Можно небольшей примерчик???

← →
Zergling © (2003-07-07 14:23) [4]

Существует ли конктретный файл
if FileExists("FileName") then
Или нужна проверка пуста ли папка?

← →
Song © (2003-07-07 14:35) [5]

Function FilesExists(S: ShortString):Integer;
{ Возвращает количество файлов }
Var SearchRec: TSearchRec;
Begin
Result:=0;
IF FindFirst(S,faAnyFile-faDirectory,SearchRec)=0 then
Begin
While FindNext(SearchRec)=0 Do Inc(Result);
FindClose(SearchRec);
End;
End;

IF FilesExists(C:\*.*")=0 then файлы_отсутствуют на C:\

← →
MakNik © (2003-07-07 14:50) [6]

А как получить только список файлов (без папок...)???

← →
Song © (2003-07-07 14:53) [7]

В моём примере папки не считаются: faAnyFile -faDirectory

← →
Poirot © (2003-07-07 15:06) [8]

> Song ©

а вы уверены что не считаются? Я вот что-то нет!

← →
Verg © (2003-07-07 15:22) [9]

> Я вот что-то нет!

Poirot ©, обоснуйте свои подозрения.

← →
Song © (2003-07-07 15:27) [10]

Именно для диска C может быть такое, потому что там есть скрытые папки и папки с системным аттрибутом.
Кстати у меня ошибка: между begin и While надо поставиь Inc(Result)

Не считаются, правда может посчитаться метка тома.

Так как в конце концов правильно???

Как проверить есть ли файлы в папке??? Найти похожие ветки