Public Module _MyFileFunctions
#Region " Exention de fichier; Nom de fichier "
''' <summary>
''' Retourne l'extention d'un fichier
''' </summary>
''' <param name="File">Chemin d'acces vers le fichier</param>
Public Function GetFileExtension(ByVal File As String) As String
Try
Dim Fileinfo As New System.IO.FileInfo(File)
Return Fileinfo.Extension
Catch ex As Exception
Return Nothing
End Try
End Function
''' <summary>
''' Retourne le nom d'un fichier
''' </summary>
''' <param name="FullFilePath">Chemin complet du fichier</param>
''' <param name="WithExtension">Indique si l'extension doit être fournie avec.</param>
Public Function GetFileName(ByVal FullFilePath As String, _
Optional ByVal WithExtension As Boolean = True) As String
Try
If WithExtension Then
Return Path.GetFileNameWithoutExtension(FullFilePath)
Else
Return Path.GetFileName(FullFilePath)
End If
Catch ex As Exception
Return Nothing End Try
End Function
#End Region
End Module