如何用dir命令查找路径中不同扩展名的文件？

renahu

tanglf188 发表于 2024-4-10 17:09
用FSO吧，获取文件名、扩展名、文件类型、路径等都很方便，DIR函数功能有限

谢谢，不知道用fso能否实现找到路径下所有txt和pdf文件？
File =Dir("D:\测试\ *.txt D:\测试\ *.pdf")                  'Dir这句不行

tanglf188

可以，但需要用循环遍历
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each fn In fso.GetFolder("D:\测试").Files
        If fso.GetExtensionName(fn) = "pdf" Or fso.GetExtensionName(fn) = "txt" Then Debug.Print fn.Path
    Next

renahu

tanglf188 发表于 2024-4-11 09:17
可以，但需要用循环遍历
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each fn In ...

多谢，你这个还是全选出来然后进行判断，其实dir加判断也是可以的

tanglf188

renahu 发表于 2024-4-11 14:41
多谢，你这个还是全选出来然后进行判断，其实dir加判断也是可以的

一个是放到合集里遍历筛选，一个是直接放到合集里，但你取出这些文件名还是要遍历，总没有一个函数直接满足要求的吧

renahu

tanglf188 发表于 2024-4-11 15:22
一个是放到合集里遍历筛选，一个是直接放到合集里，但你取出这些文件名还是要遍历，总没有一个函数直接满 ...

不知道7楼的方法如何，不知道能否把所需要扩展名的文件都筛选出来？

tanglf188

renahu 发表于 2024-4-11 15:42
不知道7楼的方法如何，不知道能否把所需要扩展名的文件都筛选出来？

可以啊，一种类型调用一次，dir支持通配符，但不支持多参数，除非你这两种文件里有特定的字符能区别于其他类型文件

sj15627581616

renahu 发表于 2024-4-10 16:53
这是什么用法？我想把路径放入dir函数中，你发的怎么用？

这个是powershell,VBA也可以调用，和调用cmd一样

renahu

sj15627581616 发表于 2024-4-11 18:52
这个是powershell,VBA也可以调用，和调用cmd一样

那这个方法能解决我提的问题吗？
file = Dir("D:\测试\ *.txt D:\测试\ *.pdf") 就是从路径中找到这两种扩展名的文件，不知道怎么使用

sj15627581616

renahu 发表于 2024-4-13 10:50
那这个方法能解决我提的问题吗？
file = Dir("D:\测试\ *.txt D:\测试\ *.pdf") 就是从路径中找到这两种 ...

他回复的powershell代码就可以实现这种操作，代码就是实现递归搜索所有文件，然后筛选所有txt pdf文件出来

renahu

sj15627581616 发表于 2024-5-14 21:46
他回复的powershell代码就可以实现这种操作，代码就是实现递归搜索所有文件，然后筛选所有txt pdf文件出 ...

能不能请老师给写一下代码，递归我是真的不会弄，多谢