一つ前のフォルダのパスを取得

解決

ケルベロ  2004-08-24 10:29:26  No: 115844  IP: [192.*.*.*]

c:\TEST\TEMP\hoge1\自アプリ.exe
c:\TEST\TEMP\hoge2\
というフォルダ更正で自アプリからhoge2の中身を参照したいのですが
なにか良い方法はないのでしょうか？
hoge1とhoge2は固定です。
c:\TEST\TEMP\は任意のパスです。
簡単に自アプリの一つ上のフォルダを取得したいです。
app.pathの../は何？という事がしたいです。
文章下手ですいません。

編集 削除
nanashi  2004-08-24 10:54:45  No: 115845  IP: [192.*.*.*]

Dim sPath As String

sPath = App.Path
If Right$(sPath, 1) <> "\" then
   sPath = sPath & "\"
End If

sPath = sPath & "..\hoge2\"


とかで取れませんか？

編集 削除
ケルベロ  2004-08-24 10:59:24  No: 115846  IP: [192.*.*.*]

名無しさんありがとうございます。
それだとc:\TEST\TEMP\hoge1\..\hoge2\
になってしまいました。
環境書くの忘れてました。
XPhome
VB6 SP5 です。

編集 削除
ケルベロ  2004-08-24 11:12:00  No: 115847  IP: [192.*.*.*]

Dim Temp() As String
Temp = Split(App.Path, "\")
ReDim Preserve Temp(UBound(Temp) - 1)
Debug.Print Join(Temp, "\") & "\hoge2"
こんな方法しか思いつかないです。
..\などを使ってあっさりとれないものでしょうか？

編集 削除
ABC  2004-08-24 11:40:14  No: 115848  IP: [192.*.*.*]

c:\TEST\TEMP\hoge1\..\hoge2\
で正解なんじゃないですか？
c:\TEST\TEMP\hoge2\と同じ意味です。

それかFileSystemObjectで現在のフォルダを取得すればParentFolder
プロパティで親フォルダは取得できます。

Dim objFS As Object

Set objFS = CreateObject("Scripting.FileSystemObject")
Debug.Print objFS.GetFolder(App.Path).ParentFolder.Path & "\hoge2"

編集 削除
ケルベロ  2004-08-24 11:56:46  No: 115849  IP: [192.*.*.*]

ABCさん名無しさんありがとうございます！！
名無しさんの方法で問題ないです。
私の確認不足でした。

編集 削除