Copia forzada de VB

Abre ese archivo y copia el contenido. Cree un nuevo archivo, cópielo y cámbiele el nombre

Obtenga un código para usted

Opción explícita

Atenuar a como cadena, b como cadena

' El archivo a copiar es a y el otro es b

Private Sub Command1_Click()

Abrir a para binario como #1

Abrir b para binario como # 2

Atenuar c como cadena

Hacer mientras no sea EOF(1)

Obtener #1, , c

Poner #2, , c

Bucle

End Sub