vbscript - VB Script to Delete Sub folders and files from a folder -

-

i have folder bunch of user folders , files in , need delete out of contents leave folders showing of names.

the folder structure is:

d:\users\aanderson\data\stuff
d:\users\acarlson\data\stuff
d:\users\banderson\data\stuff

and want delete but:

d:\users\aanderson\
d:\users\acarlson\
d:\users\banderson\

i tried couple different scripts pretty emptied entire folder (using test folders of course)

from command line, easiest way is

for /d %a in ("d:\users\*") (pushd "%~fa" && (rmdir . /s /q 2>nul & popd))

that is, each of subfolders, place lock in avoid removed. in case, lock pushd can not remove current working folder.

so, same in vbscript

option explicit  dim shell, fso     set shell = wscript.createobject("wscript.shell")     set fso   = wscript.createobject("scripting.filesystemobject")  dim folder     each folder in fso.getfolder("d:\users").subfolders         shell.currentdirectory = folder.path         on error resume next : folder.delete true : on error goto 0     next

Comments

Post a Comment

Popular posts from this blog

c# - HttpResponseMessage System.InvalidOperationException -

-
quite simple problem i've got easy solve reckon brains. it's tried different queries on google , nothing popped hey that's why here. here error: system.invalidoperationexception basically error thrown on piece of code here string test = response.content.headers.getvalues("location").firstordefault(); location in fiddler looks this: location: https://www.redirecturlishere.com/blah here entire function: private async task<string> getrequest() { //httpcontent postcontent = new stringcontent(post, encoding.ascii, "application/x-www-form-urlencoded"); using (httpresponsemessage response = await httpclient.getasync( "http://www.cant-share-url.com")) { using (httpcontent content = response.content) { string test = response.content.headers.getvalues("location").firstordefault(); } } return ""; ...
Read more

sql - Postgresql error: "failed to find conversion function from unknown to text" -

-
i have following postgresql query: ( select '201405mase04' testid, count(*) totq, count(distinct case when se1 = '' null else se1 end) totse, case when count(*)=0 7 else count(distinct rc) end totrc eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti.omit <> 1 ), b ( select '201405mase04' testid, count(*) totq eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti.omit = 1 ), c ( select '201405mase04' testid, count(*) totq eivtestitems ti, eivtests t ti.test_id = t.test_id , t.test_type_id = 1 , t.test_id= '201405mase04' , ti....
Read more