Read Dimensions From GIF Image File

$sFilePath = FileOpenDialog("Select GIF file", "", "GIF (*.gif)")

$aDim = _GIF_GetDimensions($sFilePath)
ConsoleWrite("Width: " & $aDim[0] & @CRLF)
ConsoleWrite("Height: " & $aDim[1] & @CRLF)

Func _GIF_GetDimensions($sGIF_Path)
    Local $aGIF_Dim[2], $hGIF_File
    $hGIF_File = FileOpen($sGIF_Path, 16)

    FileSetPos($hGIF_File, 6, 0)
    $aGIF_Dim[0] = Int(FileRead($hGIF_File, 2))
    $aGIF_Dim[1] = Int(FileRead($hGIF_File, 2))

    FileClose($hGIF_File)

    Return $aGIF_Dim
EndFunc