TUTOS.EU

Retourner l'extension d'un fichier

Trouver l'extension d'un fichier

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 Copier le code

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 Copier le code

Pages Web

Site WebDescription
InStrRev FunctionInStrRev Function dans le MSDN

Article(s) en relation(s)

2