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

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 ]