delphi - delphi XE2中如何检查目录是否存在？

Question

我想创建一个目录，例如TestDir，但前提是该目录不存在。我找不到检查该目录是否存在的方法。

我正在使用以下函数来创建目录。

CreateDir('TestDir')

如何确保仅当 TestDir 不存在时才使用此 CreateDir 函数？

Answer 1

在Delphi XE2中，您可以使用IOUtils单元 TDirectory 记录，如下所示:

uses IOUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not TDirectory.Exists('test') then
    TDirectory.CreateDirectory('test');

在Delphi7中，您可以使用SysUtils单元中的DirectoryExists函数:

uses SysUtils, Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not DirectoryExists('test') then
    CreateDir('test');