Fonction pour retourner l'extension d'un fichier
Public Function ExtensionFichier(ByVal CheminFichier)
'Retourne l'extension du fichier
Dim Position
ExtensionFichier = ""
Position = InStrRev(CheminFichier,".")
If (Position > 0) And (Position < Len(CheminFichier)) Then
ExtensionFichier = Mid(CheminFichier,Position+1)
End If
End Function
Lien vers le fichier : cliquez ici
Pour récupérer le nom d'un fichier sans son extension :
ExtensionFichier = ""
Position = InStrRev(CheminFichier,".")
If (Position > 0) And (Position < Len(CheminFichier)) Then
ExtensionFichier = Mid(CheminFichier,Position+1)
NomFichierSansExtension = Left(CheminFichier,Position-1)
Description = NomFichierSansExtension
If Len(Description) > 3 Then Description = Mid(Description, 4)
End If
Lien vers le fichier : cliquez ici
Pages Web
Site Web | Description |
---|---|
InStrRev Function | InStrRev Function dans le MSDN |
Article(s) en relation(s)