vba - 目录只返回 1 个文件

Question

我正在尝试使用 dir 函数获取一个简单的文件列表，即使有 200 个文件，结果也只返回 1 个文件。任何想法我可能在以下功能中缺少什么？

Option Compare Database

Public Sub getList()
Const strFolder As String = "c:\Users\bob\Desktop\social\"
Dim strFile As String
'strFile = Dir(strFolder & strPattern, vbNormal)
strFile = Dir(strFolder, vbNormal)
Debug.Print strFile
Do While Len(strFile) > 0
    Debug.Print strFile
    strFile = Dir()
Loop
End Sub

Answer 1

& 符号对我来说显示 OK。也许有一个不同的角色会导致问题。尝试替换此行

strFile = Dir(strFolder, vbNormal)

有了这个，

strFile = Replace(Dir(strFolder, vbNormal), "&", Chr(37))

然后更改 & 和 Chr(37) 以将其他奇怪的字符替换为它们的 chr 等价物，这样也许您可以识别问题。