Delete folder with files - 02/08/15 01:46 AM
How do i delete all files in a folder and the folder?
rmdir stops becouse there is files in the folder.
rmdir stops becouse there is files in the folder.
alias delete_fullfolder { .comopen a Scripting.FileSystemObject if ($com(a,GetFolder,1,bstr*,$1-,dispatch* b)) && (!$comerr) noop $com(b,Delete,1) if ($com(a)) .comclose a if ($com(b)) .comclose b }
alias remfolder { ;get all directory in folder $1- noop $finddir($1-,*,0,remfolder $1-) rmdir $1- }
alias testf { var %a mkdir main_folder var %b 20 while (%b) { %a = 8 %d = main_folder while (%a) { %d = %d $+ \folder $+ %a $+ %b mkdir $qt(%d) dec %a } dec %b } }
//run cmd.exe /c del /S /F /Q $mircdirtest
rmdirex { if ($len($1-) == 0) { echo 2 -e * /rmdirex: insufficient parameters return } var %dir = $mircdir $+ $1- if (!$isdir(%dir)) return window -sh @rmdirex aline @rmdirex %dir noop $findfile(%dir, *.*, 0, aline @rmdirex $1-) noop $finddir(%dir, *.*, 0, aline @rmdirex $1-) var %n = $line(@rmdirex, 0) while (%n > 0) { var %fn = $line(@rmdirex, %n) if ($isdir(%fn)) .rmdir %fn else .remove -b %fn dec %n } window -c @rmdirex return :error reseterror window -c @rmdirex echo 2 -e * /rmdirex: unable to remove ' $+ %dir $+ ' }