Does anyone know of a good way to read file system folders and populate a listbox with these names? I am currently using the following lines of code to do this and it works. However, it is very sluggish and was wandering what a better way to do this would be. Here is the code I am using:

Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(\\ohlew0010\plis\map83)
    Set fc = f.Subfolders
    For Each f1 In fc
        'following line adds folder names to cmbStates listbox
        cmbStates.AddItem (f1.Name)
   Next
Any help is greatly appreciated!!