File Type Associations

[ptrex]

Assoc and FType

Might have been done before ?

expandcollapse popup

_Assoc("au3")

Func _Assoc($Ext)
Local $sRet

    $sRet = Run(@ComSpec & " /c Assoc ." & $Ext, "", @SW_HIDE,2)

    While 1
        $line = StdoutRead($sRet,71)
        If @error Then ExitLoop
        $Assoc = StringSplit($line,"=")
        ConsoleWrite($line)
            _FType($Assoc[2])
        Return $sRet
    Wend

    While 1
        $line = StderrRead($sRet)
        If @error Then ExitLoop
        ConsoleWrite( "STDERR read: "& $line& @CR)
    Wend
EndFunc

Func _FType($Type)
Local $sRet

    $sRet = Run(@ComSpec & " /c ftype " & $Type, "", @SW_HIDE,2)

    While 1
        $line = StdoutRead($sRet,71)
        If @error Then ExitLoop

        ConsoleWrite($line)
    Wend

    While 1
        $line = StderrRead($sRet)
        If @error Then ExitLoop
        ConsoleWrite( "STDERR read: "& $line& @CR)
    Wend
EndFunc

Regards

ptrex

[Nahuel]

haha, nice!