rachamba
29-04-2020, 10:42
Добрый день. Пытаюсь по примеру https://poweruser.guru/questions/1393820/запуск-приложений-автоматически-в-зависимости-от-дня-недели сделать автозапуск скайпа, но скрипт выдает ошибку "не удается найти указанный файл", код 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
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