Prüfen ob string einen '.' enthält und somit Dateiname ist.

[Fussball-Robby]

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