'  ************************************************** 
'      Pass this program any filename and it will 
'    return its' SHORT NAME.  Works with 8.3 or LFN 
'  ************************************************** 

DIM ShortName$

GetShortPathName(COMMAND$, ShortName$, 256)

PRINT ShortName$

Result:

Result not displayed for this example.