1 Тема от The gray Cardinal

  • The gray Cardinal
  • Разработчик
  • Неактивен

Тема: VBScript: очистка каталога

Скрипт удаляет все файлы и папки из указанного каталога. Каталог для очистки передается как параметр командной строки.
ClearFolder.vbs

Option Explicit

Dim objFSO
Dim objArgs

Dim intErrCode

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments

If objArgs.Count <> 1 Then
    WScript.Echo "Need argument [Folder]:" & vbCrLf _
        & "ClearFolder.vbs <Path to folder>"
    
    intErrCode = 1
Else
    If Not objFSO.FolderExists(objArgs(0)) Then
        WScript.Echo "Argument [" & objArgs(0) & "] is not a folder." & vbCrLf _
        & vbCrLf _
        & "Need argument [Folder]:" & vbCrLf _
        & "ClearFolder.vbs <Path to folder>"
        
        intErrCode = 2
    Else
        objFSO.DeleteFolder objFSO.BuildPath(objArgs(0), "*.*"), True
        objFSO.DeleteFile objFSO.BuildPath(objArgs(0), "*.*"), True
        
        intErrCode = 0
    End If
End If

Set objArgs = Nothing
Set objFSO = Nothing

WScript.Quit intErrCode

Автор скрипта - alexii.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.