Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

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

 
Mazenrat   (2002-09-28 15:40) [0]

Доброго времени суток.

Нужен пример проверки: есть ли файлы и каталоги в папке? Спасибо.


 
Poirot   (2002-09-28 16:39) [1]

Интересный вопрос!!! Его понять мона поразному!!!
Вам как конкретный или просто есть ли... ну ответы-то идентичны..
FindFirst, FindNext....
если второе, о смотри аттрибуты!!!


 
Mazenrat   (2002-09-28 16:53) [2]

Так понятнее... Нужно проверить пустой каталог или нет!


 
Poirot   (2002-09-28 17:13) [3]

Мне кажется вы мне чуть - чуть нагрубили!!!

самый простой способ

if FindFirst(DirPath+"\",$3f,S)<>0 then ShowMessage("Dir is empty");
но могут быть проблемы с обнаружением системных и скрытых объектов...


 
pasha_golub   (2002-09-28 18:49) [4]


> могут быть проблемы с обнаружением системных и скрытых объектов...

Для этого пиши FindFirst(DirPath,faAnyFile,SearchRec)


 
anatolyk   (2002-09-30 12:53) [5]

//я для себя писал нечто вроде ....


procedure TForm1.Directory(Root: String);
var
sr: TSearchRec;
FileAttrs, i, ipos: Integer;
S: String;
tmpStr: Pchar;
dir, base: String;
begin
ChDir(Root); //откуда начать
FileAttrs := faAnyFile;
if FindFirst("*.*", FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
if not((Sr.Name = ".") or (Sr.Name = "..")) then
if (sr.Attr and faDirectory) = faDirectory then //найден каталог?
begin
Directory(Root+ "\" + sr.Name); //Заходим в него (это типа рекурсивный вызов)
ChDir(".."); //и возвращаемся
end
else //если же это файл...
begin
//пишем, например в к.-нибудь файл
WriteLn(FileVar,Root + "\" + sr.Name);
Flush(FileVar);
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.043 c
14-31973
программист_ищу_работу
2002-09-16 12:02
2002.10.10
у кого есть заголовок к библиотеке winpcap?


14-31990
UDS
2002-09-05 19:34
2002.10.10
ВЗЛОМАТЬ BIOS !!!!


3-31613
Dmitrey
2002-09-19 09:09
2002.10.10
Проблема переноса с ADO2.5 на ADO2.7


3-31668
Шурик Ш
2002-09-20 12:34
2002.10.10
Не выходит создание Lookup-поля програмно


1-31814
sammy
2002-10-02 12:46
2002.10.10
change date





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский