谁有直接创建多级目录的例子或者函数

Question

比如直接创建目录 c:\dir1\dir2\dir3\dir4 目录
而并不要求 c:\dir1\dir2\dir3目录一定存在

Answer 1

uses
  FileCtrl..............
var
  dirstr : =string;
begin
  dirstr:='c:\aa\bb\cc\dd';
  Try
    ForeDirectories(edit1.Text);
  except
   showmessage('失败');
  end;
End;
试试.

Answer 2

uses
  FileCtrl..............
var
  dirstr : =string;
begin
  dirstr:='c:\aa\bb\cc\dd';
if ForeDirectories(edit1.Text) then
showmessage('成功');
  
else
   showmessage('失败');
  end;
End;

Answer 3

if not DirectoryExists(FileDir + 'Rev') then
    ForceDirectories(FileDir + 'Rev');

Answer 4

if Not DirectoryExists('C:\1\') then
ForceDirectories('c:\1);

Answer 5

uses
  FileCtrl..............
var
  dirstr : =string;
begin
  dirstr:='c:\aa\bb\cc\dd';
  Try
    if Not DirectoryExists(dirstr) then 
    ForeDirectories(dirstr);
  except
   showmessage('失败');
  end;
End;