Short path name on Windows (COM server)

Get the short path name of files and folders on Windows

Return the MS-DOS 8.3 naming convention for files or folders on Windows.
Example

>> fileName = 'C:\Program Files (x86)\Notepad++\notepad++.exe';

>> shortName = fsoGetShortPath(fileName)

shortName =

C:\PROGRA~2\NOTEPA~1\NOTEPA~1.EXE

>> shortName = fsoGetShortName(fileName)

shortName =

NOTEPA~1.EXE

This is the same as my other submission named "Short and long path name on Windows" (File ID: #48949) except that it works with a COM server instead of MEX files.