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

查看固定目录下的图片