one directory above app.path (Resolved)

[vbuser1]

I want to create a file but 1 directory above app.path.

app.path & ???? & "\test1.txt"

in unix it would be \.. to go to the above directory
what does ???? need to be to achieve this

[BrianS]

You could read the current path and strip out everything after the second \ from the right and then use the remaining path as your string.

[manavo11]

Dim i As Integer
 
i = InStrRev(App.Path, "\")
MsgBox Left$(App.Path, i)

[randem]

vbuser1


Or


app.path & "\..\test1.txt"

[BrianS]

All that does is add \..\test1.txt to the current path, not bring it up a level.

[randem]

OK, then it is

app.path & "\..\..\test1.txt"

[BrianS]

All you are doing is adding the string to app.path, it wont use the \.. command like you can at the command prompt, which is really cd.. for Windows.

[Steve_F]

Why dont you get App.Path and then remove the name of the folder the application is in ?!

[randem]

BrianS,

You are incorect. I use relative paths all the time to get to files. The OS understands this and it does work.

[Leecher]

Randem's method works. And it's

App.Path & "\.."

to get the parent directory.

Leecher

[BrianS]

Then please explain what I'm doing wrong to try his example:

Option Explicit
Dim path As String
 
Private Sub Form_Load()
MsgBox App.path
 
path = App.path & "\.."
 
End Sub

? app.Path
C:\Program Files\Microsoft Visual Studio\VB98
? path
C:\Program Files\Microsoft Visual Studio\VB98\..

[Leecher]

The string will read "C:\1\2\3\.."

But if you try to create "Test.txt" in "C:\1\2\3\.." it will actually create "C:\1\2\Test.txt".

Leecher

[manavo11]

Originally posted by BrianS
Then please explain what I'm doing wrong to try his example:

Option Explicit
Dim path As String
 
Private Sub Form_Load()
MsgBox App.path
 
path = App.path & "\.."
 
End Sub

? app.Path
C:\Program Files\Microsoft Visual Studio\VB98
? path
C:\Program Files\Microsoft Visual Studio\VB98\..

I have to agree with Brian in this case... I get the same results

[randem]

manavo11

You should... You have to create the file or open it. It is not in human format, the OS understands it thought. Use it like this:

App.Path & "\..\Test.txt"

[manavo11]

So you're right

I did :

Private Sub Form_Load()
    Dim FF As Integer
    FF = FreeFile
    Open App.Path & "\..\Test.txt" For Output As #FF
    Close #FF
End Sub

and it worked

[vbuser1]

app.path & "\..\test1.txt"

does work when creating a file but the path when display to the screen doesn't match. Thank you all.