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

来源：互联网发布：amtemu mac使用方法编辑：程序博客网时间：2024/05/16 05:15

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;

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

0 0