Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c