MISSING MS OFFICE 10.0 Object Library
Posted on 2004-08-05
I'm trying to run this module in MS Access v. 2000.
Public Sub GetDir_Click()
Dim sFile As String, sDir As String
Dim result As Integer
.Title = "Select File"
.Filters.Add "All Files", "*.*"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If (result <> 0) Then
sFile = Trim(.SelectedItems.Item(1))
sDir = Dir$(sFile, vbDirectory)
But I get a "Can't find project or Library" on msoFileDialogFilePicker. So I look at the references and there is a "MISSING" next to Office 10.0 Object Library. But, I don't see 10.0 as an option for me, I see 9.0 there but not 10.0. This code works fine in Access 2002.
Is there anything I can do to tweak it to work with Access 2000?