VBS скрипт, который циклически - PullRequest
Новая
       7

VBS скрипт, который циклически

0 голосов
/ 16 февраля 2012

Что я пытаюсь выяснить, так это как сделать так, чтобы сценарий 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

1 Ответ

1 голос
/ 16 февраля 2012

Если пример кода работает и действительно выполняет одно изменение иконки через 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 немного ржавые, но, надеюсь, это укажет вам правильное направление.

...