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:\MoviesShortcut\Movies.Ico"
     wscript.sleep 500
     oShellLink.IconLocation = "C:\MoviesShortcut\tv1.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有点生疏，但希望能指出你正确的方向。

循环.ico文件的vbs脚本

1 个答案: