创建文件夹的函数及检查是否存在某文件夹的函数？（手册上没有）

Question

创建可用：ForceDirectories
检查可用：DirectoryExists

Answer 1

if not DirectoryExists('c:\temp') then
    if not CreateDir('C:\temp') then
    raise Exception.Create('Cannot create c:\temp');

Answer 2

SetCurrentDir函数是不能创建不存在的文件夹

Answer 3

procedure TForm1.Button1Click(Sender: TObject);var
  Dir: string;
begin  Dir := 'C:\APPS\SALES\LOCAL';//这个目录可以自己定义  if DirectoryExists(Dir) then
    Label1.Caption := Dir + ' was created'end;

Answer 4

关于创建的用法
unit Unit1;interfaceuses
  Windows, Messages, filectrl ,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;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);
var
  dest:string;
begin
  dest:='f:/dd';
  ForceDirectories(dest);end;end.