file - 将一个文件夹的内容 move 到另一个文件夹

Question

使用 Delphi 7，我需要将所有内容(文件、文件夹和子文件夹)从一个文件夹 move 到另一个文件夹。经过一番研究，SHFileOpStruct 似乎是最好的选择。这是我到目前为止所得到的:

function MoveDir(SrcDir, DstDir: string): Boolean;
var
  FOS: TSHFileOpStruct;
begin
  ZeroMemory(@FOS, SizeOf(FOS));
  with FOS do
  begin
    wFunc  := FO_MOVE; // FO_COPY;
    fFlags := FOF_FILESONLY or
      FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS;
    pFrom  := PChar(SrcDir + #0);
    pTo    := PChar(DstDir + #0);
  end;
  Result := (SHFileOperation(FOS) = 0);
end;

但是使用此功能时，整个文件夹都会被 move 到目标位置，而不仅仅是其内容。例如，如果我使用 MoveDir('c:\test', 'd:\test') 我会得到 d:\teste\teste。

我已经尝试更改下面的这一行，它在复制文件(FO_COPY)时有效，但在 move 时无效。

pFrom  := PChar(SrcDir + '\*.*' + #0);

请问有人可以帮我解决这个问题吗？如果我可以在不逐个文件、逐个文件夹 move 文件的情况下完成此操作，那就太好了...

谢谢!!

Answer 1

您应该使用第二个版本，不带 FOF_FILESONLY 标志:

function MoveDir(SrcDir, DstDir: string): Boolean;
var
  FOS: TSHFileOpStruct;
begin
  ZeroMemory(@FOS, SizeOf(FOS));
  with FOS do
  begin
    wFunc  := FO_MOVE; // FO_COPY;
    fFlags := FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS;
    pFrom  := PChar(IncludeTrailingPathDelimiter(SrcDir) + '*.*'#0);
    pTo    := PChar(DstDir + #0);
  end;
  Result := (SHFileOperation(FOS) = 0);
end;