vbsスクリプトが.icoファイルを繰り返す

Question

iamが解明しようとしているのは、vbsスクリプトをデスクトップ上にある別の.icoファイルに循環させる方法です。他の.icoファイルのスライドショーとほとんど同じです。出来ますか？ここ

は私がこれまで持っているものですが、サンプルコードが動作し、実際に、私はあなたが必要になると思う5秒後にアイコンの1つの変更を実行しない場合には、サイクルの.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

ありませんフォルダ内のすべてのファイルを介して実行「の」と組み合わせて「オープンdoループ」を追加する、のようなもの：

oShellLink.TargetPath = "J:\Movies" 

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

私のVBSは正しい方向にあなたを指しますそのうまくいけば少し錆びですが。