创建多级目录

function MyCreateDir(const Path: String): Boolean;
begin
  // 建目录
  if DirectoryExists(Path) then
    Result := True
  else
    Result := ForceDirectories(Path);
end;
posted @ 2023-09-19 14:27  lucken  阅读(48)  评论(0)  编辑  收藏  举报