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

[himitsu]

Delphi-Quellcode:

function FileOrFolder(Const Path: String): TMyResult;
var
  w: LongWord;
begin
  w := GetFileAttributes(PChar(Path));
  if w = $FFFFFFFF then
    Result := mrNone
  else
    if w and FILE_ATTRIBUTE_DIRECTORY = 0 then
      Result := mrFile
    else
      Result := mrFolder;
end;

// $FFFFFFFF = INVALID_FILE_ATTRIBUTES

nein, ich bin jetzt nicht böse und schreib "nichma 'ne Minute"