siow的程序人生

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]siow的公告

[编辑]文章分类

[编辑]好友博客

[编辑]技术网站

[编辑]类库控件

[编辑]其他博客

存档

创建多层目录函数收藏

//创建多层目录 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;

发表于 @ 2009年06月05日　17:47:00 | 评论( loading... ) | 编辑| 举报| 收藏