Hello!
I need someone to help me with the code on how to open a file browser dialog box that can be used to select more than one ".xls" file. Similar to the one used in Outlook when selecting attachments that are more than one. I want to be able to get the complete path along with the filename of the selected/highlighted items and put them in a array. Any help would be great :-)
I'm using Windows XP with Access 2000 for this one.
Thanks!
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Check out this link....it has the code for an API call. API's are great....lots of code not so great, but they always work.
http://www.experts-exchang
Mike
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.Com
' 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;
.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)
next i
This way, the array myFiles() will contain all your files.
jaffer
Hi Jaffer,
I tried using the code you gave me but I seem to be getting an "ActiveX Component can't create object(429)' error.
Hi Mike,
I like the idea of the API and tried out the code from the link you gave. Unfortunately it only can only select one file from open file browse 'dialog box'. I can't figure out yet how to change the API to make it able to select multiple files.
Thanks!
rusco
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/Mul
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;
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
Add the ALLOWMULTISELECT flag to the code. I checked it out and this flag is a constant in the code. You should be able to add the flag. You might have to add a loop around the code to return all selected files.
Might be worth while to do a search on google or some other site for the name of the api call and the word ALLOWMULTISELECT.
Mike
Check out this link...look for Allowmultiselect.....lots of code
http://www.experts-exchang
Mike
Business Accounts
Answer for Membership
by: Data-ManPosted on 2004-08-02 at 01:56:01ID: 11691764
If you have acccess to Excel 2002 or greater you can use the this code by setting a reference and creating an object variable within your Access 2000 code. I made a few changes, but this is air code. If you don't have access to Excel 2002, disregard...you may have to use an API to get the file open dialog.....Mike
Sub UseFileDialogOpen()
Dim lngCount As Long
Dim strFileNames() as String
Dim objExcel As Excel.Application
Set objExcel = new Excel.Application
' Open the file dialog
With objExcel.FileDialog(msoFil
.AllowMultiSelect = True
.Show
' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
ReDim Preserve strFileNames(lngcount-1) 'Array starts at zero.
strFileNames(lngCount-1) = .SelectedItems(lngCount)
Next lngCount
End With
objExcel.Quit
set objExcel = nothing
End Sub