CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Get file extension for a given file (in two ways)
Option Explicit
 
'Using FSO:

Public Function GetFileExtensionUsingFSO(ByVal sFile As String) As String
'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    GetFileExtensionUsingFSO = FSO.GetExtensionName(sFile)
    Set FSO = Nothing
End Function
'How can I call this function:
'Debug.Print GetFileExtensionUsingFSO("C:\Temp\b\test1.txt")

'Using String Manipulation:
Public Function GetFileExtensionUsingStringManip(ByVal sFile As String) As String
    GetFileExtensionUsingStringManip = Mid$(sFile, InStrRev(sFile, ".") + 1)
End Function
'How can I call this function:
'Debug.Print GetFileExtensionUsingStringManip("C:\Temp\b\test1.txt")