怎么在程序运行的目录中新建一个目录，并且拷贝一个文件到新建的文件夹中？

Question

我看了半天帮助，能用createdirector()建一个目录。然后用一个OpenDilog找到一个文件，拷贝到刚建的目录下。

Answer 1

CreateDirectory('C:\aa',nil);
  CopyFile('C:\aa.txt','C:\aa\aa.txt',True);

Answer 2

if not directoryexists(xxx) then
    ForceDirectories(ExtractFilePath(Application.ExeName)+xxxx);

Answer 3

var
  dirpath: String;
  filename: String;
  filehandle: Integer;
begin
  dirpath:= 'xxxx';
  filename:= 'test.txt';
  if CreateDirectory(dirPath) then
    if FileExists(filename) then
       CopyFile(filename,dirpath,true)
    else exit
  else exit;
end;