StripFileExtension

Public Function StripFileExtension(ByVal FullFilePathAndName As String) As String

Returns the file path and file name whith the file-extension stripped off of the specified full path.

Dim lFileExtension = GetFileExtension(pSpecifiedFileName)

If LCase(lFileExtension) In {"jpg", "jpeg", "gif", "bmp", "svg"} Then
   Dim lNewFileName As String = StripFileExtension(pSpecifiedFileName) & ".png"
   Call ConvertImageToPNG(pSpecifiedFileName, lNewFileName)
End If

See also: