VB 강제 복사

해당 파일을 열고 내용을 복사하세요. 새 파일을 만들고, 복사하고, 이름을 바꾸세요.

코드 받기

Option Explicit

Dim a As String, b As String

' 복사할 파일은 a이고 나머지 파일은 b입니다.

Private Sub Command1_Click()

Open a For Binary As #1

이진수에 대해 # 2로 b 열기

Dim c를 문자열로 지정

EOF가 아닌 동안 수행(1)

#1, , c 가져오기

#2, , c 넣기

루프

End Sub