delphi 中 if 的用发！高手救急！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/04 14:55:14
程序运行的时候自动检查和他同目录下面有没有一个叫baidu的文件夹．如果有不创建．相反没有就自动创建！！！
高手多谢了！！！！！！！

procedure TForm1.Button1Click(Sender: TObject);
var
Dir:String;
begin
//
Dir:=ExtractFilePath(Application.ExeName)+'baidu';
if not DirectoryExists(Dir) then
begin
if CreateDir(Dir) then ShowMessage('不存在，所以创建了一个');
end
else
ShowMessage('文件夹存在!');
end;