文件磁盘相关函数[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