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

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;


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

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页