CreateDir

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;