ForceDirectories 返回 False

发布于 2024-10-19 05:06:21 字数 433 浏览 6 评论 0原文

我正在使用 ForceDirectories 函数，如下所示：

ForceDirectories('C:/Path/To/Dir');

它返回 False 并且根本不创建任何目录。 GetLastError 返回 0。我正在使用管理权限运行该程序。

如果我这样做，

ForceDirectories('C:/Path');
ForceDirectories('C:/Path/To');
ForceDirectories('C:/Path/To/Dir');

每个调用都会成功并创建目录。但是，这会导致 ForceDirectories 函数失去作用。有谁知道为什么它会这样？（我看着你，大卫）

原文

I am using the ForceDirectories function like this:

ForceDirectories('C:/Path/To/Dir');

And it returns False and no directories at all are created. GetLastError returns 0. I am running the program with Administrative rights.

If I do

ForceDirectories('C:/Path');
ForceDirectories('C:/Path/To');
ForceDirectories('C:/Path/To/Dir');

Each call succeeds and the directories are created. However, this voids the usefulness of the ForceDirectories function. Does anyone know why it behaves this way? (I'm looking at you David)

分享到QQ

分享到微博

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

发布评论

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

软糯酥胸 2024-10-26 05:06:21

将路径分隔符更改为适合您的平台（Win32）的路径分隔符，一切都会好起来：

  ForceDirectories('c:\Path\To\Dir');

为了使代码跨平台可移植（为将来可能与您的 Delphi 代码相关的时间做准备），您可以：

  s := 'c:/Path/To/Dir';  // << example

  s := StringReplace(s, '/', PathDelim, [rfReplaceAll]);
  s := StringReplace(s, '\', PathDelim, [rfReplaceAll]);
  ForceDirectories(s);

这可以改进重用（仅搜索/替换不= PathDelim 的符号），但演示了原理。

Change your path delimiter to that which is correct for your platform (Win32) and all will be good:

  ForceDirectories('c:\Path\To\Dir');

To make the code portable across platforms (in preparation for some future time when this may be relevant to your Delphi code) you could:

  s := 'c:/Path/To/Dir';  // << example

  s := StringReplace(s, '/', PathDelim, [rfReplaceAll]);
  s := StringReplace(s, '\', PathDelim, [rfReplaceAll]);
  ForceDirectories(s);

This could be improved for re-use (only search/replace the symbol which is no = PathDelim) but demonstrates the principle.

回复收藏 0 原文