Delphi檔案夾的操作

標籤：des   檔案   io   cti   re   c   

/// <remarks>
/// 重新命名檔案夾
/// </remarks>
function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;
var
  pDirOperate: TSHFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(SourceDirectort) then Exit;
  FillChar(pDirOperate, SizeOf(pDirOperate), 0);
  pDirOperate.Wnd := 0;
  pDirOperate.pFrom :=PChar(SourceDirectort + #0);
  pDirOperate.pTo := PChar(DestinationDirectort + #0);

 

  // FO_RENAME：重新命名；FO_DELETE：刪除檔案夾（空檔案夾和非空檔案夾都可以）

  // FO_COPY：複製；FO_MOVE：剪下
  pDirOperate.wFunc := FO_RENAME;

  pDirOperate.fFlags := FOF_RENAMEONCOLLISION;
  Result := SHFileOperation(pDirOperate) = 0;
end;