[原创]Delphi 文件函数：ForceDirectories() 函数和 CreateDir函数

引用单元：SysUtils

function ForceDirectories(Dir: string): Boolean;    //创建多级目录  父目录不必存在   （Force 有暴力、强制的意思）       

function CreateDir(const Dir: string): Boolean;   //创建一级目录  父目录必需存在

 

例如：D:文档计 算 机我的delphi我的制作

不存在的文件目录有 ：计 算 机我的delphi我的制作   

 

ForceDirectories 函数 会同时创建这三个目录  计 算 机、我的delphi、我的制作   

CreateDir 函数 如果不存在  计算机 这个目录，则返回创建 [我的制作] 文件夹失败