if arne's example doesn't cover everything, this will get you to the subdirs. it prints the subdir names and the files inside of each of them. change it to pull the doc names and put them inside the list box:
Sub print_subdirs()
'this routine prints subdirectory names
Dim fso As Object
Dim...