create() ;Erstellt 10MB grosse Datei
copy_test() ;Kopiert diese 50Mal mit CopyFile und mit CopyFile2 
; CopyFile2 = eigenes Copy, das unterbrochen werden könnte


Function copy_test()
test_anz=50
m=MilliSecs()
For i=1 To test_anz
	CopyFile "test1.dat", "test1-copy"+i+".dat"
Next
n=MilliSecs()
DebugLog "Average per copy: "+(Float(n-m)/test_anz)+" ms"

For i=1 To test_anz
	DeleteFile "test1-copy"+i+".dat"
Next

m=MilliSecs()
For i=1 To test_anz
	CopyFile2 "test1.dat", "test1-copy"+i+".dat"
Next
n=MilliSecs()
DebugLog "Average per copy with CopyFile2: "+(Float(n-m)/test_anz)+" ms"

For i=1 To test_anz
	DeleteFile "test1-copy"+i+".dat"
Next
End Function



Function CopyFile2(x$,y$)
;DebugLog "start "+x$+","+y$
blocksize=5		;MB

file=ReadFile(x$)
;DebugLog "file1:"+file
If file=0 Then Return 0
file2=WriteFile(y$)
bank=CreateBank(blocksize*1024*1024)

copied=0
total=FileSize(x$)
Repeat
	;DebugLog "offset: "+offset
	amount=ReadBytes(bank,file,0,blocksize*1024*1024)
	WriteBytes bank,file2,0,amount
	copied=copiedset+amount
	If amount=0 Then Exit
Forever

CloseFile file
CloseFile file2
FreeBank bank
End Function


Function create(size=1024*1024*10)
file=WriteFile("test1.dat")
SeekFile file,size-1
WriteByte file,0
CloseFile file
End Function