conversion long filename vers short filename

 														 																Alors, voici le code complet de la mini appli test crée pour l'occasion (ce bug me semble bizarre quand même) 																
 																
Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

' Convert a long filename into the short 8.3 format
' if the file doesn't exist, return a null string

Function GetShortFileName(ByVal LongFileName As String) As String
    Dim buffer As String, length As Long
' Prepare the receiving buffer
    buffer = Space$(300)
    length = GetShortPathName(LongFileName, buffer, Len(buffer))
' if return value was non-zero, estract the result
' else, it returns a null string (probably
    GetShortFileName = Left$(buffer, length)
 End Function

 Private Sub Form_load()
     Me.AutoRedraw = True
     Dim pathTest As String
     pathTest = "C:\Program Files\Fichiers communs\Microsoft Shared\Web Folders\MSONSEXT.DLL"
     Me.Print pathTest
     Me.Print GetShortFileName(pathTest)

     pathTest = "C:\Mes Documents\Long Name File.txt"
     Me.Print pathTest
     Me.Print GetShortFileName(pathTest)
 End Sub

Et voici la jolie fenêtre créée : 


Nb : Je guarantis que les deux fichiers utilisés ci-dessus pour le test existent