첨부 소스 코드는 나눔고딕코딩 폰트를 사용합니다.

[VB] 파일 복사하기

VB 2016. 6. 1. 21:58
728x90
반응형
728x170
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
728x90
반응형
그리드형(광고전용)
Posted by icodebroker
TAG ,

댓글을 달아 주세요