中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBS查找并打开文件的代码，请高手帮我修改一下

5872169
高级用户

积分 959
发帖 474
注册 2007-10-25
状态离线

『楼主』: VBS查找并打开文件的代码，请高手帮我修改一下

VBS查找并打开文件的代码，请高手帮我修改一下，搜索到文件后，点是用D:\Kmplayer Plus\KMPlayer.exe打开，点否继续搜索，点取消退出程序
Function FilesTree(sPath)
Set oFso=CreateObject("Scripting.FileSystemObject")
Set oFolder=oFso.GetFolder(sPath)
Set oSubFolders=oFolder.SubFolders

Set oFiles=oFolder.Files
For Each oFile In oFiles
MSGBOX oFile.Path,vbQuestion+vbYesNoCancel,"打开"

createobject("wscript.shell").run chr(34)&"D:\Kmplayer Plus\KMPlayer.exe"&chr(34) & (oFile.Path)

Next

For Each oSubFolder In oSubFolders
MSGBOX oSubFolder.Path,vbQuestion+vbYesNoCancel,"打开"
FilesTree(oSubFolder.Path)'递归
Next

Set oFolder=Nothing
Set oSubFolders=Nothing
Set oFso=Nothing
End Function

FilesTree("E:\电影") '遍历

2009-3-4 03:04

qinchun36
高级用户

据说是李先生

积分 609
发帖 400
注册 2008-4-23
状态离线

『第 2 楼』:

Function FilesTree(sPath)

Set oFso=CreateObject("Scripting.FileSystemObject")

Set oFolder=oFso.GetFolder(sPath)

Set oSubFolders=oFolder.SubFolders

Set oShell=CreateObject("Wscript.Shell")

Set oFiles=oFolder.Files

For Each oFile In oFiles

Select case MSGBOX(oFile.Path,35,"打开")

case 6 oShell.run chr(34)&"D:\Kmplayer Plus\KMPlayer.exe"&chr(34)&" "&chr(34)&oFile.Path&chr(34)

case 2 wscript.quit

end select

Next

For Each oSubFolder In oSubFolders

FilesTree(oSubFolder.Path)'递归

Next

Set oFolder=Nothing

Set oSubFolders=Nothing

Set oFso=Nothing

End Function

FilesTree("E:\电影") '遍历

[ Last edited by qinchun36 on 2009-3-6 at 01:44 ]

2009-3-4 13:19

(182484135)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: