Ex: "c:\programfiles\documents\monfichier.txt" devient "c:\programfiles\...\monfichier.txt"
La fonction "ShortDisplayPath" va abréger le chemin du fichier jusqua ce que ce chemin ne fasse pas plus de "MaxLenght" caracteres (50 par défaut)... Il laisse intact si c'est assez court.
C'est trés pratique pour les popmenu et liste déroulante avec une liste de chemins qui sont pas trés pratique quand la fin est cachée (trop longue) et/ou que le controle prend (automatiquement) une largeur en plein écran pour s'adapter :o((
Source / Exemple :
'Short Display path like recents files popupmenu in Word or Excel
Public Function ShortDisplayPath(ByVal FullPath As String, Optional ByVal MaxLenght As Integer = 50) As String
Dim FileName, RootPath As String
If Len(FullPath) > MaxLenght Then
FileName = NomDossierSansChemin(FullPath)
RootPath = Left(FullPath, Len(FullPath) - Len(FileName) - 1)
Do While ((Len(RootPath) + Len(FileName) + 5) > MaxLenght)
RootPath = Left(RootPath, InStrRev(RootPath, "\") - 1)
Loop
ShortDisplayPath = RootPath & "\...\" & FileName
Else
ShortDisplayPath = FullPath
End If
End Function
Conclusion :
Créé pour le projet "Yahoo! Messenger Plus" :
http://www.yahooplus.fr.st
Les commentaires en anglais (sorry), c'est parceque ya surtout des benevoles anglais pour le projet... .oO(fô rien demander à des francais si ya po de fric à gagner :o| )
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.