Convertir les chemins win en dos (limite des 8 charactères)

Télécharger le projet
Commenter

Description

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (SkylandeR)