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.
文件夹的创建与删除
最新推荐文章于 2019-10-14 19:39:09 发布