You also forgot that directories with dots in their names like 'c:\stu.shi\' turn into 'c:\stu~1.shi\' so just use Win32;

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"