函数功能及说明(简介 结构)

相关(ForceDirectories和CreateDir的区别 CreateDir 建立文件夹路径)

函数功能及说明

简介

有时候为了工作需要，或者要整理自己的电脑，需要手工创建好多不同的目录，比较麻烦。现在有了CreateDir批量目录生成器，这个绿色的免费的小软件，无需安装便可直接使用，可以帮助你一次性大批量生成你所想要的目录，非常方便。

结构

首部 function CreateDir(const Dir: string): Boolean; $[SysUtils.pas

功能 返回创建目录是否成功

说明 不支持多级目录;已经存在则返回False

参考 function Windows.CreateDirectory

例子 CheckBox1.Checked := CreateDir(Edit1.Text);

相关

ForceDirectories和CreateDir的区别

Delphi的SysUtils.ForceDirectories创建多级目录，父目录不必存在。而SysUtils.CreateDir只创建最后一级目录，父目录必须存在。相当于Java中File中的mkdirs和mkdir的区别。

CreateDir 建立文件夹路径

//建立文件夹 CreateDir; CreateDirectory; ForceDirectories

var

dir: string;

begin

dir := 'c:\\temp\\delphi';

if not DirectoryExists(dir) then

CreateDir(dir); //返回 Boolean

//也可以直接用API:

CreateDirectory(PChar(dir),nil); //返回 Boolean

//如果缺少上层目录将自动补齐:

dir := 'c:\\temp\\CodeGear\\Delphi\\2007\\万一';

ForceDirectories(dir); //返回 Boolean

end;

==================

function CreateDir(const Dir: string): Boolean;

begin

{$IFDEF MSWINDOWS}

Result := CreateDirectory(PChar(Dir), nil);

{$ENDIF}

{$IFDEF LINUX}

Result := __mkdir(PChar(Dir), mode_t(-1)) = 0;

{$ENDIF}

end;