0
For i = 1 To 40 Step 1

  ChildFolderPath = ChildFolderPath & "\" & "LargeFolder" & i
  If fso.FolderExists(ChildFolderPath) Then
    MsgBox ("Folder Exists")
  else
    fso.CreateFolder (ChildFolderPath)
  End If
Next

但在创建 21 个文件夹后,我收到错误 53,“找不到文件路径”。为什么?

4

1 回答 1

3

您正在达到 Windows对最大路径长度的限制,即 260 个字符。

链接的文章还提到了使用最长(大约)32767 个字符的扩展长度路径的解决方法——\\?\在驱动器名称之前添加。例如:

ChildFolderPath = "\\?\C:\MyFolder"

正如那篇文章中所指出的,即使您可以通过编程方式创建扩展长度的路径,Windows shell(例如资源管理器)也可能无法正确处理它们。例如,当您尝试从资源管理器或命令提示符删除长路径文件夹时,您可能会收到“源文件名大于文件系统支持的”错误。

于 2013-09-30T15:10:14.177 回答