0

私が理解しようとしているのは、デスクトップ上にある間に 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
4

1 に答える 1

1

サンプルコードが機能し、5秒後に実際にアイコンの変更を1回実行する場合は、フォルダー内のすべてのファイルを実行するために、「For」と組み合わせた「OpenDoLoop」を追加する必要があると思います。

oShellLink.TargetPath = "J:\Movies"

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

私のvbsは少し錆びていますが、うまくいけばそれはあなたを正しい方向に向けるでしょう。

于 2012-02-16T10:22:57.117 に答える