Dim objws,folders
Set objws=WScript.CreateObject("wscript.shell")
Set shell = CreateObject("Shell.Application")
folders="我的电脑"
strfolder=Split(folders,";",-1,1)
Do
For Each f In strfolder
For Each window In shell.Windows
if window.locationname = f Then
objWs.Popup "5秒钟后将关闭" & f, 5
window.quit
End If
Next
Next
WScript.Sleep 1000
Loop