+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Coding (https://sinister.ly/Forum-Coding--71)
+--- Thread: Get My Extension (/Thread-Get-My-Extension)
Get My Extension - M3 ™ - 09-16-2012
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)
EndFuncRE: Get My Extension - 1234hotmaster - 09-18-2012
Nice function, useful indeed. Mostly in interfaced applications
RE: Get My Extension - M3 ™ - 09-18-2012
Yes Dude , hope someone enjoy ,thanks for comment