在delphi中 如何保存一个文件夹

Question

文件需要实现能够直接将整个文件夹另存到电脑上  怎么写 这个方法

Answer 1

function CopyDir(Handle:HWND;SrcDir,DesDir:String):Boolean;//文件夹复制函数
var
ss: TSHFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(SrcDir) then Exit;
  FillChar(ss, SizeOf(ss), 0);
  ss.Wnd := Handle;
  SS.pFrom :=PChar(SrcDir + #0);
  ss.pTo := PChar(DesDir + #0);
  ss.wFunc := FO_COPY;
  ss.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  Result := SHFileOperation(ss) = 0;
end;
[code=Delphi(Pascal)]
用法:procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyDir(Form1.Handle,'源文件夹','目标文件夹');
end;
[/code]