[M3 ™]

Code:

;============================ ; 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,"","My Extension is" & $Return) EndFunc

[1234hotmaster]

Nice function, useful indeed. Mostly in interfaced applications

[M3 ™]

Yes Dude , hope someone enjoy ,thanks for comment