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

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

if FileExists('路径') then  MessageBox(0,'存在','提示',MB_OK)    //判断文件是否存在

if DirectoryExists('路径') then  MessageBox(0,'存在','提示',MB_OK)    //判断文件夹（路径）是否存在

---