Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : FileInfo
Découpe un chemin de fichier pour en extraire les différentes informations.
(Consulté 18926 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
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr