一次性建立多级目录

Source: http://www.chami.com/tips/delphi/103196D.html

可以利用ForceDirectories函数，也可以利用下面的函数哦，实际上两个人的原理是一样的。

program MkDirMul;

uses

 SysUtils, FileCtrl;

procedure MkDirMulti(sPath : string);

begin

 if('\' = sPath[Length(sPath)])then

 begin

   sPath := Copy(sPath, 1,

                 Length(sPath)-1);

 end;

 if( ( Length( sPath ) < 3 ) or

     FileCtrl.DirectoryExists(

       sPath) )then

 begin

   Exit;

 end;

 MkDirMulti(

   SysUtils.ExtractFilePath(

     sPath ) );

 try

   System.MkDir( sPath );

 except

   { handle errors }

 end;

end;

begin

 { don't forget to provide

   a full path name }

 MkDirMulti(

   'c:\temp\one\two\three\four' );

end.