첨부 실행 코드는 나눔고딕코딩 폰트를 사용합니다.
유용한 소스 코드가 있으면 icodebroker@naver.com으로 보내주시면 감사합니다.
블로그 자료는 자유롭게 사용하세요.

[VB] 이진 파일 읽기

VB 2016. 6. 1. 21:58

■ 이진 파일 읽기

----------------------------------------------------------------------------------------------------

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

----------------------------------------------------------------------------------------------------

※ 해당 파일이 없는 경우 생성된다.

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요