How can I list all the folders in a directory with VBScript?

I just need to list all the folders that exist in a certain directory. Just the folder’s name. I’ve searched Google and Yahoo! but wasn’t much help. Also, I would like for it to dump the names into a text file or something.