?GetShortPath(GETFILE())
****************************************
Function GetShortPath(tcFileName)
****************************************
Local lnRes, lcPath
Declare Integer GetShortPathNameA In Win32API As GetShortPathName String, String, Integer
lcPath = Replicate(Chr(32), 165) + Chr(0)
lnRes= GetShortPathName(tcFileName, @lcPath, 164)
Clear Dlls GetShortPathName
Return (Left(lcPath, lnRes))
ENDFUNC &&GetShortPath