如何在 Delphi 中递归创建文件夹？

发布于 2024-09-09 06:59:44 字数 209 浏览 7 评论 0原文

在创建函数时需要一些帮助，该函数可以通过给定路径递归地创建文件夹：

C:\TestFolder\Another\AndAnother

Delphi 函数 MkDir 返回 IOerror = 3。

MkDir('C:\TestFolder\Another\AndAnother');

原文

Need some help in creating function which can create folders recursively with giving path:

C:\TestFolder\Another\AndAnother

Delphi function MkDir returning IOerror = 3.

MkDir('C:\TestFolder\Another\AndAnother');

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

寻梦旅人 2024-09-16 06:59:44

使用

ForceDirectories('C:\TestFolder\Another\AndAnother');

（这是一个标准 RTL 函数，可在 SysUtils.pas 中找到。因此您不需要创建自己的函数，尽管这并不困难。）

Use

ForceDirectories('C:\TestFolder\Another\AndAnother');

(This is a standard RTL function, found in SysUtils.pas. Hence you do not need to create your own function, even though that wouldn't have been difficult.)

回复收藏 0 原文

慕烟庭风 2024-09-16 06:59:44

SysUtils 现已过时，ForceDirectories 不支持 UNC 识别！

自 Delphi XE7（或更早？）以来有一个新的库，称为 IOUtils。
IOUtils 跨平台兼容并支持 UNC。

function ForceDirectories(FullPath: string): Boolean;   // Works with UNC paths
begin
  TDirectory.CreateDirectory(FullPath);
  Result:= DirectoryExists(FullPath);
end;

注意：该函数来自 Delphi LightSaber 库。还有其他几个类似的 I/O 函数（如 ListFilesOf(Folder)）。

SysUtils is obsolete now and ForceDirectories is not UNC aware!

There is a new library in since Delphi XE7 (or even earlyer?) called IOUtils.
IOUtils is cross-platform compatible and UNC aware.

function ForceDirectories(FullPath: string): Boolean;   // Works with UNC paths
begin
  TDirectory.CreateDirectory(FullPath);
  Result:= DirectoryExists(FullPath);
end;

Note: The function is from Delphi LightSaber library. There are several other similar I/O functions there (like ListFilesOf(Folder)).

回复收藏 0 原文