Pfad von Ordner 2 Ebenen höher

**Svenkan**

Hey!
Ich benötige eine Möglichkeit, dass ich an den Verzeichnispfad eines Ordners komme, der 2 Ebenen über dem aktuellen liegt.

Beispiel: Zusatzmodul liegt in 'C:\Programme\VPlan Plus\Extras\HTML-Druck'
Nun brauch ich: 'C:\Programme\VPlan Plus'

Wie bekomme ich nun den Pfad?

**DeddyH**

Ein Versuch:

markieren

Delphi-Quellcode:

			for i := 1 to 2 do

  Pfad := ExtractFilePath(ExcludeTrailingPathDelimiter(Pfad));

Hab gerade kein Delphi verfügbar, daher ungetestet.

**Christian Seehase**

Moin Svenkan,

falls Du nur den Zugriff benötigst, sollte auch das hier gehen:

sPfad := IncludeTrailingPathDelimiter(sPfad)+'..\..\';

**Svenkan**

Hallo ihr beiden,

der erste Tipp war genau das, was ich benötigt habe! Danke für eure Bemühungen!

Pfad von Ordner 2 Ebenen höher

Pfad von Ordner 2 Ebenen höher

Re: Pfad von Ordner 2 Ebenen höher

Re: Pfad von Ordner 2 Ebenen höher

Re: Pfad von Ordner 2 Ebenen höher

Forumregeln

Svenkan Registriert seit: 10. Feb 2007 Ort: Bersenbrück 547 Beiträge Delphi 7 Enterprise	#1 Pfad von Ordner 2 Ebenen höher 21. Jun 2008, 16:44 Hey! Ich benötige eine Möglichkeit, dass ich an den Verzeichnispfad eines Ordners komme, der 2 Ebenen über dem aktuellen liegt. Beispiel: Zusatzmodul liegt in 'C:\Programme\VPlan Plus\Extras\HTML-Druck' Nun brauch ich: 'C:\Programme\VPlan Plus' Wie bekomme ich nun den Pfad? Sven Kannenberg
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#3 Re: Pfad von Ordner 2 Ebenen höher 21. Jun 2008, 16:52 Moin Svenkan, falls Du nur den Zugriff benötigst, sollte auch das hier gehen: sPfad := IncludeTrailingPathDelimiter(sPfad)+'..\..\'; Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

Svenkan Registriert seit: 10. Feb 2007 Ort: Bersenbrück 547 Beiträge Delphi 7 Enterprise	#4 Re: Pfad von Ordner 2 Ebenen höher 21. Jun 2008, 17:34 Hallo ihr beiden, der erste Tipp war genau das, was ich benötigt habe! Danke für eure Bemühungen! Sven Kannenberg
	Zitat