The User Would Like to Select Multiple PDF Files at Once from The File Dialog Box
I have the following VBA Code that allows the user to select 1 file at a time from the File Dialog Box.
The user would like to select more than one file at a time from the File Dialog Box.
How can that be done?
I have the AllowMultiSelect = True, but I need to know how to get it to work with selecting more than 1 file at a time.
Function AddFile() As LongPtr On Error GoTo ErrHandler Dim strFilePath As String Dim strFileText As String Dim strFileName As String With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.Clear .Filters.Add "PDFs", "*.PDF" .Show strFilePath = .SelectedItems(1) End With If strFilePath = "" Then Exit Function If GetRecordCount("SELECT * FROM FILE_LIST WHERE FILE_PATH =" & Chr(34) & strFilePath & Chr(34)) > 0 Then err.Raise -666, , "This File is Already Loaded!" End If strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\")) strFileText = GetFileText(strFilePath) AddFile = AddToFileList(strFilePath, strFileName, strFileText) If AddFile <> 0 Then Exit Function Me.lstFiles.Requery Me.lblFileList.Caption = GetRecordCount("FILE_LIST") & " Files" Me.lstFiles = Me.lstFiles.ItemData(Me.lstFiles.ListCount - 1) 'should always be at least one Call lstFiles_AfterUpdate Me.cmdParseBMPs.Enabled = TrueErrHandler: DoCmd.SetWarnings True AddFile = ErrorHandler(err, "AddFile")End Function
Function AddFile() As LongPtr On Error GoTo ErrHandler Dim strFilePath As String Dim strFileText As String Dim strFileName As String Dim j As Integer With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.Clear .Filters.Add "PDFs", "*.PDF" End With With Application.FileDialog(msoFileDialogOpen) If .Show Then For j = 1 To .SelectedItems.Count strFilePath = .SelectedItems(j) If GetRecordCount("SELECT * FROM FILE_LIST WHERE FILE_PATH =" & Chr(34) & strFilePath & Chr(34)) > 0 Then Err.Raise -666, , "This File is Already Loaded!" End If strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\")) strFileText = GetFileText(strFilePath) AddFile = AddToFileList(strFilePath, strFileName, strFileText) If AddFile <> 0 Then Exit Function Me.lstFiles.Requery Me.lblFileList.Caption = GetRecordCount("FILE_LIST") & " Files" Me.lstFiles = Me.lstFiles.ItemData(Me.lstFiles.ListCount - 1) 'should always be at least one Call lstFiles_AfterUpdate NextEnd If Me.cmdParseBMPs.Enabled = TrueErrHandler: DoCmd.SetWarnings True AddFile = ErrorHandler(Err, "AddFile")End Function
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
Open in new window