Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как програмно отличить папку от файла.   Найти похожие ветки 

 
nevalex ©   (2003-06-13 17:26) [0]

Я перетаскиваю на форму из проводника файл (или папку) и он(только файл) проигрывается ,а папка дожна сканироваться на файлы .Все уже придумано , кроме того как их отличить?


 
MBo ©   (2003-06-13 17:28) [1]

findfirst и проверка атрибутов


 
DVM ©   (2003-06-13 17:34) [2]

{------------------------------------------------------------------------------}
function FileExists(const FileName: string) : boolean;
var
Attr: Integer;
begin
Attr := GetFileAttributes(PChar(FileName));
Result := (Attr <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Attr = 0);
end; //End of function FileExists
{------------------------------------------------------------------------------}

function DirExists(const DirName: string): Boolean;
var
Attr: Integer;
begin
Attr := GetFileAttributes(PChar(DirName));
Result := (Attr <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Attr <> 0);
end; //End of function DirExists
{------------------------------------------------------------------------------}
if direxists(...) then {папка существует} else
if fileexists(...) then {файл существует} else {ни файла ни папки нет}


 
невалекс_тема_закрыта   (2003-06-13 18:12) [3]

-->MBo ©
-->DVM ©
Спасибо!!!



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

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
6-84502
andrei
2003-04-24 10:07
2003.06.26
Как создать полноценный Web Server


3-83963
FOX
2003-05-29 13:30
2003.06.26
DBE + динамическая загрузка пакета


7-84795
Piroman
2003-04-18 12:12
2003.06.26
Как запретить определять звуковую карту приложению??


3-84002
AlexBut
2003-05-29 06:39
2003.06.26
Код ошибки Jet


14-84732
Rafik
2003-06-03 14:09
2003.06.26
Матрица - разочорование