Et dir tilbage !!!

Private Sub Form_Load()
Dim Sti As String
Dim Bogstav As String
Dim Antal As Integer
Sti = App.Path
Antal = Len(Sti)
Do Until Bogstav = "\"
Bogstav = Mid$(Sti, Antal, 1)
Antal = Antal - 1
Loop
Sti = Mid$(Sti, 1, Antal) & "\newdir"
MsgBox Sti
End Sub
Her den her virker

Hilsen
M.I.X

Du kigger på app.path og aflæser den \ der er længst til højre, fjern alt det der er til højre derfor og vupti har du stien lav så chdir ...

Sorry glemt lige at nævne, at hvis du vil længere tilbage.. skal du bare køre loopen en gang til feks.
Private Sub Form_Load()
Dim Sti As String
Dim Bogstav As String
Dim Antal As Integer
Sti = App.Path
Antal = Len(Sti)
Do Until Bogstav = "\"
Bogstav = Mid$(Sti, Antal, 1)
Antal = Antal - 1
Loop
Antal = Antal - 1
Bogstav = ""
Do Until Bogstav = "\"
Bogstav = Mid$(Sti, Antal, 1)
Antal = Antal - 1
Loop
Sti = Mid$(Sti, 1, Antal) & "\newdir"
MsgBox Sti
End Sub

Husk denne commando så er du sikker på den hopper en længere tilbage.
Metoden er måske privitiv men den virker.
M.I.X
Antal = Antal - 1
Bogstav = ""

En lidt lettere løsning vil være

MsgBox Mid(App.Path, 1, InStrRev(App.Path, "\")) & "NewDir"

Mvh

baunsgaard >> Ja det er rigtigt men hvis han nu vil en gang længere tilbage så dur den ik.
M.I.X

Nu er det jo heller ikke det, der er bedt om, men det er da også nemt nok at få det med i en linie:

MsgBox Mid(App.Path, 1, InStrRev(App.Path, "\", InStrRev(App.Path, "\") - 1)) & "NewDir"

Mvh