使用ForceDirectories('指定文件夹名')
if MessageDlg('文件夹 "'+Edit1.Text+'" 不存在,创建吗?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
if ForceDirectories(EDDes.Text)=False then
ShowMessage('创建文件夹 '+Edit1.Text+' 失败,请检查后重新创建。');
试一下吧
if MessageDlg('文件夹 "'+Edit1.Text+'" 不存在,创建吗?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
if ForceDirectories(EDDes.Text)=False then
ShowMessage('创建文件夹 '+Edit1.Text+' 失败,请检查后重新创建。');
试一下吧
if MessageDlg('文件夹 "'+Edit1.Text+'" 不存在,创建吗?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
if ForceDirectories(Edit1.Text)=False then
ShowMessage('创建文件夹 '+Edit1.Text+' 失败,请检查后重新创建。');
试一下吧
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,filectrl ;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
ForceDirectories('c:\111');//创建
end;end.