Sub folder list to text

[dpw]

I was attempting to obtain names of files and place them as text into a database. I succeeded by using Ghudson's function (code below) but can you alter the code to obtain the names of folders within a particular folder???

Public Function ListFiles()
On Error GoTo Err_ListFiles

Dim db As Database
Dim rs As Recordset
Dim vDir As Variant

Const sPath = "C:\Temp\" 'Path to search

Set db = CurrentDb

db.Execute "Delete tTempFiles.* from tTempFiles;"

Set rs = db.OpenRecordset("tTempFiles")

vDir = Dir(sPath & "*.mdb") 'Searching for Access files *.mdb
Do Until vDir = ""
rs.AddNew
rs!TempFileName = vDir
rs.Update
vDir = Dir
Loop

rs.Close
db.Close
Set db = Nothing
Set rs = Nothing

Exit_ListFiles:
Exit Function

Err_ListFiles:
MsgBox Err.Number, Err.Description
Resume Exit_ListFiles

End Function

Thanks

D