kun sti ved database.name

Function RetrievePathFile(Optional vComponent As Variant)

        \' This function takes an optional argument that specifies
        \' whether you want to return the directory portion of
        \' the path or the file portion of the path.
        \' Usage: If you want to return only the name of the file
        \' without the path, use the syntax:
        \'    RetrievePathFile(\"FName\")
        \' If you supply a different argument or no argument at all
        \' the function returns only the folder in which the file is
        \' located.
        Dim strCurDBName As String
        Dim i As Integer  \' loop counter.
        strCurDBName = CurrentDb.Name
        \' Loop backward through string to find last \"\\\"
        For i = Len(strCurDBName) To 1 Step -1
            If Mid(strCurDBName, i, 1) = \"\\\" Then
              If IsMissing(vComponent) Then
                  RetrievePathFile = Mid(strCurDBName, 1, i - 1)
              ElseIf vComponent = \"FName\" Then
                  RetrievePathFile = Mid(strCurDBName, i + 1)
              Else
                  RetrievePathFile = Mid(strCurDBName, 1, i - 1)
              End If
            Exit For
            End If
        Next i


SÅ KAN MAN VÆLGE :

RetrievePathFile()

  Dim sti As String, i As Integer
  sti = CurrentDb.Name
  i = Len(sti)
  While Mid(sti, i, 1) <> \"\\\"
    i = i - 1
  Wend
  sti = Left(sti, i)
  MsgBox sti

men hvorfor kan jeg ikke bruge det hvis der kun er installeret runtime installeret på maskinen...
det virker fint på \"alm\" pc.