Buenas, supongo que todos sabreis que DOS acorta los caracteres de un directorio o fichero en 8, hay alguna manera liviana y facil en visual basic.net para hacer esto?

Ejemplos:
C:\Trabajos de pepe\Informe_junio.doc -> C:\Trabaj~1\Inform~1.doc
C:\Trabajos de enrique\Obras-previstas.doc -> C:\Trabaj~2\Obras-~1.doc
C:\Pepa\Nosequenombredearchivoibaaponerleaeste.nose -> C:\Pepa\Nosequ~1.nose

Me iria muy bien
Gracias