Populate a ComboBox from a Directory

[ddrew]

Is it possible to populate a combobox with all the files named in a particular folder?

 

[sig331]

Something like this?
Add reference to Microsoft Scripting Runtime Library

Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scription.Folder
Dim FileItem As Scripting.File
 
Set FSO = New Scription.FileSystemObject
Set SourceFolder = FSO.GetFolder("C:\Path\to\directory")
 
For Each FileItem In SourceFolder.Files
    Me.cmbBox.AddItem(FileItem.Name)
Next FileItem

 

[ddrew]

Something like this?
Add reference to Microsoft Scripting Runtime Library

Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scription.Folder
Dim FileItem As Scripting.File
 
Set FSO = New Scription.FileSystemObject
Set SourceFolder = FSO.GetFolder("C:\Path\to\directory")
 
For Each FileItem In SourceFolder.Files
    Me.cmbBox.AddItem(FileItem.Name)
Next FileItem

Thanks had to change a bit as Im using 2010. Where youv'e written 'Scription' should now be 'Scripting'. Thanks again