DemonstrationscriptthatusesMicrosoftWordtolocateallthe

.mp3filesstoredondriveCofthelocalcomputer

复制代码 代码如下:

SetobjWord=CreateObject("Word.Application")

SetobjDoc=objWord.Documents.Add()

objWord.FileSearch.FileName="*.mp3"

objWord.FileSearch.LookIn="C:"

objWord.FileSearch.SearchSubfolders=True

objWord.FileSearch.Execute

ForEachobjFileinobjWord.FileSearch.FoundFiles

Wscript.EchoobjFile

Next

objWord.Quit