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

引用单元：SysUtils

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

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

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

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

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

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