如何检测文件夹创建写入权限？需获取失败的dir路径信息

核心优化思路 #

放弃单纯的"预检测"逻辑，改为实际执行创建+写入测试——因为权限、路径合法性等问题只有实际操作才能精准触发，预检测容易出现"检测通过但实际失败"的偏差。同时通过异常捕获直接绑定失败的目标目录，解决无法获取失败dir的问题。

实现代码示例 #

function CanCreateAndWriteDir(const ADir: string): Boolean;
var
  TestFilePath: string;
  FileHandle: THandle;
begin
  Result := False;
  try
    // 创建目标目录（自动递归创建父目录）
    if not ForceDirectories(ADir) then
      Exit;

    // 生成临时测试文件路径
    TestFilePath := IncludeTrailingPathDelimiter(ADir) + '_tmp_write_check.tmp';
    // 尝试创建并写入测试文件，验证写入权限
    FileHandle := CreateFile(PChar(TestFilePath), GENERIC_WRITE, 0, nil, 
                            CREATE_NEW, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0);
    if FileHandle <> INVALID_HANDLE_VALUE then
    begin
      CloseHandle(FileHandle);
      Result := True;
    end;
  except
    on E: EInOutError do
    begin
      // 直接关联当前传入的ADir，记录失败目录
      OutputDebugString(PChar('目录操作失败: ' + ADir + ' | 错误: ' + E.Message));
      Result := False;
    end;
    on E: Exception do
    begin
      OutputDebugString(PChar('目录异常: ' + ADir + ' | 类型: ' + E.ClassName + ' | 信息: ' + E.Message));
      Result := False;
    end;
  end;
end;

关键说明 #

1. 精准捕获失败目录：每个目录检测时，异常块直接绑定当前传入的ADir参数，无需依赖调试器的模糊提示，运行时就能直接记录失败路径。
2. 避免预检测误差：通过ForceDirectories创建目录，再用临时测试文件验证写入权限，完全模拟后续实际操作场景，结果更可靠。
3. 处理首次机会异常：调试器提示的"首次机会异常"是IDE的调试信息，不影响程序运行。如果想在调试时减少干扰，可在Delphi IDE的工具->选项->调试->异常中，取消EInOutError的"中断"勾选，仅保留日志记录。

批量处理建议 #

当需要创建大量目录时，循环调用上述函数即可，将失败的目录收集到TStringList中，最后统一输出或处理：

var
  FailedDirs: TStringList;
  TargetDir: string;
begin
  FailedDirs := TStringList.Create;
  try
    for TargetDir in TargetDirList do
    begin
      if not CanCreateAndWriteDir(TargetDir) then
        FailedDirs.Add(TargetDir);
    end;
    // 输出所有失败目录
    if FailedDirs.Count > 0 then
      ShowMessage('创建失败的目录:'#13#10 + FailedDirs.Text);
  finally
    FailedDirs.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者Franz