הנה
Function ByteToBinary(ByVal A As Byte) As String Dim Tmp As Byte Dim Result As String Tmp = A Mod 2 Result = Tmp A = A \ 2 While A <> 0 Tmp = A Mod 2 Result = Tmp & Result A = A \ 2 Wend ByteToBinary = Result End Function Function GetFileBinary(FileName As String) As String Dim FileBuff As String, Result As String Dim I As Long Open FileName For Binary Access Read Lock Write As #1 FileBuff = Space(LOF(1)) Get #1, , FileBuff Close #1 Result = "" For I = 0 To Len(FileBuff) Result = Result & ByteToBinary(Asc(Mid(FileBuff, I, 1))) Next I GetFileBinary = Result End Function
הפונקציה GetFileBinary מקבלת שם של קובץ ומחזירה מחרוזת ענקית של מספר בינארי.