Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.024 c