文件磁盘相关函数[6]-判断文件夹是否存在 DirectoryExists

看上图，点击按钮‘罗列’后，MEMO显示了包括隐藏文件，系统文件，

以及文件夹(没有后缀的都是文件夹)，代码如下：

procedure TForm1.N11Click(Sender: TObject); //判断文件夹是否存在 DirectoryExists
var
  dir: string;
begin
  dir := \'f:\test\'; //要判断的文件夹
  if DirectoryExists(dir) then //如果文件夹存在，则..否则..
  begin
    ShowMessage(\'文件夹存在\');
  end
  else
    ShowMessage(\'文件夹不存在\');
end;

 

下面进行函数分析：

function DirectoryExists(const Directory: string //文件夹路径的字符串，如\'f:\test\'，不含\'\\'
                        ): Boolean;    //返回布尔值，成功则true，否则false