PHP CreateDir 函数学习

CreateDir 函数学习,CreateDir 函数新建一个目录。如果创建成功,则返回True;否则返回False。函数原型如下:
1.CreateDir 函数
新建一个目录。如果创建成功,则返回True;否则返回False。函数原型如下:
function CreateDir(const Dir: string): Boolean;
例如要在C 盘根目录下建立一个Tem 目录可以编写如下代码:
CreateDir(’C:\Tem’);
如果想在“C:\Acc”目录下建立一个“A”目录,而“C:\Acc”目录不存在,以下的代码将不能创建“A”目录。
CreateDir(’C:\Acc\A’);
ChDir 过程
改变当前的目录。如果在指定路径中包含有驱动器号(盘符),则相应地改变当前的驱动器。过程原型如下:
procedure ChDir(S: string);
例如将当前目录更改为“C:\Windows”目录,可以这样写:
ChDir(’C:\Windows’);
3.DirectoryExists 函数
检测指定的目录是否存在。如果存在,函数则返回True;否则,返回False。函数原型如下:
function DirectoryExists(Name: string): Boolean;
如果在参数Name 中指定的不是绝对路径,则使用相对路径,默认在当前目录中进行查询。



4.ForceDirectories 函数
创建指定的目录。通常在创建一个目录的时候,其父级目录必须存在。但是使用ForceDirectories创建目录的时候就没有这个限制,可以将所需的所有目录一次创建。如果创建成功,则函数返回True;
如果有任何一个目录创建失败,则返回False。函数原型如下:
function ForceDirectories(Dir: string): Boolean;
下面这段示例代码对ForceDirectories 函数和DirectoryExists 函数进行了说明。
uses FileCtrl; //必须在uses 语句中增加这个说明
...
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string; //目录名称
begin
Dir:=’C:\Samples\Capture\Photo’; //一次创建3 级目录
ForceDirectories(Dir);
if DirectoryExists(Dir) then
MessageDlg(Dir+’已经存在!’,mtInformation, [mbOK], 0);
end;



procedure TForm1.Button1Click(Sender: TObject);
var
str_dir:string;
begin
  str_dir := 'c:\PTScore1';//无法同时创建子目录
  if not DirectoryExists(str_dir) then
    if not CreateDir(str_dir) then
     raise Exception.Create('Cannot create '+str_dir);

  str_dir := 'c:\PTScore2\1\2';
  if not DirectoryExists(str_dir) then //包括其子目录一块创建
    if not ForceDirectories(str_dir) then
     raise Exception.Create('Cannot create '+str_dir);

end;

发表评论

点击我更换图片
友情连接:笔书奇小说 六一宝妈网