Populate a listbox with folder names

[Guest]

I am writing code in Access that will open a printed to disk text file with
"Monarch", create a database file, append the database to a table, then print
a report based on that database.

I need to open the text file each month from a different subfolder. I want
to read a folder and all its subfolders, populate a listbox so a person can
choose which folder/month they want to use.

I have the following code, but cannot figure out how to populate the listbox
in access. Also the following code only lists the first record. Any help
would be appreciated.

Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
'----- NOTE: SET REFERENCE: "Microsoft Scripting Runtime" must be
selected.

'----- PURPOSE: List all Folders in a Sourcefolder

Call ListFoldersInDirectory("F:\Dolars Reports\")

End Sub

Sub ListFoldersInDirectory(ByVal SourceFolderName As String)

Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim oArray()
Dim counter As Integer

Dim i As Integer

'----- PURPOSE: Lists the folders in SourceFolder

Set FSO = New Scripting.FileSystemObject

Set SourceFolder = FSO.GetFolder(SourceFolderName)


ReDim oArray(SourceFolder.SubFolders.Count - 1)

For Each SubFolder In SourceFolder.SubFolders

List0.RowSource = SubFolder.Name
Next SubFolder



End Sub

 

[Graham Mandeno]

Hi Robert

Instead of reinventing the wheel, why not use the "Browse for folder" dialog
that is built into Windows?

You will find sample code at http://www.mvps.org/access/api/api0002.htm

If you also want to give the user flexibility in naming the file, as well as
selecting the folder, then try the built-in "File Save as" dialog (sample at
http://www.mvps.org/access/api/api0001.htm)