Date de création : 29/12/2006 à 15:49:00 3 Commentaire(s)

MadMatt

Ce sont plus des fonctions de manipulation de caractères, mais bon on en aura besoin pour la classe File.

Ces 2 fonctions permettent donc de récupérer le dossier "C:\Dossier\" et le nom du fichier "Fichier.exe" à partir du chemin d'accès complet au fichier "C:\Dossier\Fichier.exe".

' Permet de récupérer seulement le nom de fichier à partir du chemin d'accès complet
Public Function GetFileNameFromFullPath(ByVal FullPath As String) As String
    GetFileNameFromFullPath = Right$(FullPath, Len(FullPath) - InStrRev(FullPath, "\"))
End Function

' Permet de récupérer seulement le dossier à partir du chemin d'accès au fichier (avec extension)
' Exemple : Renvoie "C:\Dossier\" avec PathName="C:\Dossier\Fichier.exe"
Public Function GetPathFromFullPath(ByVal FullPath As String) As String
    GetPathFromFullPath = Left$(FullPath, InStrRev(FullPath, "\"))
End Function

Voici l'historique des modifications de ce code :

Le 30/12/2006 par MadMatt : Legere optimisation
Le 30/12/2006 par MadMatt : Re
Le 30/12/2006 par MadMatt : Re
Le 31/12/2006 par MadMatt : Modification des noms des fonctions

Vous devez être connecté pour pouvoir poster un commentaire.