• Home
 · 
• Files/File Controls/Input/Output
 · 
• Successfully Open a Binary File, Read its Contents, and Output it as a Binary File, 10 Lines of Cod

Successfully Open a Binary File, Read its Contents, and Output it as a Binary File, 10 Lines of Cod

Successfully Open a Binary File, Read its Contents, and Output it as a Binary File, 10 Lines of Code (not including Comments).

Rate Successfully Open a Binary File, Read its Contents, and Output it as a Binary File, 10 Lines of Cod

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim s As String
'--------------
Open "c:\original.exe" For Binary As 1
Open "c:\clone.exe" For Binary As 2
'-------------------------------------
l = LOF(1) 'Length of File
s = String(l, vbNullChar)
'-------------------------
Get 1, , s
Put 2, , s
'---------
Close 1
Close 2