Copy file

BlitzMax Forums/BlitzMax Programming/Copy file

Perturbatio
 #1
in fact, I'm feeling nice:
Function CopyFile:Int(SourceFile:String, DestinationFile:String, AutoReplace=False)
	
	If FileType(SourceFile) <> 1 Then Return False
	If FileType(DestinationFile) = 1 And Not AutoReplace Then Return False
	
	Local SourceStream:TStream = OpenStream(SourceFile,True,False)
	Local DestStream:TStream = OpenStream(DestinationFile,False,True)
	
	CopyStream(SourceStream, DestStream)
	CloseStream(SourceStream)
	CloseStream(DestStream)
	
	Return True
End Function