А парсерный код не пойдет?
Luzhnikovskiy 20.08.2003 20:57
сплитишь по "/",
менюшишь,
сплитишь по ".",
проверяешь левую часть на 8 символов: если длиннее - первые 6 + "~1",
проверяешь правую на 3 символа,
собираешь в переменную.
если нужно круче, можно пособирать в таблицу и поправить ~N в случаях типа "/program files/" и "/program data/" и т.д.