/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Frontier 4.2.3 / Desktop Scripts / Word Scripts / Delete Word Backups

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 44 65 6c 65 74 65 | 20 57 6f 72 64 20 42 61 |..Delete| Word Ba|
|00000010| 63 6b 75 70 73 00 00 00 | 00 00 00 00 00 00 00 00 |ckups...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 32 43 4c 4b 4c 41 4e | 44 00 00 00 00 00 00 00 |.2CLKLAN|D.......|
|00000050| 00 00 00 00 00 00 00 00 | 00 08 4d a6 f5 0a 97 a6 |........|..M.....|
|00000060| fd dc d8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8a 8f 00 00 |........|........|
|00000080| 00 00 01 00 00 00 07 ef | 00 00 06 ef 00 00 00 5e |........|.......^|
|00000090| 8a 8d 67 01 66 d8 52 5a | 6a 01 20 17 67 56 5a 54 |..g.f.RZ|j. .gVZT|
|000000a0| 90 50 01 00 fa 68 54 73 | c4 9f 37 4b 23 39 49 50 |.P...hTs|..7K#9IP|
|000000b0| 13 44 65 6c 65 74 65 20 | 57 6f 72 64 20 42 61 63 |.Delete |Word Bac|
|000000c0| 6b 75 70 73 02 00 00 00 | 50 61 72 74 53 49 54 21 |kups....|PartSIT!|
|000000d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 b0 1d a2 c2 00 00 | 00 00 00 00 08 4d 10 e4 |........|.....M..|
|00000100| 80 ef 7d 56 7f 7e 6a 50 | 01 26 b2 60 20 02 01 00 |..}V.~jP|.&.` ...|
|00000110| f4 2e 7f 20 03 01 3c 00 | 68 71 ab 03 4a 47 67 4c |... ..<.|hq..JGgL|
|00000120| bc 47 14 56 c0 02 40 00 | 01 48 c0 01 1a 00 20 02 |.G.V..@.|.H.... .|
|00000130| 01 01 00 2e 7f 20 03 01 | b0 47 20 04 02 8a 00 4a |..... ..|.G ....J|
|00000140| 05 67 34 86 01 0b ef 33 | 01 1c 3a 33 01 20 aa 2f |.g4....3|..:3. ./|
|00000150| 35 42 7f 7e 6a 50 01 26 | ba 6d 7f 01 21 44 5e 73 |5B.~jP.&|.m..!D^s|
|00000160| 01 18 f0 9f 37 9a 5c 26 | 24 7f 01 08 28 a3 03 00 |....7.\&|$...(...|
|00000170| 70 56 c7 44 07 7f 03 4a | 68 00 6e 66 14 31 04 66 |pV.D...J|h.nf.1.f|
|00000180| 00 00 00 06 05 32 2e 30 | 62 37 00 00 00 09 08 46 |.....2.0|b7.....F|
|00000190| 72 6f 6e 74 69 65 72 00 | 00 06 ab 00 01 04 fe 00 |rontier.|........|
|000001a0| 02 00 00 00 f6 00 00 05 | 39 00 00 02 00 00 0f 06 |........|9.......|
|000001b0| 47 65 6e 65 76 61 00 00 | 00 00 00 00 00 00 00 00 |Geneva..|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 09 00 00 00 00 00 | 07 00 00 00 00 06 45 00 |........|......E.|
|000001e0| 00 a4 bc 6f 65 a6 f5 0a | 97 00 00 00 2d 00 00 00 |...oe...|....-...|
|000001f0| 2a 00 42 01 83 01 f7 00 | 00 00 00 00 00 00 00 00 |*.B.....|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 6f | 6e 20 64 65 6c 65 74 65 |.......o|n delete|
|00000220| 57 6f 72 64 42 61 63 6b | 75 70 73 20 28 70 61 74 |WordBack|ups (pat|
|00000230| 68 29 0d 09 6c 6f 63 61 | 6c 20 28 63 74 72 65 63 |h)..loca|l (ctrec|
|00000240| 6c 61 69 6d 65 64 20 3d | 20 30 29 20 c7 6e 75 6d |laimed =| 0) .num|
|00000250| 62 65 72 20 6f 66 20 62 | 79 74 65 73 20 72 65 63 |ber of b|ytes rec|
|00000260| 6c 61 69 6d 65 64 0d 09 | 6c 6f 63 61 6c 20 28 63 |laimed..|local (c|
|00000270| 74 6d 61 74 63 68 65 73 | 20 3d 20 30 29 20 c7 6e |tmatches| = 0) .n|
|00000280| 75 6d 62 65 72 20 6f 66 | 20 41 70 70 6c 65 4c 69 |umber of| AppleLi|
|00000290| 6e 6b 20 70 61 63 6b 61 | 67 65 73 20 77 65 20 66 |nk packa|ges we f|
|000002a0| 6f 75 6e 64 0d 09 6c 6f | 63 61 6c 20 28 63 6f 6e |ound..lo|cal (con|
|000002b0| 66 69 72 6d 61 74 69 6f | 6e 64 69 73 61 62 6c 65 |firmatio|ndisable|
|000002c0| 64 20 3d 20 66 61 6c 73 | 65 29 0d 09 0d 09 66 69 |d = fals|e)....fi|
|000002d0| 6c 65 6c 6f 6f 70 20 28 | 66 20 69 6e 20 66 69 6c |leloop (|f in fil|
|000002e0| 65 2e 66 6f 6c 64 65 72 | 46 72 6f 6d 50 61 74 68 |e.folder|FromPath|
|000002f0| 20 28 70 61 74 68 29 2c | 20 69 6e 66 69 6e 69 74 | (path),| infinit|
|00000300| 79 29 0d 09 09 6c 6f 63 | 61 6c 20 28 66 6e 61 6d |y)...loc|al (fnam|
|00000310| 65 20 3d 20 66 69 6c 65 | 2e 66 69 6c 65 46 72 6f |e = file|.fileFro|
|00000320| 6d 50 61 74 68 20 28 66 | 29 29 0d 09 09 6d 73 67 |mPath (f|))...msg|
|00000330| 20 28 66 6e 61 6d 65 29 | 0d 09 09 69 66 20 73 74 | (fname)|...if st|
|00000340| 72 69 6e 67 2e 70 61 74 | 74 65 72 6e 4d 61 74 63 |ring.pat|ternMatc|
|00000350| 68 20 28 22 42 61 63 6b | 75 70 20 6f 66 22 2c 20 |h ("Back|up of", |
|00000360| 66 6e 61 6d 65 29 20 3d | 3d 20 31 20 c7 69 74 27 |fname) =|= 1 .it'|
|00000370| 73 20 61 20 62 61 63 6b | 75 70 20 6f 66 20 73 6f |s a back|up of so|
|00000380| 6d 65 74 68 69 6e 67 0d | 09 09 09 69 66 20 28 66 |mething.|...if (f|
|00000390| 69 6c 65 2e 74 79 70 65 | 20 28 66 29 20 3d 3d 20 |ile.type| (f) == |
|000003a0| 27 57 44 42 4e 27 29 20 | 61 6e 64 20 28 66 69 6c |'WDBN') |and (fil|
|000003b0| 65 2e 63 72 65 61 74 6f | 72 20 28 66 29 20 3d 3d |e.creato|r (f) ==|
|000003c0| 20 27 4d 53 57 44 27 29 | 20 c7 69 74 27 73 20 61 | 'MSWD')| .it's a|
|000003d0| 20 57 6f 72 64 20 66 69 | 6c 65 0d 09 09 09 09 6c | Word fi|le.....l|
|000003e0| 6f 63 61 6c 20 28 64 65 | 6c 65 74 65 29 0d 09 09 |ocal (de|lete)...|
|000003f0| 09 09 69 66 20 63 6f 6e | 66 69 72 6d 61 74 69 6f |..if con|firmatio|
|00000400| 6e 64 69 73 61 62 6c 65 | 64 0d 09 09 09 09 09 64 |ndisable|d......d|
|00000410| 65 6c 65 74 65 20 3d 20 | 74 72 75 65 0d 09 09 09 |elete = |true....|
|00000420| 09 65 6c 73 65 0d 09 09 | 09 09 09 6c 6f 63 61 6c |.else...|...local|
|00000430| 20 28 73 2c 20 72 65 73 | 75 6c 74 29 0d 09 09 09 | (s, res|ult)....|
|00000440| 09 09 73 20 3d 20 22 54 | 68 65 20 66 69 6c 65 20 |..s = "T|he file |
|00000450| d2 22 20 2b 20 20 66 69 | 6c 65 2e 66 69 6c 65 46 |." +  fi|le.fileF|
|00000460| 72 6f 6d 50 61 74 68 20 | 28 66 29 20 2b 20 22 d3 |romPath |(f) + ".|
|00000470| 20 69 73 20 61 20 57 6f | 72 64 20 62 61 63 6b 75 | is a Wo|rd backu|
|00000480| 70 20 66 69 6c 65 2e 22 | 0d 09 09 09 09 09 73 20 |p file."|......s |
|00000490| 3d 20 73 20 2b 20 22 20 | 57 6f 75 6c 64 20 79 6f |= s + " |Would yo|
|000004a0| 75 20 6c 69 6b 65 20 74 | 6f 20 64 65 6c 65 74 65 |u like t|o delete|
|000004b0| 20 69 74 3f 22 0d 09 09 | 09 09 09 6d 73 67 20 28 | it?"...|...msg (|
|000004c0| 22 4f 70 74 69 6f 6e 2d | 79 65 73 20 64 69 73 61 |"Option-|yes disa|
|000004d0| 62 6c 65 73 20 63 6f 6e | 66 69 72 6d 61 74 69 6f |bles con|firmatio|
|000004e0| 6e 20 64 69 61 6c 6f 67 | 2e 22 29 0d 09 09 09 09 |n dialog|.").....|
|000004f0| 09 72 65 73 75 6c 74 20 | 3d 20 64 69 61 6c 6f 67 |.result |= dialog|
|00000500| 2e 79 65 73 4e 6f 43 61 | 6e 63 65 6c 20 28 73 29 |.yesNoCa|ncel (s)|
|00000510| 0d 09 09 09 09 09 6d 73 | 67 20 28 22 22 29 0d 09 |......ms|g ("")..|
|00000520| 09 09 09 09 63 61 73 65 | 20 72 65 73 75 6c 74 0d |....case| result.|
|00000530| 09 09 09 09 09 09 31 20 | c7 79 65 73 0d 09 09 09 |......1 |.yes....|
|00000540| 09 09 09 09 69 66 20 6b | 62 2e 6f 70 74 69 6f 6e |....if k|b.option|
|00000550| 4b 65 79 20 28 29 0d 09 | 09 09 09 09 09 09 09 63 |Key ()..|.......c|
|00000560| 6f 6e 66 69 72 6d 61 74 | 69 6f 6e 64 69 73 61 62 |onfirmat|iondisab|
|00000570| 6c 65 64 20 3d 20 74 72 | 75 65 0d 09 09 09 09 09 |led = tr|ue......|
|00000580| 09 09 64 65 6c 65 74 65 | 20 3d 20 74 72 75 65 0d |..delete| = true.|
|00000590| 09 09 09 09 09 09 32 20 | c7 6e 6f 0d 09 09 09 09 |......2 |.no.....|
|000005a0| 09 09 09 64 65 6c 65 74 | 65 20 3d 20 66 61 6c 73 |...delet|e = fals|
|000005b0| 65 0d 09 09 09 09 09 09 | 33 20 c7 63 61 6e 63 65 |e.......|3 .cance|
|000005c0| 6c 0d 09 09 09 09 09 09 | 09 72 65 74 75 72 6e 20 |l.......|.return |
|000005d0| 28 66 61 6c 73 65 29 20 | c7 68 61 6c 74 20 74 72 |(false) |.halt tr|
|000005e0| 61 76 65 72 73 61 6c 0d | 09 09 09 09 63 74 6d 61 |aversal.|....ctma|
|000005f0| 74 63 68 65 73 2b 2b 0d | 09 09 09 09 69 66 20 64 |tches++.|....if d|
|00000600| 65 6c 65 74 65 0d 09 09 | 09 09 09 63 74 72 65 63 |elete...|...ctrec|
|00000610| 6c 61 69 6d 65 64 20 3d | 20 63 74 72 65 63 6c 61 |laimed =| ctrecla|
|00000620| 69 6d 65 64 20 2b 20 66 | 69 6c 65 2e 73 69 7a 65 |imed + f|ile.size|
|00000630| 20 28 66 29 0d 09 09 09 | 09 09 66 69 6c 65 2e 64 | (f)....|..file.d|
|00000640| 65 6c 65 74 65 20 28 66 | 29 0d 09 0d 09 69 66 20 |elete (f|)....if |
|00000650| 63 74 6d 61 74 63 68 65 | 73 20 3d 3d 20 30 0d 09 |ctmatche|s == 0..|
|00000660| 09 6c 6f 63 61 6c 20 28 | 73 20 3d 20 66 69 6c 65 |.local (|s = file|
|00000670| 2e 66 69 6c 65 46 72 6f | 6d 50 61 74 68 20 28 66 |.fileFro|mPath (f|
|00000680| 69 6c 65 2e 66 6f 6c 64 | 65 72 46 72 6f 6d 50 61 |ile.fold|erFromPa|
|00000690| 74 68 20 28 70 61 74 68 | 29 29 29 0d 09 09 73 20 |th (path|)))...s |
|000006a0| 3d 20 22 54 68 65 72 65 | 20 61 72 65 20 6e 6f 20 |= "There| are no |
|000006b0| 57 6f 72 64 20 62 61 63 | 6b 75 70 20 66 69 6c 65 |Word bac|kup file|
|000006c0| 73 20 69 6e 20 74 68 65 | 20 d2 22 20 2b 20 73 20 |s in the| ." + s |
|000006d0| 2b 20 22 d3 20 66 6f 6c | 64 65 72 2e 22 0d 09 09 |+ ". fol|der."...|
|000006e0| 64 69 61 6c 6f 67 2e 61 | 6c 65 72 74 20 28 73 29 |dialog.a|lert (s)|
|000006f0| 0d 09 65 6c 73 65 0d 09 | 09 69 66 20 63 74 72 65 |..else..|.if ctre|
|00000700| 63 6c 61 69 6d 65 64 20 | 3e 20 30 0d 09 09 09 64 |claimed |> 0....d|
|00000710| 69 61 6c 6f 67 2e 61 6c | 65 72 74 20 28 73 74 72 |ialog.al|ert (str|
|00000720| 69 6e 67 2e 6b 42 79 74 | 65 73 20 28 63 74 72 65 |ing.kByt|es (ctre|
|00000730| 63 6c 61 69 6d 65 64 29 | 20 2b 20 22 20 62 79 74 |claimed)| + " byt|
|00000740| 65 73 20 72 65 63 6c 61 | 69 6d 65 64 21 22 29 0d |es recla|imed!").|
|00000750| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000760| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000770| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000780| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000790| 00 00 80 00 00 00 00 00 | 00 00 00 00 00 00 80 00 |........|........|
|000007a0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000007b0| 80 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000007c0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 80 00 |........|........|
|00000800| 00 00 00 00 80 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000840| 80 00 00 00 00 00 00 00 | 00 25 24 73 79 73 74 65 |........|.%$syste|
|00000850| 6d 2e 64 65 73 6b 73 63 | 72 69 70 74 73 2e 64 65 |m.desksc|ripts.de|
|00000860| 6c 65 74 65 57 6f 72 64 | 42 61 63 6b 75 70 73 00 |leteWord|Backups.|
|00000870| 00 01 00 00 00 07 ef 00 | 00 06 ef 00 00 00 5e 00 |........|......^.|
|00000880| ed cb 18 0d 98 00 00 00 | 1c 00 5e 00 01 53 54 52 |........|..^..STR|
|00000890| 20 00 02 00 12 73 63 70 | 74 00 00 00 36 00 80 ff | ....scp|t...6...|
|000008a0| ff 00 00 00 00 00 00 00 | 00 bf f4 ff ff 00 00 00 |........|........|
|000008b0| 0a 00 00 00 00 00 82 ff | ff 00 00 06 c6 00 00 00 |........|........|
|000008c0| 00 00 81 ff ff 00 00 00 | 17 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+