String auf Pathgültigkeit testen ?

[turboPASCAL]

Hi,

gibt es eine Function in Delphi die einen String auf Pathgültigkeit prüft und ggf. gersetzt ?





Gruss ein etwas zerstreuter...

[Luckie]

Das Wort "Pathgültigkeit" kenne ich nicht. Was meinst du damit? Ob der Pfad exitiert? Dann nimm DiectoryExists. Ob der Pfad ungültige Zeichenthält, dann nimm eine Routine aus der Code-Lib. Dort haben wir eine Routine, die überprüft, ob ein Dateiname nur gültige Zeichen enthält, sollte auch auf Pfade anwendbar sein.

[turboPASCAL]

Äh ob ein String ein gültiger Pathname ist.

Delphi-Quellcode:

MyPath = '\Das ist ein ? ungültiger * Path\,Dings.dat';
CreateDir(MyPath);

*argh* Gefunden, thx.

[Christian Seehase]

Moin Matti,

vielleicht solltest Du Dir mal die Funktionen PathIsDirectory oder PathIsRelative ansehen.
Das sind Funktionen der Shell Lightweight API (shlwapi.dll), die selbst importiert werden müssen.

Auch wenn Deine Methode funktioniert:
Ist es sinnvoll zu versuchen ein Verzeichnis anzulegen, nur um zu erkennen, ob es eines ist?

Du könntest auch einfach prüfen, ob der String ungültige Zeichen enthält (:,",<,>,|,*,?). : nur, wenn keine Laufwerksangabe enthalten sein kann. Das / fehlt übrigens bewusst, da es ein gültiges Pfadtrennzeichen darstellt. Es ist identisch zu \ verwendbar.
Ein Problem wäre natürlich, wenn der String mit \\ anfängt. Dann könnte es eine Serverangabe sein, oder einfach ein relativer Pfad mit zwei aufeinander folgenden Pfadtrennern Eine beliebige Anzahl hintereinander, auch unterschiedlicher Pfadtrennzeichen ist erlaubt, und wird vom Dateisystem als eines erkannt.
(C:\\\\\\Temp = C:\Temp = C:/temp = C:/\/\/\temp)

[oschulz]

Delphi bietet die Funktion DirectoryExists zum prüfen, ob der Pfad existiert. Wenn das Verzeichnis nicht existiert, kannst du es mit ForceDirectories() anlegen.

[turboPASCAL]

@oschulz, ja danke, ist schon klar. Es geht darum zu Prüfen ob ein String ein gültiger Path
ist bzw. ob er unerlaubte Zeichen enthält, ohne dies mit einem realen Versuch auf die HD zu schreiben zu testen.

Ich mag es nun mal nicht wenn man umsonst auf der Platte rumkratzt.

@Christian, Ah, kannte ich noch nicht.