Use Word to Search for Files


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




相关阅读:
SQLServer 2008中通过DBCC OPENTRAN和会话查询事务
精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换
Slackware Linux中开启内存共享提高FPS
Code:findPosX 和 findPosY
不用软件把回收站误删除文件恢复过来
DOMAssitant最新版 DOMAssistant 2.5发布
asp.net 生成数字和字母组合的随机数
统计每个数的重复次数,并按照重复次数由高到低排序的批处理
用DataGrid展示目录下的文件 (第二部分)
给zblog加上运行代码功能
vbs sendKeys Virtual-Key Codes 十六进制符号
“ORACLE_HOME”环境变量设置说明
PHP定时自动生成静态HTML的实现代码
Javascript的IE和Firefox兼容性汇编
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4