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