[VB] 파일 복사하기

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