>LPARAMETER cPathToConvert >DECLARE INTEGER GetShortPathName IN Win32API ; > STRING @cLongPath, ; > STRING @cShortPathBuff, ; > INTEGER nBuffSize >LOCAL cBuf, nBufSize, nShortSize >cBuf= space(511) >nBufSize = 511 >nShortSize = GetShortPathName(cPathToConvert,@cBuf,@nBufSize) >IF nShortSize > 0 > RETURN LEFT(cBuf,nShortSize) >ELSE > RETURN '' >ENDIF >