Переместить всё содиржимое папки

[bulldog5293]

Можно ли так сделать, просто есть способ перемещения по 1 файлу зная его путь

begin
if not MoveFile('от куда','куда')
then ShowMessage('Произошла ошибка при перемещении');

а можно ли сразу всё содиржимое перенести в указанную папку?

[_SERGEYX_]

Это из DelphiWorld. В работе не проверял...

uses 
  ShellApi; 


function MoveDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_MOVE; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end;

[ArtGrek]

uses ... ShellApi;

procedure Tform1.CopyAFile(const Source, Dest: String);
var
  FileOp: TSHFileOpStruct;
  SS, DD: String;
begin
  SS := Source + #0;
  DD := Dest + #0;
  with FileOp do
  begin
    Wnd := 0;
    wFunc := FO_COPY;
    pFrom := PChar(SS);
    pTo := PChar(DD);
    fFlags := 0;
    hNameMappings := nil;
    lpszProgressTitle := nil
  end;
  SHFileOperation(FileOp)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyAFile('C:\Users\ArtGrek\Desktop\(14)','C:\(14)');
end;