DECLARE INTEGER GetShortPathName IN WIN32API ; STRING @ lpszLongPath, ; STRING @ lpszShortPath, ; INTEGER cchBuffer cShortFormBuffer = REPL(CHR(0),512) nLenShortName = GetShortPathName('MyLongPathName',@cShortFormBuffer,511) IF nLenShortName # 0 cShortName = LEFT(cShortFormBuffer,nLenShortName) ELSE * Call GetLastError() for error code ENDIFOr you can use the Scripting.FileSystemObject from the WSH:
oFSO = CREATEOBJ('Scripting.FileSystemObject') oFile = oFSO.GetFile('MyLongFileName') ? oFile.ShortName ? oFile.ShortPath