Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
ВнизКак проверить есть ли файлы в папке??? Найти похожие ветки
← →
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)
← →
Anatoly Podgoretsky (2003-07-07 15:28) [11]Не считаются, правда может посчитаться метка тома.
← →
Poirot (2003-07-07 15:28) [12]%)
← →
Sandman25 (2003-07-07 16:06) [13]Song © (07.07.03 15:27)
Лучше Repeat-Until.
← →
MakNik (2003-07-07 17:14) [14]Так как в конце концов правильно???
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c