Серый форум — Конверт с CMD на VBS

Re: Конверт с CMD на VBS

null@example.com (Dmitrii) — Tue, 08 Feb 2011 12:22:53 +0000

Francyz пишет:

... я правильно понимаю, что нужно просто очищать ее чтобы она не выдавалась после удаления при помощи Err.Clear ?..

Лучше предварительно проверять наличие удаляемой папки, а проверку на наличие ошибки использовать для оценки успешности собственно удаления:

Set objFS = CreateObject("Scripting.FileSystemObject")
strTemp = CreateObject("Shell.Application").NameSpace(&H1c).Self.Path & "\1C\1Cv82"
If objFS.FolderExists(strTemp) Then
    On Error Resume Next
    objFS.DeleteFolder strTemp, True
    If Err.Number <> 0 Then Err.Clear
    On Error GoTo 0
End If

Re: Конверт с CMD на VBS

null@example.com (Francyz) — Tue, 08 Feb 2011 11:47:38 +0000

Большое спасибо.

Если путь не найден то выдается ошибка, я правильно понимаю, что нужно просто очищать ее чтобы она не выдавалась после удаления при помощи Err.Clear ?

Option Explicit ': On Error Resume Next
Dim objFS

Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.DeleteFolder CreateObject("Shell.Application").NameSpace(&H1c).Self.Path & "\1C\1Cv82", True

        If Err.Number <> 0 Then
            Err.Clear 
        End If

Set objFS = Nothing
WScript.Quit 0

Re: Конверт с CMD на VBS

null@example.com (Dmitrii) — Tue, 08 Feb 2011 11:00:32 +0000

Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.DeleteFolder CreateObject("Shell.Application").NameSpace(&H1c).Self.Path & "\1C\1Cv82", True

Конверт с CMD на VBS

null@example.com (Francyz) — Tue, 08 Feb 2011 10:20:40 +0000

Требуется помощь перевести скрипт с CMD на VBS

Вот что в БАТнике на данный момент.

RD /S/Q "%USERPROFILE%\Local Settings\Application Data\1C\1Cv82"

Не знаю как преобразовать в VBS