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) 乱高   //判断文件夹（路径）是否存在

var

AFilePath : string

begin

AFilePath := ExtractFilePath(ParamStr(0)) //取当丛塌耐前程序运行衫并目录

AFilePath := AFilePath + 'c' //加上渗春C文件夹

if DirectoryExists(AFilePath) then

ShowMessage('目录存在')

else ShowMessage('目录不存在')

end

---