Open/select multiple file from MS access

[Asher David]

Hi,

Does anybody know what syntax to be used in opening multiple file in VBA ms access and store the file path?

Normally what I do inside MS excel vba is by using:

files = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , , True)

For i = 1 To UBound(files)

next i

I need this one coz I need to select multiple files (ex. xl,txt)

Thanks

[RobDog888]

This is how I do it.

Thread Moved

Dim strFile As String
Application.FileDialog(msoFileDialogOpen).Filters.Add "Images", "*.gif; *.jpg, *.png", 1
lret = Application.FileDialog(msoFileDialogOpen).Show
If lret = -1 Then
    strFile = Application.FileDialog(msoFileDialogOpen).SelectedItems.Item(1)
End If

[Asher David]

I just tested it, but why the vba gives me an error:

Run-time-error

Method 'FileDialog' of object '_Application' failed?

Do i need to activate something in the reference here?

Thanks

[RobDog888]

"_Application" are you using VB.NET or ??? FileDoalog is available at least back to Office XP (2002).

[Asher David]

No. Im applying it to MS access 2003

[RobDog888]

You should have a reference preset to Office 11.0 since this is in Access 2003 but its basic Access code and shouldnt be failing.

[Asher David]

Hi,

Yah I think I miss adding the Microsoft Office 11.0. Ithought it would work on already on Microsoft Access 11.0 library.

But anyway how can I make this code for selection of Multiple entry. I can select multiple files but the value of "lret" always = to -1?

How can I create a loop to make and run with every file I select?

Thanks in advance

[RobDog888]

Should be like...

Application.FileDialog(msoFileDialogOpen).Multiselect = True

Then iterate through the .SelectedItems collection.

Note: I am typing all this in the reply box so may be slightly off a bit.

[Asher David]

Hi little correction. SHould be

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect

I figured it out already oepning multiple selection file.

Thanks so much!!!!