Ett exempel ifrån pellesoft.nu
Hur anropar man denna funktion för att få fram sökvägen?
är det typ: 'Vet inte riktigt!!! Hjälp!!!
longpath = App.Path & "\Text.bat"
Call GetShortPathName(longpath)
Label1.Caption = longpath

'--------- Funktionen -----------------------
Public Function GetShortPathName(longpath As String) 'As String
Dim s As String
Dim i As Long
i = Len(longpath) + 1
s = String(i, 0)
GetShortPathNameA longpath, s, i
GetShortPathName = Left$(s, InStr(s, Chr$(0)) - 1)
End Function

Tacksam för hjälp!