文件夹的创建与删除

最新推荐文章于 2025-05-05 10:51:08 发布

原创最新推荐文章于 2025-05-05 10:51:08 发布 · 568 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var
  search:TSearchRec;
  mulu:string;
  found:Integer;
begin
  mulu:=ExtractFilePath(ParamStr(0));//取程序所在目录为当前根目录
  ComboBox1.Text:=mulu;

   if FindFirst(mulu+'*.*' ,16,search)=0 then
   begin
    ComboBox1.Items.Add(mulu+'*.*' + search.Name);
    while FindNext(search)=0 do
    begin
      if (search.Attr=16) and (search.Name<>'.') and (search.Name<>'..') then
      begin
        ComboBox1.Items.Add(mulu + search.Name);
      end;
    end;
   end;
   FindClose(search);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DirectoryExists(ComboBox1.Text) then //判断文件夹是否存在
  begin
    ShowMessage('文件夹已存在');
  end
  else
  begin
    if Application.MessageBox(PChar('是否创建文件夹'+ ComboBox1.Text),'提示',
    MB_YESNO+ MB_ICONQUESTION)= idyes then
    begin
      ForceDirectories(ComboBox1.Text); //创建文件夹
      ComboBox1.ItemIndex:=0;
    end;
  end;
  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if DirectoryExists(ComboBox1.Text) then
  begin
    if Application.MessageBox('确认删除该文件夹吗？','提示',MB_YESNO + MB_ICONQUESTION)
    =idyes then
    begin
     RmDir(ComboBox1.Text);
     ComboBox1.DeleteSelected;
     ComboBox1.ItemIndex:=0;
    end;
  end;
end;

end.