Dim picPath
picPath="d:\pictrue\"
Set fso=CreateObject("scripting.filesystemobject")
Set files=fso.GetFolder(picpath).Files
For Each file In files
If InStr(file.Type,"图像") Then
filenamestr=file.ShortName & "," & filenamestr
End If
Next
strArray= Split(filenamestr,",")
j=0:i=1
Set WshShell = WScript.CreateObject("WScript.Shell")
Do
WshShell.Run picPath & strArray(i-1)
WScript.Sleep 3000
wshshell.Run "taskkill /f /im dllhost.exe"
WScript.Sleep 700
j=j+1
i=i+1
If j = UBound(strArray)+1 Then
j=0:i=1
Do
s= MsgBox ("浏览完毕是否重新浏览", 3, "图片自动浏览")‘6-->是,7-->否,2-->取消和关闭
If s = 6 Then
Exit Do
Else
WScript.Quit
End If
Loop
End If
Loop