CopyFile

I have read all the posts about CopyFile()
But it still wont work!
My BMax is a new 1.24 installation on an Intel Mac and I can´t find a solution for this simple function to work!

Whats the magic behind that?
Is CopyStream really the same?
Is it save to copy the whole stream?
Is it as fast as a simple copyfunction?

Someone wrote a solution with RenameFile(src$,dst$) to copy files -- but the same behavior........ I guess that can´t work..

Edit:

I see the code in the filesystem.bmx for the function is really copystream

Function CopyFile( src$,dst$ )
Local in:TStream=ReadStream( src ),ok
If in
Local out:TStream=WriteStream( dst )
If out
Try
CopyStream in,out
ok=True
Catch ex:TStreamWriteException
End Try
out.Close
EndIf
in.Close
EndIf
Return ok
End Function


but why it wont work??

It probably isnt as fast as a native one, but its very portable. So it should work.

are you sure you have proper permissions to access source/destination ?

You could try your native version: save this as "copyfile.m"

int CopyFileEx( char* src, char* dst) {
	NSString* source = [NSString cString:src];
	NSString* destination = [NSString cString:dst];
	NSFileManager* fm = [NSFileManager defaultManager];
	if([fm fileExistsAtPath:source]) {
		if( [fm copyPath:source toPath:destination handler:nil] == YES) return 1;
	}
	return 0;
}

And test it:

Import "copyfile.m"
Extern
	Function CopyFileEx:Int( src$z, dst$z)
EndExtern

Note: i havent tested this, just looked over the docs.

Provide example code and let us know what goes wrong.
Anyway :
Create test1.txt which includes text
Hello World!
save it in the same directory as the following bmx code :

Local a : String = "test1.txt"
Local b : String = "test2.txt" 
CopyFile(a,b)

What happens?

OK tonyg,

test2.txt is created

this will exactly do what it say.

I think my problem are these permissions under osx, espacially my prog will copy a file from the /Volumes/No Name/ fat32 formatted partition for XP on my MAC!

So first I will try to copy the files from the HFS Partion, then I will lok for the code from grable.

I got it !

I thought for the dst$ declination is only the path needed, because the filename is alrady known ;)

Now src and dst has full path and name of the file ( in this case both the same, I need it for backup to another partition) and everything is fine !!!

The error sittin´in front of the computer......

OK , the next problem is, how can I create a progressbar for the copy process?

I copy files and a folder, the folder contains approx 600MB data

my system needs apprx 1 minute to copy this and in this time I saw only the spinning ball (OS-X, I guess with XP the "sand glass" watch)

is there at least one chance to get a progress bar??

This is a simple way of making a progressbar possible.
Its just CopyFile() and CopyStream() slapped together with a callback, note the size of the buffer (4096) will dictate how often the callback gets called.

CopyFileProgress( "infile", "outfile", progress)

Function progress( pos:Int,size:Int)
	Print pos +" < " + size
EndFunction

Function CopyFileProgress:Int( src:String,dst:String, callback(pos:Int,size:Int))
	If Not callback Then Return CopyFile( src,dst)
	Local in:TStream = ReadStream( src), ok:Int
	If in Then
		Local out:TStream = WriteStream( dst )
		If out Then
			Local buf:Byte[4096]
			Try
				While Not in.Eof()
					callback( in.Pos(), in.Size())
					out.WriteBytes buf,in.Read( buf,buf.Length)
				Wend
				callback( in.Pos(), in.Size())
				ok = True
			Catch ex:TStreamWriteException
			EndTry
			out.Close()
		EndIf
		in.Close()
	EndIf
	Return ok
EndFunction

Thanks a lot grable, I will try this later.

This is maybe a little comlicated for that what I want.
My prog is for a easy daily Backup of my business-programm in my office.
It´s only copy some files and a folder.
So for an easier and simplier progress-bar I will copy the contents of the folder file for file and show the activity, it´s only for my mind to see what happens...

Hello again, it´s eastertime and space for me to work on my project.

Sorry grable, I dont understand this code...

Please axplain it if You have time.

A Function in a function (progress)?
CopyFileProgress( "infile", "outfile", progress)

and another function in a function??
callback(pos:Int,size:Int)

I havent any idea how this work

I have done it with all files copy within the folder, but the gui wont updatet and I see the copied files only if the job has done, after 2 minutes ( approx 800 files, 550 MB in this folder)
Thats the same behaviour as I have with copyfolder, I cant see anything.
the next problem is to make shure, that all subfolders and subsubfolders are copied, so I have to modify my listaddlast-Code, i have forgotten the subfolders :)
ok thats no hard work...

but

Why the gui becomes no priority bitween my Loop ???

For Local alleFiles:TFiles = EachIn filelist

if it dont work too to show something bitween these loop, I can make it again with the easy-Command coyfolder

and wait until it ends

or I will do it with the mysterious callback function...

Hello again, it´s eastertime and space for me to work on my project.

Sorry grable, I dont understand this code...

Please axplain it if You have time.

A Function in a function (progress)?
CopyFileProgress( "infile", "outfile", progress)

and another function in a function??
callback(pos:Int,size:Int)

I havent any idea how this work

I have done it with all files copy within the folder, but the gui wont updatet and I see the copied files only if the job has done, after 2 minutes ( approx 800 files, 550 MB in this folder)
Thats the same behaviour as I have with copyfolder, I cant see anything.
the next problem is to make shure, that all subfolders and subsubfolders are copied, so I have to modify my listaddlast-Code, i have forgotten the subfolders :)
ok thats no hard work...

but

Why the gui becomes no priority bitween my Loop ???

For Local alleFiles:TFiles = EachIn filelist

if it dont work too to show something bitween these loop, I can make it again with the easy-Command coyfolder

and wait until it ends

or I will do it with the mysterious callback function...

by the way how do You separate the code from the text in the posts?????

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Deletet because of double posting

Delete because of double posting