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
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
ความคิดเห็น