Как програмно отличить папку от файла.

← →
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]

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