VBScript - Using Microsoft Excel to – What’s That? Search for Files!

VBScript - Using Microsoft Excel to – What’s That? Search for Files? (Can That Be Right?)

Here's a simple, easy-to-decipher Microsoft Excel script that returns a list of all the .WMA files found in D:\Music and its subfolders:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set objSearch = objExcel.FileSearch
objSearch.Lookin = "D:\Music"
objSearch.SearchSubfolders = TRUE
objSearch.FileName = "*.wma"
objSearch.Execute

For Each strFile in objSearch.FoundFiles
Wscript.Echo strFile
Next

objExcel.Quit

[Via]