Mega Code Archive

 

Categories / Delphi / Examples

 

Add personality to your good old mkdir[] function

Looking for a function that can create multiple directories (directories inside directories) using a single function call? Well, "MkDir()" function is not it, but the following function maybe just what you're looking for: 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:temponetwothreefour' ); end.