创建多层目录函数

//创建多层目录 procedure MkDirMulti(sPath: string); begin if('/'=sPath[Length(sPath)]) then begin sPath :=Copy(sPath, 1, Length(sPath)-1); end; if (Length(sPath)<3) or DirectoryExists(sPath) then begin Exit; end; MkDirMulti(ExtractFilePath(sPath )); try MkDir(sPath); except end; end;