Comment trouver le nom court d'un fichier en fonction de son nom long ?
Il faut employer l'API GetShortPathName :
Private Declare Function GetShortPathName Lib
"kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As
String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Const MAX_PATH_LENGHT = 255
Private Function ShortPath(LongPath As String) as String
Dim tmpShortPath As String
Dim RC As Long
tmpShortPath = Space(MAX_PATH_LENGHT + 1)
RC = GetShortPathName(LongPath, tmpShortPath, MAX_PATH_LENGHT
+ 1)
ShortPath = Left(tmpShortPath, InStr(tmpShortPath, Chr$(0)) -
1)
End Function
Private Sub Form_Load()
MsgBox ShortPath("C:\Mes Documents\LongNameFile.txt")
End Sub |