![]() |
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
)