Нашел что поменять
Код:
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
