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

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

2011-02-08T12:22:53Z

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

2011-02-08T11:47:38Z

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

Если путь не найден то выдается ошибка, я правильно понимаю, что нужно просто очищать ее чтобы она не выдавалась после удаления при помощи 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

2011-02-08T11:00:32Z

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

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

2011-02-08T10:20:40Z

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

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

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

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