relativ sti til fuldstændig sti

jeg bruger denne funktion..

Sub find_filename()
    find_file = Application.GetOpenFilename("All Files,*.*", , "Find File")
    If find_file <> False Then
        Selection.value = find_file
    End If
End Sub

har uden held prøvet med ChDir..

Sub find_filename()
    ChDir(server_folder)
    find_file = Application.GetOpenFilename("All Files,*.*", , "Find File")
    If find_file <> False Then
        Selection.value = find_file
    End If
End Sub

Her er en funktion til dette baseret på denne microsoftartikel
http://support.microsoft.com/?kbid=160529

Declare Function WNetGetConnection32 Lib "MPR.DLL" Alias _
          "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal _
                                                                                          lpszRemoteName As String, lSize As Long) As Long

Dim lpszRemoteName        As String
Dim lSize                  As Long
Const NO_ERROR            As Long = 0
Const lBUFFER_SIZE        As Long = 255

Function GetNetPath(pth As String)
Dim DriveLetter As String
  DriveLetter = Left(pth, 2)
  cbRemoteName = lBUFFER_SIZE
  lpszRemoteName = lpszRemoteName & Space(lBUFFER_SIZE)
  lStatus& = WNetGetConnection32(DriveLetter, lpszRemoteName, _
                                  cbRemoteName)
  If lStatus& = NO_ERROR Then
      GetNetPath = Left(RTrim(lpszRemoteName), Len(RTrim(lpszRemoteName)) - 1) & Mid(pth, 3, 99)
  Else
      MsgBox "Unable to obtain the UNC path.", vbInformation
  End If
End Function

Sub test()
  Dim s As String
  s = Application.GetSaveAsFilename
  MsgBox GetNetPath(s)
End Sub

Hey bak.. jeg har brugt din løsning i lang tid, men har ikke fået lukket spm.. smid et svar..

Godt at få ryddet op :-)

Det er så et godt billede på, hvor god jeg er til at rydde op.. jeg er ca. 1½ måned om at komme i gang..