include "KixWithClass.udf"	; http://www.kixtart.org/UDF/UDF_lister.php?what=post&code=213741
include "AlsArray.udf"		; http://www.kixtart.org/UDF/UDF_lister.php?what=post&code=213557
$include_fbin = includeClass("fbin", "FileBin.udf") ; UDF FileBin.udf
$fbin = newClass($include_fbin)
$path_i = @curdir+"\cmd.exe"
$path_o = @curdir+"\cmd_o.exe"

;; Reading file and returned an array of ascii code
"Reading file..."?
$bin = $fbin.ReadBin($path_i)
"Read file!"??

;; Writing to a binary array
$bin = array_merge($bin,
	stringToByteArray("hello") ;; transforming text em array from ascii
)


;; Writing the binary file array.
"Writing in the file..."?
$fbin.WriteBin($path_o, $bin)
"Written file!"??

;; Writing at the end of the file
$fbin.WriteBin_append($path_o,
	stringToByteArray("Hello Brasil!!") ;; transforming text em array from ascii
)

get$

public function ReadBin($path)
	$objFSO = CreateObject( "Scripting.FileSystemObject" )
	Set $objBinFile = $objFSO.GetFile( $path )
	Set $objBinStream = $objBinFile.OpenAsTextStream( 1, 0 )
	$i = -1
	
	Do
		$i = $i + 1
		redim preserve $strLine[$i+1]
		$intByte = Asc( $objBinStream.Read(1) )
		$strLine[$i] = $intByte
	Loop Until $objBinStream.AtEndOfStream
	
	$ReadBin = $strLine
endfunction

public sub WriteBin($path, $ArrayByte)
	
	$objFSO  = CreateObject( "Scripting.FileSystemObject" )
	Set $objFile = $objFSO.CreateTextFile( $path, 0, 0 )
	
	For $i = 0 To UBound( $ArrayByte )
		$objFile.Write( Chr( $ArrayByte[$i] ))
	Next
	
	$objFile.Close()
	
	$objShell  = CreateObject( "Shell.Application" )
	Set $objParent = $objShell.NameSpace( $objFSO.GetParentFolderName( $objFSO.GetAbsolutePathName( $path ) ) )
	Set $objFile   = $objParent.ParseName( $path )
	$objFile.ModifyDate  = Date() & " " & Time()
	Set $objFile   = Nothing
	Set $objFSO    = Nothing
	Set $objShell  = Nothing

endsub

public sub WriteBin_append($file, $ArrayByte)

	$objFSO  = CreateObject( "Scripting.FileSystemObject" )
	Set $objFile = $objFSO.OpenTextFile( $file,  8, True )
	
	For $i = 0 To UBound( $ArrayByte )
		$objFile.Write( Chr( $ArrayByte[$i] ))
	Next
	
	$objFile.Close()
	$objBinFile.Close()

endsub

function ReadBin($path)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objBinFile = $objFSO.GetFile($path)
  $objBinStream = $objBinFile.OpenAsTextStream(1, 0)
  $i = -1
  Do
    $i = $i + 1
    redim preserve $strLine[$i+1]
    $intByte = Asc($objBinStream.Read(1))
    $strLine[$i] = $intByte
  Until $objBinStream.AtEndOfStream
  $ReadBin = $strLine
endfunction

Function WriteBin($path, $ArrayByte)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objFile = $objFSO.CreateTextFile($path, 0, 0)
  For $i = 0 To UBound($ArrayByte)
    $objFile.Write(Chr($ArrayByte[$i]))
  Next
  $objFile.Close()
  $objShell = CreateObject("Shell.Application")
  $objParent = $objShell.NameSpace( $objFSO.GetParentFolderName($objFSO.GetAbsolutePathName($path)))
  $objFile = $objParent.ParseName($path)
  $objFile.ModifyDate  = @DATE + " " + @TIME
  $objFile = ""
  $objFSO = ""
  $objShell = ""
endfunction

Function WriteBin_append($file, $ArrayByte)
  $objFSO = CreateObject("Scripting.FileSystemObject")
  $objFile = $objFSO.OpenTextFile($file,  8, 1)
  For $i = 0 To UBound($ArrayByte)
    $objFile.Write(Chr($ArrayByte[$i]))
  Next
  $objFile.Close()
  $objBinFile.Close()
endfunction