BCX Console Demonstration Program s96.bas |
' ************************************************** ' 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$