如何创建多重目录？

[Dann]

CreateDirecotry()只能创建一个子目录，我要创建一个dir1\dir2\dir3的目录，除了一层一层创建外，还有没有其他的方法？

[kxy]

好像是 IShellFolder 接口可以

[jiangtao]

forcedirectorys

[Dann]

希望能够详细一点，最好给出一段代码。

[jiangtao]

这是Delphi的例子,相信你也能用

procedure ForceDirectories(Dir: string);
begin
if Length(Dir) = 0 then
raise Exception.Create(SCannotCreateDir);
if (AnsiLastChar(Dir) <> nil) and (AnsiLastChar(Dir)^ = '\') then
Delete(Dir, Length(Dir), 1);
if (Length(Dir) < 3) or DirectoryExists(Dir)
or (ExtractFilePath(Dir) = Dir) then Exit; // avoid 'xyz:\' problem.
ForceDirectories(ExtractFilePath(Dir));
CreateDir(Dir);
end;

[Un1]

可以通过shell直接调用MD.

[Dann]

jiangtao：
麻烦将程序用C++改写一下，谢谢。

[feng]

再添一些分，我帮你改。