Chemin abrégé d'un fichier comme dans word et excel qd la taille est trop longue

Télécharger le projet
Commenter

Description

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| )
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 (cs_olid)