Vba 在Access中使用Visual Basic查找文件夹中的所有PDF

因此，我对使用Visual Basic非常陌生，我遇到了一些问题。我想打开一个文件夹，并阅读文件夹中的所有PDF内容。我在上找到了此代码，但收到了与某些代码预期相关的错误：

For Each foundFile As String In My.Computer.FileSystem.GetFiles(
    My.Computer.FileSystem.SpecialDirectories.MyDocuments,
    Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.pdf")

    Listbox1.Items.Add(foundFile)
Next

有人知道我为什么会出现这样的错误吗？

看看这是否有用

 Sub Dougsloop()

     Dim Filename As String
     Dim path As String

     path = "path to folder" & "\"
     Filename = Dir(path & "*.pdf")

     Do While Len(Filename) > 0
        debug.print; FileName
        'Listbox1.Items.AddItem (Filename) replace debug w/this
         Filename = Dir
     Loop

 End Sub

---

删除

作为字符串

，并在断行的末尾添加行继续字符

。

在循环实例化中不能像这样使用“作为字符串”that@HaoZhang当我添加u时，它说这是一个无效字符链接中的示例是VB，您正在用VBA进行编码。这些代码有相似之处，有时是可修改的，但有时必须修改。在u前面留出一个空格，表示行继续。是否用注释行替换debug.print？调试行是否打印出文件名，注释行是否将pdf添加到列表中以进行存储？@AdamH是的，并将其添加到列表框中（我以为您正在尝试这样做）。我做了测试，效果非常好：）