1 Тема от Francyz (изменено: Francyz, 2011-02-08 14:20:51)

  • Francyz
  • Участник
  • Неактивен

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

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

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

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

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

2 Ответ от Dmitrii

  • Dmitrii
  • Разработчик
  • Неактивен

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

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

3 Ответ от Francyz (изменено: Francyz, 2011-02-08 15:58:14)

  • Francyz
  • Участник
  • Неактивен

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

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

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

4 Ответ от Dmitrii (изменено: Dmitrii, 2011-02-08 16:25:37)

  • Dmitrii
  • Разработчик
  • Неактивен

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

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