用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;