>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
>