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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question