Use Word to Search for Files
时间：2021-04-08 10:40:15|栏目：JavaScript代码|点击： 次
Demonstration script that uses Microsoft Word to locate all the
.mp3 files stored on drive C of the local computer
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objWord.FileSearch.FileName = "*.mp3"
objWord.FileSearch.LookIn = "C:\"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute
For Each objFile in objWord.FileSearch.FoundFiles
Wscript.Echo objFile
Next
objWord.Quit
.mp3 files stored on drive C of the local computer
复制代码 代码如下:
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
objWord.FileSearch.FileName = "*.mp3"
objWord.FileSearch.LookIn = "C:\"
objWord.FileSearch.SearchSubfolders = True
objWord.FileSearch.Execute
For Each objFile in objWord.FileSearch.FoundFiles
Wscript.Echo objFile
Next
objWord.Quit
上一篇：js onmousewheel事件多次触发问题解决方法
栏 目：JavaScript代码
本文标题：Use Word to Search for Files
本文地址：http://www.codeinn.net/misctech/97237.html
