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"

}