Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi SysUtils.DirectoryExists (https://www.delphipraxis.net/213145-sysutils-directoryexists.html)

himitsu 5. Jun 2023 14:52

AW: SysUtils.DirectoryExists
 
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 5. Jun 2023 16:43

AW: SysUtils.DirectoryExists
 
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 5. Jun 2023 16:47

AW: SysUtils.DirectoryExists
 
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 5. Jun 2023 16:48

AW: SysUtils.DirectoryExists
 
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 5. Jun 2023 17:04

AW: SysUtils.DirectoryExists
 
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: Delphi-Referenz durchsuchenFileExists 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 5. Jun 2023 17:13

AW: SysUtils.DirectoryExists
 
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 5. Jun 2023 17:36

AW: SysUtils.DirectoryExists
 
Zitat:

Zitat von himitsu (Beitrag 1523088)
Achtung: Delphi-Referenz durchsuchenFileExists 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 6. Jun 2023 09:38

AW: SysUtils.DirectoryExists
 
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 6. Jun 2023 21:24

AW: SysUtils.DirectoryExists
 
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 6. Jun 2023 21:49

AW: SysUtils.DirectoryExists
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:27 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz