用DirectoryExists和FileExists判断指定路径下是否存在指定的文件夹或文件

　

directory.exists

1、现在自己要校验的位置建立文件和文件夹。

2、拖个按钮出来，并双击写入一下代码。

procedure TForm1.btn_copyClick(Sender: TObject);
var
  ZkyStrAddDirectory:string;//定义一个字符串，可以用来放文件所在的地址
  ZkyStrAddFile:string;//定义一个字符串，可以用来放文件坐在的地址
begin
  ZkyStrAddDirectory:=GetCurrentDir+'\test';//将字符串指定为 在程序exe所在目录下test文件夹的路径
  ZkyStrAddFile:=GetCurrentDir+'\test\test_1.txt';//将字符串指定为 在程序exe所在目录下test文件夹内test_1.txt文件的路径

  //-------------------------------------------------
  //Directoryexists('<路径>');
  //该语句只能用于判断文件夹是否存在，不能用于判断文件是否存在。
  //-------------------------------------------------
  if not DirectoryExists('D:\test') then
  begin
    Showmessage('不存在！D盘不存在test文件夹');//如果该文件夹不存在，则提示不存在
  end
  else
  begin
    ShowMessage('存在！D盘存在test文件夹');
  end;

  if DirectoryExists(PChar(ZkyStrAddDirectory)) then
  begin
    ShowMessage('存在！exe所在目录下有test文件夹');//如果该文件夹存在，则提示存在
  end
  else
  begin
    ShowMessage('不存在！exe所在目录下没有test文件夹');
  end;

  //-------------------------------------------------
  //FileExists('<路径>');
  //该语句只能用于判断文件是否存在，不能用于判断文件夹是否存在。
  //-------------------------------------------------
  if FileExists('D:\test.txt') then
  begin
    ShowMessage('存在！D盘下有test.txt文件');//如果该文件存在，则提示存在
  end
  else
  begin
    ShowMessage('不存在！D盘不存在test.txt文件');
  end;

  if not FileExists(PChar(ZkyStrAddFile)) then
  begin
    ShowMessage('不存在！exe所在目录下的test文件夹内没有test.txt文件');//如果该文件不存在，则提示不存在
  end
  else
  begin
    ShowMessage('存在！exe所在目录下的test文件夹内有test.txt文件');//如果该文件夹存在，则提示存在
  end;
  end;

运行后，指定路径下的指定文件或文件夹存在，则提示存在，反之提示不存在。

相关阅读

SEO优化时重复采集是否会被罚

　重复内容是SEO优化行业一直关注的问题，重复内容到底会不会被搜索引擎惩罚，这是一个被经常讨论的话题，百度通过对比来对内容采集站

怎么分辨网站是否成功

　什么样的网站才算一个成功的网站呢?每一个做过优化的站长们或许都考虑过这样的一个问题，到底什么样的网站才算是一个成功的网站，

怎么判断网站流量不是刷来的

经常有小伙伴们迷惑，别人的网站就一个模板网站，居然有那么多的流量，而且还是新站，所以百思不得其解。

怎么判断一个网站的用户体验好坏

百度搜索引擎的算法是比较严谨而机密的，从程序的角度来分析，用户体验不是一种感觉，而是一种数据，那么百度如何获取网站的用户体验数据

删除旧内容是否影响网站排名

　这里有一个问题，垂直行业的内容资源库是有限的，我们不可能长期持续有价值的新内容长期输出，因此，SEO人员开始研究“以旧换新”或者