Fügst du sie allerdings nicht selbst hinzu und hast somit keine Möglichkeit, sie vorher schon zu überprüfen, könntest du folgenden Code benutzen:
Delphi-Quellcode:
type
TMyResult = (mrFile, mrFolder, mrNone);
//...
function FileOrFolder(Path: String): TMyResult;
begin
if FileExists(Path) then
Result := mrFile
else
if DirectoryExists(Path) then
Result := mrFolder
else
Result := mrNone;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case FileOrFolder('D:\') of
mrFolder: ShowMessage('Dies ist ein Ordner!');
mrFile: ShowMessage('Dies ist eine Datei!');
mrNone: ShowMessage('Weder Datei noch Ordner ;-)');
end;
end;
Hab dafür jetzt 5 Minuten geopfert und wollte nicht, dass diese Arbeit umsonst gewesen ist
Mfg