Extracting file extension

[jbart]

You could use the InStr function to locate the period, then use the Mid function to extract the extension.

Private Sub Command1_Click()
    Dim periodPosition As Integer
    Dim extensionValue As String
    
    periodPosition = InStr(Text1.Text, ".") + 1
    extensionValue = Mid$(Text1.Text, periodPosition)
    MsgBox extensionValue
End Sub

or combine the Functions on one line.

Private Sub Command1_Click()
    Dim extensionValue As String
    extensionValue = Mid$(Text1.Text, InStr(Text1.Text, ".") + 1)
    MsgBox extensionValue
End Sub

[Edited by jbart on 10-10-2000 at 09:20 AM]