循环.ico文件的vbs脚本

Question

我试图弄清楚的是如何让vbs脚本在桌面上循环使用不同的.ico文件。几乎就像不同.ico文件的幻灯片。有可能吗？

这是我到目前为止所拥有的，但它不循环.ico文件

     set WshShell = WScript.CreateObject("WScript.Shell")
     strDesktop = WshShell.SpecialFolders("Desktop")
     set oShellLink = WshShell.CreateShortcut(strDesktop & "Movies Folder.lnk")
     oShellLink.TargetPath = "J:Movies"
     oShellLink.IconLocation = "C:MoviesShortcutMovies.Ico"
     wscript.sleep 500
     oShellLink.IconLocation = "C:MoviesShortcuttv1.Ico"
     oShellLink.Description = "movies"
     oShellLink.WorkingDirectory = strDesktop

Answer 1

如果示例代码有效，并且确实在5秒钟后对图标进行了一次更改，那么我认为您需要添加一个"Open Do Loop"和一个"For"来运行文件夹中的所有文件，比如：

oShellLink.TargetPath = "J:Movies"
Do
    For Each File in OShellLink.TargetPath
        oShellLink.IconLocation = File.Path
        wscript.sleep 500
    Next
Loop

我的vbs有点生疏，但希望这能为你指明正确的方向。