Get table names from another database file VB code

[quicova]

Hi everyone.

I'm trying to find all the table names from another database file using VB code.
this is what i have so far:

Function getFileNameOpen(path) As String


    Dim f    As Object
    Dim varFile As Variant
    
    Set f = Application.FileDialog(3)
    
    With f
    
        f.AllowMultiSelect = True
   
        f.Filters.Clear
        f.Filters.Add "Access Databases", "*.accdb"
        f.Filters.Add "All Files", "*.*"
        
        If f.show = -1 Then
            For Each varFile In f.SelectedItems
            file = varFile
            Next varFile
        End If
    End With
    
    path = file
   
End Function

this function will show a browser window so that the user can select a file, and returns the file path.

Function OpenFile()
    
    Call getFileNameOpen(path)
    
    Dim db As Database
    Dim td As TableDef
    
    Database = path
    
    Set db = CurrentDb()
    For Each td In db.TableDefs
        Debug.Print td.name
    Next td
    
End Function

them I have this function. I need to get all the table names from the selected access file into a list so I can do a for loop after.

I can't figure out how to set the CurrentDb() to the path one.
This code gives me the table names and some other names of stuff which I don't know what they are. But for the current database not the one in the path.
Can anyone help me out here



Thanks so much

[quicova]

Got it, answered my own question

maybe there would be a better solution but I'm new to this VB coding.

Function OpenFile()
    
    Call getFileNameOpen(path)
    
    Dim db As Database
    Dim td As TableDef
    Dim WS As Workspace
    Dim i As Integer
    Dim ListOfNames()
    
    i = 0
    ReDim ListOfNames(i)
    
    Set WS = CreateWorkspace("DBtoReadTables", "admin", "", dbUseJet)
    Set db = WS.OpenDatabase(path, True)


    For Each td In db.TableDefs
        ListOfNames(i) = td.name
        i = i + 1
        ReDim Preserve ListOfNames(i)
    Next td


    db.Close
    Set db = Nothing
    Set WS = Nothing
    
    Dim tbname As Variant
    
    For Each tbname In ListOfNames
        Debug.Print tbname
    Next
    
    
End Function

[Dal Jeanis]

Good enough. Thanks for posting your solution. Please mark thread solved. Top of page, under thread tools.