文件磁盘相关函数[7]-建立文件夹 CreateDir; CreateDirectory; ForceDirectories

procedure TForm1.N12Click(Sender: TObject);
//建立文件夹 CreateDir; CreateDirectory; ForceDirectories
var
dir: string;
Bool: Boolean;
begin
dir := 'f:\test';
if not DirectoryExists(dir) then //先判断文件夹在不在，不在再创建
Bool:=CreateDir(dir);  //返回 Boolean
if Bool then
ShowMessage('建立文件夹成功')
else
ShowMessage('建立文件夹失败');

//也可以直接用API:
//CreateDirectory(PChar(dir),nil);  //返回 Boolean

//如果缺少上层目录将自动补齐:
//dir := 'f:\test\CodeGear\Delphi\巅枫';
//ForceDirectories(dir);  //返回 Boolean
end;

function CreateDir(const Dir: string //文件夹路径的字符串，如'f:\test'，不含'\'
): Boolean;   //返回布尔值，成功则true，否则false