Heenan, Lambert
Lambert.Heenan at aiuholdings.com
Wed Apr 1 14:12:07 CDT 2009
Why not use the API instead of the OCX control? http://www.mvps.org/access/api/api0001.htm Lambert -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman Sent: Wednesday, April 01, 2009 2:07 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] Importing multiple txt files Jim ...have you gotten the FileDialog to work in a runtime? ...I'd love to use it but so far no go. William -------------------------------------------------- From: "Hewson, Jim " <JHewson at nciinc.com> Sent: Wednesday, April 01, 2009 1:29 PM To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Subject: Re: [AccessD] Importing multiple txt files > Below is what I've used in the past and it works well. > The User can select one or any number of files (using the ctl or shift > keys) in the directory. > This will actually place the file names with the perspective > directories into a list box. You should be able to get what you need from this. > > Private Sub btnSelectFiles_Click() > Dim fDialog As Office.FileDialog > Dim varFile As Variant > Dim txtFile As String > > Dim strImportFile As String > > 'Clear Textbox contents. > Me.lstImportFile.RowSource = "" > > 'Set up the File Dialog > Set fDialog = Application.FileDialog(msoFileDialogFilePicker) > With fDialog > 'Allow user to select one file in dialog box > .AllowMultiSelect = True > > 'Set the title of the dialog box. > .Title = "Please select ALL files" > > 'Clear out the current filters, and add our own. > .Filters.Clear > .Filters.Add "Excel Workbooks 2000-2003", "*.xls" > .Filters.Add "Excel Workbooks 2007", "*.xlsx" > > 'Show the dialog box. If the .Show method returns True, the > 'user picks one file. If the .Show method returns > 'False, the user clicked Cancel. > > If .Show = True Then > For Each varFile In .SelectedItems > Me.lstImportFile.AddItem varFile > txtFile = varFile > Next > > Else > MsgBox "You clicked Cancel in the file dialog box.", vbOKOnly, > "Cancelled" > End If > .InitialFileName = "" > End With > Set fDialog = Nothing > Set varFile = Nothing > > strImportFile = Me.lstImportFile.RowSource > > End Sub > > Jim > > > -----Original Message----- > From: accessd-bounces at databaseadvisors.com > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Janet > Erbach > Sent: Wednesday, April 01, 2009 12:24 PM > To: Access Developers discussion and problem solving > Subject: Re: [AccessD] Importing multiple txt files > > I planned on allowing the user to navigate to select the directory. > > Janet > > On Wed, Apr 1, 2009 at 12:21 PM, Hewson, Jim <JHewson at nciinc.com> wrote: > >> Janet, >> Will the files always reside in the same directory or will the user >> be able to select the directory? >> >> Jim >> >> >> -----Original Message----- >> From: accessd-bounces at databaseadvisors.com >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Janet > Erbach >> Sent: Wednesday, April 01, 2009 12:12 PM >> To: accessd at databaseadvisors.com >> Subject: [AccessD] Importing multiple txt files >> >> Hello! >> >> I would like to programmatically import one by one all the text files > in >> a >> given directory - usually around 30 files. I've used code that I > copied >> from http://www.mvps.org/access/api/api0001.htm to allow the user to >> browse through windows directories and select a single file to >> process...but now I want to process ALL the files in a given >> directory, regardless of the number of files. I assumed I would >> build an array with the names of all the files and then loop through >> that array in my code to import and process them one by one. >> >> Does anyone know of code I could utilize that would allow me to >> identifity the names of all the txt files in a selected directory? >> I'm lost when it comes to interfacing Access with Windows in this >> way! >> >> Janet Erbach >> NaturalHealthyConcepts.com >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> >> > ###################################################################### > ## > ######## >> If you have received this message in error, please contact the sender >> immediately and be aware that the use, copying, or dissemination of >> this information is prohibited. This email transmission contains >> information from NCI Information Systems, Inc. that may be considered >> privileged or confidential and is intended solely for the named >> recipient. >> >> > ###################################################################### > ## > ######## >> >> -- >> AccessD mailing list >> AccessD at databaseadvisors.com >> http://databaseadvisors.com/mailman/listinfo/accessd >> Website: http://www.databaseadvisors.com >> > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > ###################################################################### > ########## If you have received this message in error, please contact > the sender immediately and be aware that the use, copying, or > dissemination of this information is prohibited. This email > transmission contains information from NCI Information Systems, Inc. > that may be considered privileged or confidential and is intended > solely for the named recipient. > ###################################################################### > ########## > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com > -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com