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

[VB] 파일 복사하기

VB 2016. 6. 1. 21:58

■ 파일 복사하기

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

Dim strTargetFilePath As String

Dim strSourceFilePath As String

Dim I                 As Long

Dim pByte             As Byte

 

strSourceFilePath = "c:\a.txt"

strTargetFilePath = "c:\b.txt"

 

Open strSourceFilePath For Binary As #100

Open strTargetFilePath For Binary As #101

 

I = 1

 

Do Until EOF(100)

 

    Get #100, I, pByte

    Put #101, I, pByte

    

    I = I + 1

 

Loop

 

Close #100

Close #101

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

Posted by 사용자 icodebroker
TAG

댓글을 달아 주세요