.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
