Since folder may contain subfolders it could be a real pain to do that.
However, the simplest way would be to use FSO (file system object). Here is a quick sample:
VB Code:
Private Sub Command1_Click()
Dim fso As Object
Dim fdr As Object
Set fso = CreateObject("Scripting.FileSystemObject")