FileExtension (2)

Public Function GetExtension(FileName As String) As String
Dim intStart As Integer
Dim intEnd As Integer
Dim intFindFile As Integer
intFindFile = 1
'Find the actual file (remove path)


While intFindFile > 0
intStart = intFindFile
intFindFile = InStr(intFindFile + 1, FileName, "\")
Wend
intEnd = InStr(intStart, FileName, ".")
GetExtension = Right(FileName, Len(FileName) - intEnd)
End Function

'Esempio


Select Case GetExtension(strFileName)
Case "txt"
Shell "Notepad.exe strFileName
Case "doc"
Shell "Winword.exe strFileName
End Select