根据给出字符查找包含该字符的文件夹并输出路径

jave000

xiangbaoan 发表于 2021-10-2 08:37
Sub 自行测试吧()
  Dim p As String, Fso As Object, ar(1 To 2345, 1 To 1) As String, n As Long
  Se ...

谢谢，测试运行好像可以的。我把p和pth分别改为path，或一起改了，结果也一样，请问这是为啥？另外请问怎么才能不区分大小写？因为可能是output或Output

xiangbaoan

jave000 发表于 2021-10-4 22:36
谢谢，测试运行好像可以的。我把p和pth分别改为path，或一起改了，结果也一样，请问这是为啥？另外请问怎 ...

lcase(fld.name)   这样

jave000

xiangbaoan 发表于 2021-10-4 22:59
lcase(fld.name)   这样

感谢，我本地盘符测试成功，公司内网网盘没成功，估计是VPN不给力，上班再试。我大概是需要从数万个子文件夹里筛选出一千多个关键字文件夹。

jave000

xiangbaoan 发表于 2021-10-2 08:37
Sub 自行测试吧()
  Dim p As String, Fso As Object, ar(1 To 2345, 1 To 1) As String, n As Long
  Se ...

你好，到公司测试了下，For Each fld In Fso.GetFolder(pth).SubFolders这里报错，我把鼠标放在pth这里，显示了我\\caojsvr5.ad.glpoly.net\PUR_SIB\下面第一个子文件夹的第三个子文件夹的路径
我改来改去，也还是无法生成结果。就是很奇怪，我本地盘都正常生成出来。

jave000

是否对于网盘总会有些不同