Artifact
c9eb1fcf2b508ee87d1c9661d8c4386cd51a10d3:
Attachment "filedel.tcl" to
ticket [3006571fff]
added by
pherricoxide
2010-05-25 01:27:05.
0000: 77 68 69 6c 65 20 7b 74 72 75 65 7d 20 7b 0d 0a while {true} {..
0010: 09 66 69 6c 65 20 6d 6b 64 69 72 20 43 3a 2f 76 .file mkdir C:/v
0020: 76 76 0d 0a 09 66 69 6c 65 20 6d 6b 64 69 72 20 vv...file mkdir
0030: 43 3a 2f 76 76 76 2f 66 6f 6f 0d 0a 09 66 69 6c C:/vvv/foo...fil
0040: 65 20 6d 6b 64 69 72 20 43 3a 2f 76 76 76 2f 62 e mkdir C:/vvv/b
0050: 61 72 0d 0a 09 0d 0a 09 61 66 74 65 72 20 31 30 ar......after 10
0060: 30 30 0d 0a 09 0d 0a 09 77 68 69 6c 65 20 7b 5b 00......while {[
0070: 63 61 74 63 68 20 7b 66 69 6c 65 20 64 65 6c 65 catch {file dele
0080: 74 65 20 2d 66 6f 72 63 65 20 43 3a 2f 76 76 76 te -force C:/vvv
0090: 7d 20 6d 73 67 5d 7d 20 7b 0d 0a 09 09 70 75 74 } msg]} {....put
00a0: 73 20 24 6d 73 67 0d 0a 09 7d 0d 0a 09 0d 0a 09 s $msg...}......
00b0: 70 75 74 73 20 22 44 65 6c 65 74 65 64 20 43 3a puts "Deleted C:
00c0: 2f 76 76 76 22 0d 0a 0d 0a 7d /vvv"....}
