Daniel.
For example 'Shell "Copy FromFile ToFile" '
or:
Open InFile$ For Binary Access Read Shared as #1
Open OutFile$ For Binary Access Read Write Lock Read Write as #2
Long&=Lof(1)
A$=Space$(8192)
For I=1 to Long&\8192
Get #1,,A$
Put #2,,A$
Next
A$=Space$(Long& Mod 8192)
If Len(A$)>0 Then
Get #1,,A$
Put #2,,A$
End If
Close #1
Close #2