eine Verzeichnisebene höher

[stab]

Hallo,

um eine Verzeichnisebende höher zu gelangen, habe ich mir das hier gebastelt:

Code: Alles auswählen

dir$ = "C:\Programme\Anwendung\bin\"

For d = 1 To CountString(dir$,"\")-1
  neudir$ = neudir$ + StringField(dir$,d,"\") + "\"
Next

Debug neudir$

Gibt es da etwas anderes?

auf Windows Kommandozeilenebene reicht ja ein "cd.."

[Axolotl]

Moin,
natürlich, es gibt immer (viele) verschiedene Lösungen ...
Mir gefällt das hier am Besten:

Code: Alles auswählen

neudir$ = GetPathPart(RTrim(dir$, #PS$))  ; #PS$ == "\" 
Debug neudir$ 

oder als Marco oder Procedure

Code: Alles auswählen

; Macro GetParentDirectory(Directory) 
;   GetPathPart(RTrim(Directory, #PS$)) 
; EndMacro 

Procedure.s GetParentDirectory(Directory$) 
  ProcedureReturn GetPathPart(RTrim(Directory$, #PS$))  
EndProcedure 

[stab]

Das gefällt mir auch sehr gut !!!

Ich wusste nicht bzw. hatte nicht getestet, dass GetPathPart() so einfach den Pfad eines Verzeichnisses zurückgibt.

Code: Alles auswählen

t$ = "::<>st1\test2.safsa.__,,,---))))88888///sadf\Qqqq°     °°^^^^Ä+*+;;,...$%§]\]sa.sadfsa.sdaffsasf."
Debug GetPathPart(t$)

Vielleicht sollte die Hilfe doch so lauten:

Kürzt einen String vom Ende bis auf das erste Vorkommen eines Backslashes!

Danke, danke!

[STARGÅTE]

Du kannst an den Pfad auch einfach ein ".." hängen und gelangst so eine Ebene nach oben.

"C:\Programme\Anwendung\bin\..\" ist also das gleiche wie "C:\Programme\Anwendung\" ohne, dass du irgendwas abschneiden musst.

[stab]

Das ist ja cool ...

Obwohl ich glaube, mich mit der Kommandozeile gut auszukennen (bin damit aufgewachsen), kannte ich diese Syntax noch nicht.

Code: Alles auswählen

Debug GetCurrentDirectory()
SetCurrentDirectory(GetCurrentDirectory()+"..")
Debug GetCurrentDirectory()

Danke !