CODEWITHSUNDEEP
vbams-access
Adam H
Adam H

Reputation: 172

Find all the PDFs in a folder using Visual Basic in Access

So I am very new with using Visual Basic and I am having trouble. I want to open a folder and read all the PDFs in the folder for content. I found this code on the Microsoft Guidelines, but received errors regarding expectations of certain codes:

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

Error when testing code in my environment

Does anyone know why I am getting such errors?

Upvotes: 1

Views: 1489

Answers (1)

Doug Coats
Doug Coats

Reputation: 7107

See if this is useful

 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

Upvotes: 1

Related Questions