VB里面操作文件的路径问题

Question

在VB里面怎么样动态的获得当前目录的上一级目录。比如说：
我的数据库文件在Data目录里
我的工程文件在Code目录里
Data和Code是同一级目录，我怎么样去动态设定数据库的连接源。我不想写死了。

Answer 1

Option Explicit
Dim Fso As FileSystemObject
Dim Fol As Folder
Dim FolData As FolderPrivate Sub Form_Load()
 Set Fso = New FileSystemObject
  Fol = Fso.GetFolder(App.Path)
  FolData = Fso.GetFolder(Fol.ParentFolder & "/data")
 
End Sub

Answer 2

用app.path获得当前路径，然后再对获得的字符串稍做手脚即可

Answer 3

有没有其它的方法可以直接获得。
比如类似Web编程里的../这样的在这里可以用GetParentFolderName()不就行了谢谢楼上的两位的意见

Answer 4

得到Data的路径：Mid(App.Path, 1, InStrRev(App.Path, "\")) & "Data"

Answer 5

我的数据库文件在Data目录里
我的工程文件在Code目录里
Data和Code是同一级目录.
-----------
假设数据库abc.mdb在c:\123\data
程序在   c:\123\code则数据库目录可以写为 app.path & "\..\data"
则数据库路径描述为 app.path & "\..\data\abc.mdb"
该"..\"的方法同样可以用在connection的连接字串中。