Visit my homepage -> Free Stuff and search for 'VxGetTextStyles'...
For getting the file list use (vl-directory-files "C:\\TheDirectoryToScan" "*.dwg")
To open the dwg's use ObjectDBX
Modify my function for the document object from ObjectDBX:
(defun VxGetTextStyles (Doc / StyLst)
(vlax-for Sty (vla-get-TextStyles Doc)
...