Convert a long path name to a short path name

Hello,

Does some one could tell me how could i convert a long path name to a short path name (8+3)

For exemple :

C:\MY DOCUMENTS\MY_EXEMPLE.DOC

=> C:\MYDOCU~1\MY_EXE~1.DOC

Thank you for your help.....

http://forums.vb-world.net/showthrea...threadid=58328

Code:

---

Path = "C:\Windows\Desktop\MyFile.txt"
ShortPath = Right(Path, Len(Path) - InStrRev(Path, "\"))
Print ShortPath

---