Código: Seleccionar todo

;============================
; Autor M3
; Funcion Get Extension File
; Thanks to iCodeInVB6 for Base 
;=============================


sMyExtension(@WindowsDir & "\Notepad.exe")

Func sMyExtension($sHost) 
       
   Local $Return , $i      
      
	    For $i = 1 To StringLen($sHost)
	    If StringMid($sHost, $i, 1) = "." Then
            $Return = StringMid($sHost, $i * 1)
            EndIf
   
   Next
	 
	 Msgbox (0,"","Mi Extension és " & $Return)

EndFunc