delphi 创建多级目录

本文整理自网络，侵删。

 
function MyCreateDir(const Path: String): Boolean;
begin
  // 建目录
  if DirectoryExists(Path) then
    Result := True
  else
    Result := ForceDirectories(Path);
end;
 

相关阅读 >>

Delphi twebbrowser 用法

Delphi tdsauthenticationmanager的用法

Delphi 移动桌面图标

Delphi 自带大小写转换

Delphi fdconnection1 获取数据库总记录数

Delphi label设置为背景透明

Delphi 基础计算两数之合

Delphi 判断字符串是否包含汉字，正则版和非正则版

Delphi删除整个目录及目录下的文件

Delphi tlist性能注意事项

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 创建多级目录