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 |