I'm using the API function to copy a file, but the problem is that it doesn't copy the file at all.

The goal is to create a folder (sourcecode completed), then copy a file supplied in the same directory as the exe resides in to the same parent dir that the folder was created in and rename the file to the folder adding an .info extension.

Yes I've tried as hard as I can to do this, but nothing seams to happen.

So any help would be highly aprechiated.

Here is the form paint procedure that copies the directory if the curdir string is empty:

if curdir = '' then curdir := form2.DirectoryListBox1.Directory;

This is the copy code I'm using:

Copyfile(pchar(Curdir+'Empty.info'),pchar(form2.directorylistbox1.directory+drawer.text));

Should copy the file, but either it generates a file not found or copies the files somewhere I don't have a clue about.

: I'm using the API function to copy a file, but the problem is that it doesn't copy the file at all.
:
: The goal is to create a folder (sourcecode completed), then copy a file supplied in the same directory as the exe resides in to the same parent dir that the folder was created in and rename the file to the folder adding an .info extension.
:
: Yes I've tried as hard as I can to do this, but nothing seams to happen.
:
: So any help would be highly aprechiated.
:
: Here is the form paint procedure that copies the directory if the curdir string is empty:
:
:

: if curdir = '' then curdir := form2.DirectoryListBox1.Directory;
: 

:
: This is the copy code I'm using:
:
:

: Copyfile(pchar(Curdir+'Empty.info'),pchar(form2.directorylistbox1.directory+drawer.text));
: 

:
: Should copy the file, but either it generates a file not found or copies the files somewhere I don't have a clue about.
:
Sounds like the values for the CurDir and form2.directorylistbox1.directory are not what you expect them to be. Check wether or not they contain trailing backslashes, that they don't contain "weird" characters, which are illegal in file paths, etc.

: : I'm using the API function to copy a file, but the problem is that it doesn't copy the file at all.
: :
: : The goal is to create a folder (sourcecode completed), then copy a file supplied in the same directory as the exe resides in to the same parent dir that the folder was created in and rename the file to the folder adding an .info extension.
: :
: : Yes I've tried as hard as I can to do this, but nothing seams to happen.
: :
: : So any help would be highly aprechiated.
: :
: : Here is the form paint procedure that copies the directory if the curdir string is empty:
: :
: :

: : if curdir = '' then curdir := form2.DirectoryListBox1.Directory;
: : 

: :
: : This is the copy code I'm using:
: :
: :

: : Copyfile(pchar(Curdir+'Empty.info'),pchar(form2.directorylistbox1.directory+drawer.text));
: : 

: :
: : Should copy the file, but either it generates a file not found or copies the files somewhere I don't have a clue about.
: :
: Sounds like the values for the CurDir and form2.directorylistbox1.directory are not what you expect them to be. Check wether or not they contain trailing backslashes, that they don't contain "weird" characters, which are illegal in file paths, etc.
:
I skipped the curdir parameter and added an extra directorylistbox to copy the directory from. Copy process completed.

Thanks for your help!