[RESOLVED] SaveFileDialog Question

[gigemboy]

Or just get the right 3 characters returned from the filepath of the dialog...

Dim MyExtension as String
MyExtension = strings.right(ReturnDialogString, 3) 'returns last 3 letters, replace returndialogstring with filepath returned from dialog
Select Case MyExtension
            Case Is = "m3u"
                MsgBox("m3u")
            Case Is = "wpl"
                MsgBox("wpl")
            Case Else
                MsgBox("Not A Supported FileType!")
                Exit Sub
End Select

EDIT*** - uppercase extensions won't work with this code, you have to do myextension = myextension.tolower in order to always make it lowercase in order for it to work, or change your case statements to also evaluate it for the uppercase M3U or WPL