SysUtils.DirectoryExists

[H.Bothur]

Moin,

ich bekomme bei

Delphi-Quellcode:

SysUtils.DirectoryExists

einen Fehler den ich nicht verstehe:

Delphi-Quellcode:

  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then
  begin
    ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
  end;

Arbeitsverzeichnis ist in der Ini-Datei definiert und (zumindestens für mich) sieht das auch so aus als ob das Verzeichnis existiert. Sieht irgendjemand warum Delphi trotzdem die Meldung zeigt ?

In der Anlage ist einmal die INI-Datei und einmal der Ausschnitt aus dem Explorer.

Gruss
Hans

[taveuni]

Was steht denn in der Variable Arbeitsverzeichnis wenn Du Dir das mal mit dem Debugger ansiehst? Oder/und gib im "Fehlerfall" das nicht gefundene Verzeichnis in die Ausgabe mit.

[Der schöne Günther]

Zitat:

Arbeitsverzeichnis ist in der Ini-Datei definiert

Davon sehe ich dem Bild ehrlich gesagt nichts.

Außerdem: Du hast doch einen Debugger. Schau doch zur Laufzeit einfach, was in der Variable drinsteht.

[DaCoda]

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

Code:

  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then begin
    // ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
    ShowMessage(Arbeitsverzeichnis);
  end;

[shebang]

Ich sehe im Explorer ein Leerzeichen zwischen "AA" und "Zauner".

[haentschman]

Zitat:

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

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

[peterbelow]

Zitat:

Zitat von H.Bothur (Beitrag 1523043)

Moin,

ich bekomme bei

Delphi-Quellcode:

SysUtils.DirectoryExists

einen Fehler den ich nicht verstehe:

Delphi-Quellcode:

  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then
  begin
    ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
  end;

Warum montierst Du noch ein '\' an den Namen? Das ist definiv falsch, der Backslash ist ein Pfadtrenner, nicht Teil des Namens!

[himitsu]

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

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

Zitat:

Zitat von haentschman (Beitrag 1523053)

Zitat:

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

...mit dem Debugger sollte man umgehen können. :roll: 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:

Zitat von PaPaNi (Beitrag 1523080)

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

Oder Zusammenbauen ala

Delphi-Quellcode:

A + '\' + B

mittels

Delphi-Quellcode:

TPath.Combine(A, B)

.

[H.Bothur]

Zitat:

Zitat von taveuni (Beitrag 1523045)

Was steht denn in der Variable Arbeitsverzeichnis wenn Du Dir das mal mit dem Debugger ansiehst? Oder/und gib im "Fehlerfall" das nicht gefundene Verzeichnis in die Ausgabe mit.

Im Debugger kann ich es leider nicht testen da der Fehler bei einem Freund und nicht bei mir auftritt. Bei mir klappt alles.
Das mit der Ausgabe des Fehlers ist ne Idee - das teste ich mal aus.

Danke
Hans

[H.Bothur]

Zitat:

Zitat von peterbelow (Beitrag 1523059)

Warum montierst Du noch ein '\' an den Namen? Das ist definiv falsch, der Backslash ist ein Pfadtrenner, nicht Teil des Namens!

Ich bin - sorry - immer davon ausgegangen das es sonst als Datei gesucht wird ...

also

c:\test\abc -> Datei
c:\test\abc\ -> Pfad

ich weiß nicht ob das evtl. sogar mal so war - auf alle Fälle klapt bei SysUtils.DirectoryExists beides.

Gruss
Hans

[H.Bothur]

Zitat:

Zitat von PaPaNi (Beitrag 1523080)

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.

[Frickler]

Zitat:

Zitat von himitsu (Beitrag 1523088)

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

TFile.Exists() macht nichts anderes, als SysUtils.FileExists() aufzurufen und TDirectory.Exists() ruft SysUtils.DirectoryExists() auf.

[PaPaNi]

Zitat:

Zitat von himitsu (Beitrag 1523081)

Zitat:

Zitat von PaPaNi (Beitrag 1523080)

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

Oder Zusammenbauen ala

Delphi-Quellcode:

A + '\' + B

mittels

Delphi-Quellcode:

TPath.Combine(A, B)

.

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

[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.

[himitsu]

Nee, genauso wie man zum Anhängen oder Entfernen eine Funktion hat,
gibt es seit einer kürzeren Weile auch eine Funktion für das Zusammenbauen.


Selbst manuell gebaut kommt es noch besser, wenn man die Konstante benutzt, anstatt dem selbstgeschriebenen.

Windows entfernt überzählige Trenner, wie z.B. den Letzten im Pfad (aber nie den Ersten, also den nach einem :) oder Doppelte mittendrin.
Denn der Erste folgt nicht auf das X: sondern leitet den "absoluten" Pfad innerhalb des Laufwerks ein.

Linux, Mac oder Android reagieren dagegen allergischer auf "Mist".


Ein Pfad Endet niemals mit einem.
Der Pfad, bzw. das Verzeichnis, ist der "letzte" Name. (Unterschied macht ausschließlich das Dateiattribut)



Bei "Pfaden" hatte sich nur Einfas eingebürgert, aber leider ist es keine Vorschrift.
z.B.
* TempFile ist ein temporärer Dateiname, aber nicht gesagt ob mit oder ohne Verzeichnis
* TempDir ist das temporäre Verzeichnis, ohne \
* TempPath ist das temporäre Verzeichnis mit \ , damit man direkt einen Dateinamen anhängen kann

[Benmik]

Die API

Delphi-Quellcode:

DeleteFile

und damit auch

Delphi-Quellcode:

TDirectory.Delete

funktionieren sogar nicht, wenn ein "\" am Ende steht.

Ich muss aber auch gestehen, dass ich ein Verzeichnis meist mit "\" abschließe. Ich meine, das kommt noch aus den DOS-Zeiten, als der Prompt manchmal nachfragte, ob man eine Datei oder ein Verzeichnis meint.

[himitsu]

Im FinalBuilder nehme ich auch manchmal \

Es gibt Funktionen, die Dateien und/oder Verzeichnisse löschen.
Bzw. in Acktionen zum Kopieren von Einzeldateien.
* mehrere Dateien (also inkl. Maske) da ist das Ziel immer das Verzeichnis
* bei Einzeldatei ist es mit \ immer ein Verzeichnis und der Dateiname wird beibehalten
* bei Einzeldatei ohne \ im Ziel muß man aufpassen unten die Checkbox nicht zu vergessen
* * dort kann das Ziel als "Kopieren mit neuem Namen" angesehn werden