1:
2:
3:
4:

if DirectoryExists('DeinPfad') then
 //ist ein ordner
else
 // ist kein ordner					

1:
2:
3:
4:

Function IsFile(Filename: String): Boolean;
Begin
    Result := FileExists(Filename) and not FileExists(Filename + '\.');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  DirEx   : Cardinal;
begin
  DirEx:=GetFileAttributesA(PAnsiChar(Root));
  if DirEx<>DWord(-1) then
  begin
    if FILE_ATTRIBUTE_DIRECTORY and DirEx=FILE_ATTRIBUTE_DIRECTORY then IstOrdner else IstDatei;
  end;
end;					

1:

[Fehler] Unit10.pas(67): Undefinierter Bezeichner: 'Root'					

1:
2:
3:
4:

Function IsFile(Filename: String): Boolean;
Begin
    Result := FileExists(Filename) and not DirectoryExists(Filename);
end;