Sub CopyFile(src As String, dst As String, TotalSize, Percent As Integer)
Path1$ = src
path2$ = dst
If Not FileExist(Path1$) Then PRINT "File not found: " + Path1$: GoTo 1101
If FileExist(path2$) Then Kill path2$
total = TotalSize
Open Path1$ For Binary As #1
Open path2$ For Binary As #2
Per1 = Percent
incc = (LOF(1) / total) * 100
Dim ff As String * 10000
For Q = 1 To LOF(1)
Percent = ((Q / LOF(1)) * incc) + Per1
If Percent > lstper Then lstper = Percent
Get #1, , ff
If Q + Len(ff) > LOF(1) Then gg$ = Mid$(ff$, 1, (LOF(1) - Q) + 1): Put #2, , gg$ Else Put #2, , ff
Q = Q + Len(ff$) - 1
Next Q
1101 Close 1, 2
End Sub