zoukankan      html  css  js  c++  java
  • 查看固定目录下的图片


    Dim picPath
    picPath="d:pictrue"
    Set fso=CreateObject("scripting.filesystemobject")
    Set files=fso.GetFolder(picpath).Files
    ForEach file In files
        IfInStr(file.Type,"图像") Then
            filenamestr=file.ShortName & "," & filenamestr
        EndIf
    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)+1Then
            j=0:i=1
            Do
                s= MsgBox ("浏览完毕是否重新浏览", 3, "图片自动浏览")'6-->是,7-->否,2-->取消和关闭
                If s = 6Then
                    ExitDo
                Else
                    WScript.Quit
                EndIf
            Loop
        EndIf
    Loop

  • 相关阅读:
    常用正则表达式
    玉洁哥的设计模式指摘
    jquery makearray()使用
    html/css技巧总结
    json 数组 对象 xml 之间转换(待补充)
    Html5 Geolocation获取地理位置信息
    JSON.stringify 应用
    url操作一网打尽(一)
    jquery选择器
    JavaScript Window Location
  • 原文地址:https://www.cnblogs.com/futrueface/p/4222846.html
Copyright © 2011-2022 走看看