Nom de fichier en vba
Résolu
wire less
Messages postés
233
Date d'inscription
Statut
Membre
Dernière intervention
-
wire less Messages postés 233 Date d'inscription Statut Membre Dernière intervention -
wire less Messages postés 233 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Nom de fichier en vba
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
2 réponses
Bonjour,
Voilà 3 fonctions issues de la FAQ VB6 du site https://vb.developpez.com/
L'auteur est ThierryAIM
;o)
Voilà 3 fonctions issues de la FAQ VB6 du site https://vb.developpez.com/
' Comment récupérer le répertoire d'un fichier à partir de son chemin complet ?
Public Function ExtractFilePath(ByVal sFullPath As String) As String
If Right(sFullPath, 1) = "\" Then
ExtractFilePath = sFullPath
Else
ExtractFilePath = Left(sFullPath, InStrRev(sFullPath, "\"))
End If
End Function
'Comment récupérer le nom d'un fichier à partir d'un chemin complet ?
Public Function ExtractFileName(ByVal sFullPath As String) As String
If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
ExtractFileName = ""
Exit Function
End If
ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function
'Comment récupérer l'extension d'un fichier à partir d'un chemin complet ?
Public Function ExtractFileExt(ByVal sFullPath As String) As String
Dim sName As String
sName = ExtractFileName(sFullPath)
If InStr(sName, ".") = 0 Then
ExtractFileExt = ""
Else
ExtractFileExt = Mid(sName, InStrRev(sName, ".") + 1)
End If
End Function
L'auteur est ThierryAIM
;o)