[AccessD] Code to render ShortFileName

Anybody got code to paste into Access that derives a short file name (i.e.
everything shortened to 8 letters ala c:\Progr~1\Micro~1\Micro~2\etc.)?
Ideally, I would like to use the ADH code to grab a filename then call a
function that shortens the filename appropriately.

TIA,
Arthur