Question

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，“找不到文件路径”。的为什么吗

Answer 1

您正在点击Windows limitation on maximum path length，即260个字符。

链接文章还提到了一种解决方法，可以使用最长（大约）32767个字符的扩展长度路径 - 在驱动器名称前添加\\?\。例如：

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

正如该文章中所述，即使您可以以编程方式创建扩展长度路径，Windows shell（例如Explorer）也可能无法正确处理它们。例如，尝试从资源管理器或命令提示符中删除长路径文件夹时，可能会出现"The source file name(s) are larger than is supported by the file system"错误。

VB script_CReating文件夹内的文件夹

1 个答案: