Au fait ça utilise l'API GetshortPathName. Pas plus simple.
Source / Exemple :
'--------------------------------------------------------
'A §kylandeR Corp Product: BiTmAkKeR §kylandeR Creation
'--------------------------------------------------------
'Open Source ! Pas de copyright !
'Thanks to VBfrance !
'Ce prog permet de convertir vos chemins Win en Dos
'Utilisation: DosPath(str_du_chemin as string)
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
'
'
Public Function DosPath(strFile As String) As String
Dim lng As Long, Path As String 'Données nécessaires
Path = String$(165, 0) 'Crée un buffer
lng = GetShortPathName(strFile, Path, 164) 'Prend le chemin en Dos
DosPath = Left$(Path, lng) 'Enlève tout les chr$(0) de trop
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.