[VB] 이진 파일 읽기

Dim nFileHandle As Integer
Dim strFilePath As String
Dim pByte       As Byte
 
nFileHandle = FreeFile

strFilePath = "c:\a.txt"
 
Open strFilePath For Binary As nFileHandle
 
Do Until EOF(nFileHandle)

    Get nFileHandle, , pByte

    Print Chr(pByte);

Loop
    
Close nFileHandle