Tcl Source Code

Artifact c9eb1fcf2b508ee87d1c9661d8c4386cd51a10d3:

Attachment "filedel.tcl" to ticket [3006571fff] added by pherricoxide 2010-05-25 01:27:05.

---

while {true} {
	file mkdir C:/vvv
	file mkdir C:/vvv/foo
	file mkdir C:/vvv/bar
	
	after 1000
	
	while {[catch {file delete -force C:/vvv} msg]} {
		puts $msg
	}
	
	puts "Deleted C:/vvv"

}