Script Clear file and folder on share folder

dim fs,fo,x
set fs=CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("D:\Your_Path\")

for each x in fo.files
fs.DeleteFile("D:\Your_Path\" & x.Name)
next

for each x in fo.subfolders
fs.DeleteFolder("D:\Your_Path\" & x.Name)
next

set fo=nothing
set fs=nothing