[konverteri]

Otsisin mitu nädalat ja ei leidnud, palun aidake mind, et asi mulle selge oleks.
Private Sub Command1_Click()
Dim SF AS String, DF AS String
Dim TMP AS Byte

SF =FreeFile
Open "C:\notepad2\test10.txt" For Binary AS #SF
DF =FreeFile
Open "C:\notepad2\test11.txt" For Binary AS #DF

Do Until EOF(SF)
Get #SF, , TMP
Put #DF, , TMP
Loop
Close #SF
Close DF
End Sub

Allikas: www.vbforums.com/showthread.php?412514-Binary-copy-file-

Ja küsimused. Mis on Binary, mis on TMP ja miks close juures ei kasutata DF juures # ni?

[alfreedo]

konverteri.

Dim TMP AS Byte - siin sa deklareerid kasutatavate andmete tüübiks Byte.
Andmetüüp määrab andmeobjekti suuruse, omadused ning temaga sooritatavad võimalikud tegevused.
4+4=8 aga neli+neli=error!
Igal tüübil on lõplik väärtuste hulk.
Byte s.t positiivseid arve 0..255ni.

... For Binary AS #DF
Binary s.t digitalne-numbriline, andmete pikkus pole määratud - andmed võivad olla ka pildi või heli kujul.

TMP on siin faili sisu.

Ka Close juures peaks kasutama #
See, et kood töötab (pole antud koodi ise küll testinud) ei tähenda, et ta ei või olla vigane.Viga pole oluline.

Pole eriline sõnaseadja, kuid loodan, et said aru mõttest.
Pole ka VB6-t kunagi kasutanud aga Exceli VBA baasil mälu järgi oletan.
Parandage, kui eksin.