VB获取相对路径问题

在VB中可以使用CommonDialog控件获取到当前文件的绝对路径，但是由于要将得到路径的文件以相对路径的形式存储到数据库，原来预计先设定当前路径为根目录，然后当在当前目录下再选取文件时路径中会在原路径基础上多出文件夹名称以及所选文件名称，然后用MId字符串函数，以 Mid(最新选择文件后获得的路径字符串，最初路径字符串字符数+1，最新字符串字符数-最初字符串数）的形式得到相对路径，但是这个函数是不是不支持变量啊，输出不了数据，请教各位要怎么办，或者谁有好的获取相对路径的方法，能否给在下一些指点，先谢谢

设你的路径为E:\Visual Basic\SQL

其实可以用替换的方法来得到相对路径，代码如下：

Dim CurPath As String, AbsPath as string

CurPath = App.Path

AbsPath=Replace(RPath,CurPath,vbnullstring)

说明：RPath是你的绝对路径

Public Function DetermineDirectory(inputString As String) As String '获取路径
Dim pos As Integer
pos = InStrRev(inputString, "\", , vbTextCompare)
DetermineDirectory = Mid(inputString, 1, pos)
End Function
Public Function DetermineFilename(inputString As String) As String '获取文件名
Dim pos As Integer
If InStr(1, inputString, "\") = 0 Then
DetermineFilename = inputString
Else
pos = InStrRev(inputString, "\", , vbTextCompare)
DetermineFilename = Mid(inputString, pos + 1, Len(inputString) - pos)
End If
End Function

有办法哦

首先你假如获得绝对路径是
C:\aaa\bbb\ccc.exe
程序放在bbb里面