Question

Delphi判断文件夹是否存在，不存在就创建一个

Answer 1

delphi 判断文件夹目录可以使用 DirectoryExists 函数，而创建目录可以使用 CreateDir 和 ForceDirectories 函数。

CreateDir 和 ForceDirectories 函数都可以创建文件夹，两者的区别在于：

ForceDirectories 创建多级目录，父目录不必存在；而 CreateDir 只能创建最后的一级目录，父目录必须存在。举例说明：

如果需要建立 d:\path1\subPath1，那么 CreateDir 函数只能先建立 d:\path1（或必须该路径存在），再建立d:\path1\subPath1。而用 ForceDirectories 函数可以一次性建立。

示例代码如下：

procedure TForm1.Button1Click(Sender: TObject);    
begin    
  if not DirectoryExists(Edit1.Text) then //判断目录是否存在    
  try    
    begin    
      ForceDirectories(Edit1.Text);   //创建目录    
    end;    
  finally    
    raise Exception.Create('无法建立路径： '+Edit1.Text);    
  end;         
end;