初学delphi,问一个简单的问题。

Question

FileExists(FilSearch('folder.htt','c:\;d:\'))

Answer 1

呵呵，好好看看！！
*******************************************************************
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    if FileExists(FileSearch('folder.htt','c:\;d:\')) then
    begin
        if DeleteFile(FileSearch('folder.htt','c:\;d:\'))then
            ShowMessage('完全铲除！')
    else
         ShowMessage('没有！')
    end
    else
        ShowMessage('未发现！');
end;
*******************************************************************
可以结账了吧！！