看上图，点击按钮‘罗列’后，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
版权声明：本文为keyvip原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/keyvip/archive/2010/11/02/1867342.html