bool SetFileShortName(IntPtr hFile, string lpShortName);
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function SetFileShortName Lib "kernel32.dll" Alias "SetFileShortNameA" (ByVal handle As Long, ByVal lpszShortName As String) As Boolean