Определить fullpath проекта (или файла) по shortpath

[Evlampy]

В Access 2002 происходит дело, но думаю что не имеет значения.
Currentproject.path возвращает Z:\Базы данных\, но Z: диск сетевой и мне нужно знать сетевой путь а не такой, есть ли функция которая преобразует Z:\Базы данных\ в полный сетевой путь типа \\SaNYA\ALL\Базы данных\

[ta_gena]

В MS Scripting Runtime есть такие функции.

Код: Выделить всё

Public Function ReplaceWithUNCPath(ByVal sFileName As String) As String
  Dim fso As New Scripting.FileSystemObject
  Dim sDisk As String, nPos As Long
  nPos = VBA.InStr(sFileName, ":")
  If nPos > 0 Then
    sDisk = VBA.Left$(sFileName, nPos)
    If fso.Drives(sDisk).DriveType = Remote Then
      sFileName = fso.Drives(sDisk).ShareName + VBA.Mid$(sFileName, nPos + 1)
    End If
  End If
  ReplaceWithUNCPath = sFileName
End Function