SysUtils.DirectoryExists

[haentschman]

Zitat:

Mache es doch einfach mal so, um zu sehen was da im Arbeitsverzeichnis steht:

...mit dem Debugger sollte man umgehen können. Da braucht man das nicht.

[himitsu]

[edit] ups, den letzten übersehn [/edit]
Wozu denn das +'\' ?

Eher #10 statt #13,
oder besser noch sLineBreak.

Zitat von haentschman:

Zitat:

Mache es doch einfach mal so, um zu sehen was da im Arbeitsverzeichnis steht:

...mit dem Debugger sollte man umgehen können. Da braucht man das nicht.

Nja, den Pfad zusätzlich mit in die Fehlerausgabe, kann für den Benutzer auch manchmal hilfreich sein.

Und ja, siehe Antwort #5.

[freejay]

Pfade, die man kopieren kann, niemals abtippen. Das spart so viel Ärger (und meistens auch noch Zeit...).

[PaPaNi]

Wenn ich "\" am Ende des Pfades brauche, dann würde ich das mittels der Funktion IncludeTrailingPathDelimiter hinzufügen.

[himitsu]

Zitat von PaPaNi:

Wenn ich "\" am Ende des Pfades brauche, dann würde ich das mittels der Funktion IncludeTrailingPathDelimiter hinzufügen.

Oder Zusammenbauen ala A + '\' + B mittels TPath.Combine(A, B) .

[PaPaNi]

Zitat von himitsu:

Zitat von PaPaNi:

Wenn ich "\" am Ende des Pfades brauche, dann würde ich das mittels der Funktion IncludeTrailingPathDelimiter hinzufügen.

Oder Zusammenbauen ala A + '\' + B mittels TPath.Combine(A, B) .

Das garantiert aber nicht, dass es am Ende das Zeichen "\" steht. Oder verstehe ich was falsch?

[Benmik]

Nee, tut es nicht, außer B endet mit einem "\".
Himitsu ging davon aus, dass du den "\" anhängen willst, weil danach noch ein weiterer Pfadbestandteil folgen soll. Du willst es aber, um dem System deutlich zu machen, dass du ein Verzeichnis meinst und nicht eine Datei. Das konnte Himitsu nicht wissen.

[H.Bothur]

Zitat von PaPaNi:

Wenn ich "\" am Ende des Pfades brauche, dann würde ich das mittels der Funktion IncludeTrailingPathDelimiter hinzufügen.

Warum ? Ein +'/' geht doch genauso, oder ?

Hans

[himitsu]

Es kann gehn, aber muß nicht.

C:\ ist auch was Anderes als C:\test\

Denn C: ist relativ zum aktuellen Arbeitsverzeichnis dieses Laufwerks.



Ja, der Syntax nach könnte man es so sehn

c:\test\abc -> Datei oder Verzeichnis (je nach Attribut)

c:\test\abc -> Directory
c:\test\abc\ -> Path
c:\test\abc\. -> ParentDirecrory to Self

Achtung: FileExists prüft auf Datei oder Verzeichnis (wenn das Verzeichnis nicht gesperrt ist, sonst wird nochmal mit CreateFile versucht und das schlägt beim Verzeichnis meistens fehl, normal wegen fehlender Backup-Berechtigung)
TFile.Exists aber nur auf Datei -> TDirectory.Exists für Verzeichnis

[KodeZwerg]

Oder wenn man es ohne SysUtils in sehr kleinen non-Vcl Anwendungen braucht kann man auch

Code:

function DirectoryExists(const FilePath: string): Boolean;
var
  Attr: Cardinal;
begin
  Attr := GetFileAttributes(PChar(FilePath));
  Result := (Attr <> $FFFFFFFF) and (Attr and FILE_ATTRIBUTE_DIRECTORY <> 0);
end;

das machen.