VBS查找并打开文件的代码，请高手帮我修改一下 - 中国DOS联盟论坛

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:\电影") '遍历

第1楼　5872169	发表于 2009-03-04 03:04
高级用户　发帖 474　积分 959
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:\电影") '遍历

第2楼　qinchun36	发表于 2009-03-04 13:19
高级用户　发帖 400　积分 609
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 ]