Dir 遍历文件夹下的文件在循环至下一个时错误，哪位大神帮忙解答一下！

NeyanbhbinM

如附件.


需求：
1.判断指定文件夹C:\Users\Downloads\TEST\下的文件夹是否包含STOP字段：如果包含，执行processfolder过程；
1.1 如果processfolder过程中，从第一个文件开始，遍历整个文件夹，如果仍旧包含文件夹，递归调用processfolder;
1.2 如果processfolder过程中，如果文件是excel ".xls*" 样式的，并且包含字段Hold，则使用ADO建立连接，使用SQL提取指定字段的内容，粘贴到当前表格中；

代码是AI生成的，自己改了一下，代码在:
Filename = Dir(folder & "\*.*")
Do While Filename <> ""
...
Filename = Dir()
Loop
这个过程中，总是在标黄位置报：invalid procedure call or argument 错误；

哪位大神帮忙解答一下为什么？

micch

这个错误提示，应该不是在这个位置报的错吧。参数错误，应该检查你的函数的两个参数，看是哪里不对

kevinchengcw

Filename = Dir
不要带括号之类的

NeyanbhbinM

kevinchengcw 发表于 2024-2-26 14:34
Filename = Dir
不要带括号之类的

试过了，不行

NeyanbhbinM

micch 发表于 2024-2-26 14:34
这个错误提示，应该不是在这个位置报的错吧。参数错误，应该检查你的函数的两个参数，看是哪里不对

文心一言给出的解释是：
如果在运行上述结构时遇到“invalid procedure or argument”错误，这通常意味着Dir函数在尝试访问文件夹或处理文件时遇到了问题。这个问题可能由几个不同的原因引起：
1.文件夹路径不正确：
2.文件夹不存在：
3.权限问题：
4.文件夹路径包含非法字符：
5.文件名或文件夹名包含空格或特殊字符：
6.VBA环境问题：

而且我也逐句运行了一下，第一个文件夹，下的第一个文件，可以正常读取，但是到filename = dir() 要转下一个文件时就会出错；

NeyanbhbinM

额，请参考module2内的代码，其他都两个module都是AI生成，用来拼接的，上传时忘了删

tspliu

Dir不能套用，If Dir(folder & Filename & "\", vbDirectory) <> "" Then  这句用错了

kevinchengcw

NeyanbhbinM 发表于 2024-2-26 14:38
试过了，不行

原来是嵌套使用了，递归的用fso，dir不能嵌套使用

NeyanbhbinM

tspliu 发表于 2024-2-26 15:23
Dir不能套用，If Dir(folder & Filename & "\", vbDirectory)  "" Then  这句用错了

非常感谢，我再重新使用其他方式搞下

tanglf188

递归调用获取文件夹可考虑GetFolder方法，请参考：
Sub Test()
    TraverseSubFolders "D:\VBA" ' 替换成你想要遍历的文件夹路径
End Sub

Sub TraverseSubFolders(folderPath As String)
    Dim curFolder As Object
    Dim subFolder As Object
    Set curFolder = CreateObject("Scripting.FileSystemObject").GetFolder(folderPath)
    ' 遍历当前文件夹的子文件夹
    For Each subFolder In curFolder.subFolders
        ' 处理子文件夹
        Debug.Print subFolder.Path
        ' 递归调用，继续遍历子文件夹的子文件夹
        TraverseSubFolders subFolder.Path
    Next subFolder
End Sub