' Return the extension of a file nameFunction GetFileExtension(ByVal FileName As String) As String Dim i As Long For i = Len(FileName) To 1 Step -1 Select Case Mid$(FileName, i, 1) Case "." GetFileExtension = Mid$(FileName, i + 1) Exit For Case ":", "" Exit For End Select NextEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
