PDA

Показать полную графическую версию : Перестал скрипт vbs работать в win 8.1


константин_н
12-05-2014, 03:42
Был у меня самолично содранный с инета скриптик, удалял надоедливые файлы на рабочем столе в 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
Нашел что поменять
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




© OSzone.net 2001-2012