Dim oShell : Set oShell = CreateObject("WScript.Shell")
dim filesys
oShell.Run "taskkill /F /IM mysqld.exe", , True
Dim WShell
Set fso = CreateObject("Scripting.FileSystemObject")
file = ("C:\xampp\mysql\bin\mysqld.exe")
fso.DeleteFile file
Set WShell = Nothing
Я получаю отказ в разрешении на запуск скрипта с правами пользователя, я хочу, чтобы скрипт не отображал эту ошибку, даже если я получаю отказ в разрешении.
См. On Error - выражение языка VBScript
Если вы не используете оператор On Error Resume Next, то любая возникающая ошибка времени выполнения фатальна; т.е. отображается сообщение об ошибке, и выполнение останавливается.
On Error Resume Next вызывает продолжение выполнения с оператора, следующего сразу за оператором, вызвавшим ошибку времени выполнения, или с оператора, следующего сразу за самым последним вызовом процедуры, содержащей оператор On Error Resume Next.
Это позволяет продолжить выполнение, несмотря на ошибку во время выполнения. Затем вы можете встроить в процедуру подпрограмму обработки ошибок.
Оператор On Error Resume Next становится неактивным, если вызывается другая процедура, поэтому вы должны выполнить оператор On Error Resume Next в каждой вызываемой подпрограмме, если вы хотите встроенную обработку ошибок в этой подпрограмме.
On Error Resume Next
Dim fso,oShell,file
Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
oShell.Run "Taskkill /F /IM mysqld.exe",0,True
file = "C:\xampp\mysql\bin\mysqld.exe"
If fso.FileExists(file) Then
fso.DeleteFile file
End If
Set oShell = Nothing
Set fso = Nothing
Вы можете добавить еще кое-что в обработку ошибок:
Dim oShell
Set oShell = CreateObject("WScript.Shell")
Dim filesys
oShell.Run "taskkill /F /IM mysqld.exe", , True
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = ("C:\xampp\mysql\bin\mysqld.exe")
On Error Resume Next
fso.DeleteFile file
On Error Goto 0
Set fso = Nothing
Вы можете в любой момент отключить обработку ошибок с помощью оператора On Error Goto 0. И есть объект Err. Err.Raise ErrorCode вызывает ошибку, используя код ошибки. Err.Number дает код ошибки, а Err.Description дает подробные сведения об ошибке.
