| константин_н |
12-05-2014 03:42 2350201 |
Перестал скрипт vbs работать в win 8.1
Был у меня самолично содранный с инета скриптик, удалял надоедливые файлы на рабочем столе в win 8.
Обновил я нинче до 8.1, а скрипт работать перестал
Скрипт
Код:
//On Error Resume Next
Dim fso1
Set fso1 = WScript.CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile "C:\Users\Rmicro\Desktop\desktop.ini", True
fso1.DeleteFile "C:\Users\Rmicro\Desktop\Thumbs.db", True
Запускался он планировщиком, теперь никак не работает, ни в ручную, ни как.
Пишет ошибку
Код:
---------------------------
Windows Script Host
---------------------------
Сценарий: C:\PROGRAMS\deldb\deldb.vbs
Строка: 1
Символ: 1
Ошибка: Предполагается наличие инструкции
Код: 800A0400
Источник: Ошибка компиляции Microsoft VBScript
---------------------------
ОК
---------------------------
|
| константин_н |
12-05-2014 06:02 2350205 |
Нашел что поменять
Код:
On Error Resume Next
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile "C:\Users\Rmicro\Desktop\desktop.ini", True
fso1.DeleteFile "C:\Users\Rmicro\Desktop\Thumbs.db", True
Тоесть убрал WScript. и теперь работает
Еще и другой вариант
Код:
FName1 = "C:\Users\Rmicro\Desktop\desktop.ini" ' Полное имя файла
FName2 = "C:\Users\Rmicro\Desktop\thumbs.db" ' Полное имя файла
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(FName1) Then
FSO.DeleteFile FName1, True
End If
If FSO.FileExists(FName2) Then
FSO.DeleteFile FName2, True
End If
|
Время: 20:43.
© OSzone.net 2001-
