Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Fonction : FileInfo
Découpe un chemin de fichier pour en extraire les différentes informations.
(Consulté 19684 fois.)

Public Enum eFilePart
    fExtension = 0
    fFilename = 1
    fFilePath = 2
End Enum

Public Function FileInfo(stFichier As String, lgType As eFilePart) As String
' Retourne la partie d'un chemin de fichier
Select Case lgType
    Case fExtension ' Retourne l'extension du fichier
        FileInfo = Right$(stFichier, Len(stFichier) - InStrRev(stFichier, ".") + 1)
    Case fFilename ' Retourne le nom du fichier
        FileInfo = Right$(stFichier, Len(stFichier) - InStrRev(stFichier, "\"))
    Case fFilePath ' Retourne le chemin du fichier
        FileInfo = Left$(stFichier, InStrRev(stFichier, "\"))
End Select
End Function

Retour à la liste des fonctions