Chemin DOS

Signaler
Messages postés
75
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
Messages postés
432
Date d'inscription
samedi 18 mai 2002
Statut
Modérateur
Dernière intervention
17 février 2014
-
salut

j'aimerais savoir comment recuperer le chemin MS-DOS d'un fichier

merci

1 réponse

Messages postés
432
Date d'inscription
samedi 18 mai 2002
Statut
Modérateur
Dernière intervention
17 février 2014
1
Voici un exemple tiré de l'API-Guide:

Déclaration de l'API:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Ecriture de la fonction:

Public Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String$(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left$(strPath, lngRes)
End Function

Appel de la fonction:

Private Sub Form_Load()
MsgBox GetShortPath("c:\Program Files")
End Sub

Et voilà,

A+, Clm
0