Local $sBin
;~ $sFileName = "in_file.txt"
;~ $hFile = FileOpen($sFileName, 0) ; ASCII mode
$sFileName = "in_file.jpg"
$hFile = FileOpen($sFileName, 16) ; Binary mode
For $i = 1 To FileGetSize($sFileName)
$sByte = FileRead($hFile, 1)
$sBin &= _ToBin($sByte)
Next
FileClose($hFile)
$sFileName = "out_bin.txt"
$hFile = FileOpen($sFileName, 2) ; Write mode (erase previous contents)
FileWrite($hFile, $sBin)
FileClose($hFile)
#Region Functions
Func _ToBin($v_Data)
Local $s_Bin, $b_Tmp
Switch VarGetType($v_Data)
Case "String"
$b_Tmp = Asc($v_Data)
Case "Binary"
$b_Tmp = $v_Data
EndSwitch
For $i = 1 To 8
$s_Bin &= BitAND($b_Tmp, 0x80) ? '1' : '0'
$b_Tmp = BitShift($b_Tmp, -1)
Next
Return $s_Bin
EndFunc ;==> _ToBin
#EndRegion Functions