Hi rusco

Here what you can do:
1- Open the Directory (not File) dialog, to select the Directory where your files are (I can provide code).
2- Once the Directory is selected, use the fso (File System Object) to add the files to a Listbox (I can provide code).
3- In the Listbox properties, set Multiple selection to Yes.
4- Now you can do your Multiple file selection.
5- Make a command button to loop throw the selected Listbox items and put them in a array (I can provide code).

If you always search from the same Directory, then You can Omit #1, and put the Directory in #2,
If you always search for xls files, then you can omit the other types from being built in the Listbox.

jaffer

Hi rusco

When you are lucky, then you are lucky :o)

1-
Make a module, call it MultipleFileSelection, and paste this code there:

Option Explicit

' 28-May-2001
' Valid in VB 6 only!
' When using the Common Dialog control to select multiple files
' from the File Open dialog box, the FileName property of the
' Common Dialog control will return both the path and names of
' the selected files. If the Common Dialog control only allows
' long file names to be selected, the path and file names are
' returned in a null character delimited format, with the path
' listed first, and the files listed subsequently
' This sample shows you how to get the path and the selected files
' Demo by Brian Matumbura
' For comments email: brianm@zncc.co.zw


Public Function GetFiles(Optional ByVal sTitle As String = "Open files...") As String
  ' sTitle: Optional Title of Dialog
  Dim sFilenames As String
  Dim cdlOpen As Object
  On Error GoTo ProcError
  ' Get the desired name using the common dialog
  Set cdlOpen = CreateObject("MSComDlg.CommonDialog")
  ' set up the file open dialog file types
  With cdlOpen
    ' setting CancelError means the control will
    ' raise an error if the user clicks Cancel
    .CancelError = True
    .Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.*.txt|INI Files (*.ini)|*.ini|Images (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
    .FilterIndex = 1
    .DialogTitle = sTitle
    .MaxFileSize = &H7FFF ' 32KB filename buffer
    ' set up Common Dialog flags
    ' same as .Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect or cdlOFNExplorer
    .Flags = &H4 Or &H800 Or &H40000 Or &H200 Or &H80000
    .ShowOpen
    ' get the selected name
    sFilenames = .FileName
  End With
ProcExit:
  GetFiles = sFilenames
  Set cdlOpen = Nothing
  Exit Function
ProcError:
  If Err.Number = &H7FF3 Then Resume Next 'Cancel selected - Ignore
  MsgBox Err.Description & "(" & Err.Number & ")", vbExclamation, "Open error"
  sFilenames = ""
  Resume ProcExit
End Function


2-
Make a Form from Design view,
Make a Listbox, call it List1,
Make a Lable for the Listbox, call it Label1,
Make a command button, call it command2, and place the following code On Click of Command2:

Private Sub Command2_Click()

  Dim strFileNames() As String
  Dim i As Integer
 
  strFileNames = Split(GetFiles, Chr(0))

    If UBound(strFileNames) > 0 Then

      'Path is stored in index 0 of array files in index 1...
      Label1.Caption = "Files selected from: " & strFileNames(0)
      For i = 1 To UBound(strFileNames)
        If i = 1 Then
            AddFiles = strFileNames(0) & strFileNames(i)
        Else
            AddFiles = AddFiles & ";" & strFileNames(0) & strFileNames(i)
        End If
      Next
    Else
      AddFiles = "(No files selected)"
    End If
   
    Me.List1.RowSource = AddFiles

End Sub

--------------------------------
You can get he Path and File Name you are looking for, like this:

For i = 1 To UBound(strFileNames)
 mtFiles(i)=strFileNames(0) & strFileNames(i)
next i

This way, the array myFiles() will contain all your files.


jaffer

rusco

Make sure you have your reference to:

Visual Basic For Applications
Microsoft Access XX.X object Library
Microsoft Visual Basic for Applications Extensibility 5.3

To do the Reference, while in VB, Menu Bar > Tools > References.

If it doesn't work, let me know so that I can upload it to a site where you can download it.

jaffer

Here you go Sir

www.almosawe.ae/jaffer/MultipleFileSelectionDialog.zip

if you open the module, you will see this line

    .Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.*.txt|INI Files (*.ini)|*.ini|Images (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"

it is here where you can either Edit OR Add pointing to *.xls so that you can filter the xls files directly.

BTW, Click on the Open button, the dialog will popup, there you can select your multiple files.

I am using WinME and Access 2k

jaffer

Hi rusco

Were you able to download the file?

jaffer

No problem
Nighty night

jaffer

rusco
I am sorry to hear this, as this mdb is working fine with me.
but I gues, like Mike said "API's are great....lots of code not so great, but they always work."
where as other codes depend on some installed components on the pc.

Good job Mike.

jaffer