Как программным путем получить относительный путь? - VB

Формулировка задачи:

Как программным путем получить относительный путь (например от каталога программы) в виде например ......Utilsdoc.txt после вызова диалога открытия файла? Заранее благодарен за ответ. Турко Сергей.

Решение задачи: «Как программным путем получить относительный путь?»

textual
                            Листинг программы 
                        

                            '*************************************************
' Функция определения относительного пути
'
' Аргументы:
' rPath - полный базовый путь
'         (например: = App.Path + ' ')
' fPath - полный путь к искомому файлу
'         (например: получен через CommonDialog)
'
' Возвращаемое значение:
' RelativePath - путь к искомому файлу 
'                относительно базового
'
' Особенности:
'         Оба пути должны быть на одном логическом носителе!
'*************************************************
Function RelativePath(rPath As String, fPath As String) As String
Dim i As Integer
 
    Do While Mid(fPath, 1, 1) = Mid(rPath, 1, 1)
        rPath = Mid(rPath, 2, Len(rPath))
        fPath = Mid(fPath, 2, Len(fPath))
    Loop
    'ищем кол-во слешей и добавляем точки
    For i = 1 To Len(rPath)
        If Mid(rPath, i, 1) = ' ' Then fPath = '.. ' & fPath
    Next i
 
RelativePath = fPath
End Function
                        