Delphi编程基础学习系列—创建与删除文件夹

我以前刚开始学习Delphi编程时做的笔记，适合Delphi初学者。

Forcedirectories函数用于创建一个DIR参数指定的但系统中不存在的文件夹；
Rmidir函数用于删除一个参数指定的子目录。

//创建文件夹
Procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if(directoryexists(edit1.text))then
showmessage('文件夹已经存在！')
else
begin
if application.MessageBox(pchar('是否创建文件夹'+edit1.text),'操作提示',mb_yesno)=mryes then
begin
forcedirectories(edit1.text);
end;
end;
end;

//删除文件夹
Procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if (directoryexists(edit1.text)) then
  begin
  if application.MessageBox(pchar('是否删除文件夹'+edit1.text),'操作提示',mb_yesno)=mryes then
    begin
    rmdir (edit1.text);
    edit1.clear;
    end;
  end; 


运行结果