 |
|
VBS Запуск приложений автоматически в зависимости от дня недели
Добрый день. Пытаюсь по примеру https://poweruser.guru/questions/139...-от-дня-недели сделать автозапуск скайпа, но скрипт выдает ошибку "не удается найти указанный файл", код 80070002. Путь к файлу прописан полностью и правильно, просто skype.exe тоже выдает ошибку. Возможно ли сделать такой автозапуск с помощью скрипта и если да, то что я делаю неправильно?
Код:
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
dtmToday = Date()
dtmDayOfWeek = DatePart("w", dtmToday)
Select Case dtmDayOfWeek
Case 1 'Sunday
Case 2 'Monday
WshShell.Run "C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"
Case 3 'Tuesday
WshShell.Run "C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"
Case 4 'Wednesday
WshShell.Run "C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"
Case 5 'Thursday
WshShell.Run "C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"
Case 6 'Friday
WshShell.Run "C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"
Case 7 'Saturday
End Select
|
rachamba, код оформляется тэгом «code», а не «spoiler».
Цитата:
Цитата rachamba
скрипт выдает ошибку "не удается найти указанный файл", »
|
Потому что путь содержит пробельные символы, и его надо заключать в кавычки:
Код:
Option Explicit
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
' For Russian Regional settings
Select Case Weekday(Now(), vbUseSystemDayOfWeek)
Case 1, 2, 3, 4, 5 ' Monday, Tuesday, Wednesday, Thursday, Friday
objWshShell.Run """C:\Program Files (x86)\Microsoft\Skype for Desktop\Skype.exe"""
Case Else ' Saturday, Sunday
' Nothing to do
End Select
Set objWshShell = Nothing
WScript.Quit 0
|
Цитата:
Цитата Vadikan
в планировщике заданий по расписанию можно выбрать дни недели без всяких VBS »
|
Спасибо за ответ, но это я знаю, мне было бы удобнее записывать проги в скрипт. Интересует именно возможность использования такого скрипта |
Время: 16:54.
© OSzone.net 2001-