文件磁盘相关函数[1]-判断文件(包括隐藏文件)是否存在 FileExists

其实我可以把文件磁盘相关的函数在这里一篇就可以罗列完，

就像万一老师那样（不是说老师坏话），但我觉得那样整篇文章就太枯燥了，

而且因为篇幅太大网页浏览起来会卡，所以我决定从此以后就不搞太大的

篇幅了，同时还加入了图片显得更动感些，呵呵。下面是代码：

procedure TForm1.N5Click(Sender: TObject); //判断文件(包括隐藏文件)是否存在 FileExists
var
  f:string;
begin
  f := 'f:\test\test.txt'; //要判断的文件
  if FileExists(f) then    //如果文件存在，则..否则..
  begin
    if MessageBox(0,'是否打开？','文件存在',MB_YESNO) = IDYES then
    begin
      Memo1.Lines.LoadFromFile(f);  //打开文件
      ShowMessage('文件已打开');
    end;
  end
  else
    ShowMessage('文件不存在');
end;

 

下面是对函数FileExists的分析：

function FileExists(const FileName: string //文件名
         ): Boolean;  //返回布尔值，文件存在返回true,不存在返回false

转载于:https://www.cnblogs.com/keyvip/archive/2010/11/02/1867297.html