/ Software of the Month Club 1999 November / SOTMC_Nov1999-Ultimate.iso / mac / REALbasic ƒ / Examples / Applications / FileBrowser#1 / file browser.proj

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0b 06 00 00 41 41 41 41 | 41 41 41 41 41 41 41 41 |....AAAA|AAAAAAAA|
|00000010| 41 41 41 41 01 04 3f 3f | 3f 3f 00 00 01 01 00 00 |AAAA..??|??......|
|00000020| 0c 46 69 6c 65 20 42 72 | 6f 77 73 65 72 80 80 80 |.File Br|owser...|
|00000030| 01 80 80 80 01 01 00 00 | 00 00 00 00 00 02 49 43 |........|......IC|
|00000040| 4e 23 80 04 00 01 80 00 | 00 06 60 00 00 18 18 00 |N#......|..`.....|
|00000050| 00 60 06 00 00 48 0a 00 | 00 42 22 00 00 40 8a 00 |.`...H..|.B"..@..|
|00000060| 00 40 22 00 00 40 8a 00 | 00 40 22 00 00 40 8a 00 |.@"..@..|.@"..@..|
|00000070| 00 60 26 00 01 98 99 80 | 06 06 60 60 18 01 80 18 |.`&.....|..``....|
|00000080| 12 02 20 28 10 88 88 88 | 10 22 02 28 30 08 80 8c |.. (....|.".(0...|
|00000090| 70 22 02 2a 90 08 80 8d | b0 22 02 2b 98 09 80 99 |p".*....|.".+....|
|000000a0| a6 26 62 67 69 98 19 9e | 1a 60 06 78 06 80 01 e0 |.&bgi...|.`.x....|
|000000b0| 01 a0 07 80 00 68 1e 00 | 00 1a 78 00 00 06 e0 00 |.....h..|..x.....|
|000000c0| 00 01 80 00 00 01 80 00 | 00 07 e0 00 00 1f f8 00 |........|........|
|000000d0| 00 7f fe 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|000000e0| 00 7f fe 00 00 7f fe 00 | 00 7f fe 00 00 7f fe 00 |........|........|
|000000f0| 00 7f fe 00 01 ff ff 80 | 07 ff ff e0 1f ff ff f8 |........|........|
|00000100| 1f ff ff f8 1f ff ff f8 | 1f ff ff f8 3f ff ff fc |........|....?...|
|00000110| 7f ff ff fe ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000120| ff ff ff ff 7f ff ff fe | 1f ff ff f8 07 ff ff e0 |........|........|
|00000130| 01 ff ff 80 00 7f fe 00 | 00 1f f8 00 00 07 e0 00 |........|........|
|00000140| 00 01 80 00 69 63 6c 38 | 80 10 00 00 00 00 00 00 |....icl8|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 ff ff 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 ff | ff e1 e1 ff ff 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 ff ff e1 | e1 e1 e1 e1 e1 ff ff 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 ff ff e1 e1 e1 | e1 e1 e1 e1 e1 e1 e1 ff |........|........|
|000001c0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 ff e3 e3 00 e1 | e1 e1 e1 e1 e1 e1 e3 e5 |........|........|
|000001e0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 ff e3 e3 e3 e3 | 00 e1 e1 e1 e3 e5 e5 e5 |........|........|
|00000200| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 ff e3 e3 e3 e3 | e3 e3 00 e5 e5 e5 e5 e5 |........|........|
|00000220| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 ff e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 e5 e5 |........|........|
|00000240| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 ff e3 e3 e3 e3 | e3 e3 e3 e5 e5 e5 e5 e5 |........|........|
|00000260| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 ff e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 e5 e5 |........|........|
|00000280| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 ff e3 e3 e3 e3 | e3 e3 e3 e5 e5 e5 e5 e5 |........|........|
|000002a0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 ff e3 e3 e3 e3 | e3 e3 e5 e5 e5 e5 e5 e5 |........|........|
|000002c0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 ff ff 2a 2a e3 e3 e3 | e3 e3 e3 e5 e5 e5 e5 0b |...**...|........|
|000002e0| 0b ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|000002f0| ff 2a 2a 2a 2a 2a 2a e3 | e3 e3 e5 e5 e5 0b 0b 0b |.******.|........|
|00000300| 0b 0b 0b ff ff 00 00 00 | 00 00 00 00 00 ff ff 2a |........|.......*|
|00000310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 54 0b 0b 0b 0b 0b |********|**T.....|
|00000320| 0b 0b 0b 0b 0b ff ff 00 | 00 00 00 00 00 ff 54 54 |........|......TT|
|00000330| 00 2a 2a 2a 2a 2a 2a 2a | 54 7f 11 11 00 0b 0b 0b |.*******|T.......|
|00000340| 0b 0b 0b 0b 11 17 ff 00 | 00 00 00 00 00 ff 54 54 |........|......TT|
|00000350| 54 54 00 2a 2a 2a 54 7f | 7f 7f 7f 11 11 11 00 0b |TT.***T.|........|
|00000360| 0b 0b 11 17 17 17 ff 00 | 00 00 00 00 00 ff 54 54 |........|......TT|
|00000370| 54 54 54 54 00 7f 7f 7f | 7f 7f 11 11 11 11 11 11 |TTTT....|........|
|00000380| 00 17 17 17 17 17 ff 00 | 00 00 00 00 ff ff 54 54 |........|......TT|
|00000390| 54 54 54 54 7f 7f 7f 7f | 7f 7f 7f 11 11 11 11 11 |TTTT....|........|
|000003a0| 17 17 17 17 17 17 ff ff | 00 00 00 ff 00 ff 54 54 |........|......TT|
|000003b0| 54 54 54 54 54 7f 7f 7f | 7f 7f 11 11 11 11 11 11 |TTTTT...|........|
|000003c0| 11 17 17 17 17 17 ff f9 | ff 00 ff 00 f7 ff 54 54 |........|......TT|
|000003d0| 54 54 54 54 7f 7f 7f 7f | 7f 7f 7f 11 11 11 11 11 |TTTT....|........|
|000003e0| 17 17 17 17 17 17 ff f7 | f9 ff ff f7 f7 ff 54 54 |........|......TT|
|000003f0| 54 54 54 54 54 7f 7f 7f | 7f 7f 11 11 11 11 11 11 |TTTTT...|........|
|00000400| 11 17 17 17 17 17 ff f7 | f7 ff ff f7 00 ff ff 54 |........|.......T|
|00000410| 54 54 54 54 7f 7f 7f 7f | 7f ff ff 11 11 11 11 11 |TTTT....|........|
|00000420| 17 17 17 17 17 ff ff f7 | f9 ff ff f7 f7 f7 00 ff |........|........|
|00000430| ff 54 54 54 54 7f 7f ff | ff f9 f9 ff ff 11 11 11 |.TTTT...|........|
|00000440| 11 17 17 ff ff f7 f9 f9 | f9 ff 00 ff ff f7 f7 f7 |........|........|
|00000450| 00 ff ff 54 7f ff ff f9 | f9 f9 f9 f7 f6 ff ff 11 |...T....|........|
|00000460| 17 ff ff f7 f9 f9 f9 ff | ff 00 00 00 00 ff ff f7 |........|........|
|00000470| f7 f7 00 ff ff f9 f9 f9 | f7 f6 f6 f6 f6 f6 f6 ff |........|........|
|00000480| ff f7 f9 f9 f9 ff ff 00 | 00 00 00 00 00 00 00 ff |........|........|
|00000490| ff f7 f7 f7 00 00 f6 f6 | f6 f6 f6 f6 f6 f6 f7 f7 |........|........|
|000004a0| f9 f9 f9 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 ff ff f7 f7 f7 00 00 | f6 f6 f6 f6 f7 f7 f9 f9 |........|........|
|000004c0| f9 ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 ff ff f7 f7 f7 | 00 00 f7 f7 f9 f9 f9 ff |........|........|
|000004e0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 ff ff f7 | f7 f7 f9 f9 f9 ff ff 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 ff | ff f7 f9 ff ff 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 ff ff 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 01 07 61 6e 79 46 |........|....anyF|
|00000550| 69 6c 65 04 3f 3f 3f 3f | 04 3f 3f 3f 3f 00 00 01 |ile.????|.????...|
|00000560| 41 04 56 69 65 77 07 57 | 69 6e 64 6f 77 31 04 aa |A.View.W|indow1..|
|00000570| 02 be 05 12 04 4e 61 6d | 65 07 57 69 6e 64 6f 77 |.....Nam|e.Window|
|00000580| 31 05 46 72 61 6d 65 01 | 30 0c 48 61 73 42 61 63 |1.Frame.|0.HasBac|
|00000590| 6b 43 6f 6c 6f 72 05 46 | 61 6c 73 65 09 42 61 63 |kColor.F|alse.Bac|
|000005a0| 6b 43 6f 6c 6f 72 08 31 | 36 37 37 37 32 31 35 08 |kColor.1|6777215.|
|000005b0| 42 61 63 6b 64 72 6f 70 | 01 30 05 54 69 74 6c 65 |Backdrop|.0.Title|
|000005c0| 0c 46 69 6c 65 20 42 72 | 6f 77 73 65 72 07 56 69 |.File Br|owser.Vi|
|000005d0| 73 69 62 6c 65 04 54 72 | 75 65 08 43 6c 6f 73 65 |sible.Tr|ue.Close|
|000005e0| 42 6f 78 04 54 72 75 65 | 08 47 72 6f 77 49 63 6f |Box.True|.GrowIco|
|000005f0| 6e 04 54 72 75 65 08 5a | 6f 6f 6d 49 63 6f 6e 04 |n.True.Z|oomIcon.|
|00000600| 54 72 75 65 0b 42 61 6c | 6c 6f 6f 6e 48 65 6c 70 |True.Bal|loonHelp|
|00000610| 00 09 50 6c 61 63 65 6d | 65 6e 74 01 30 05 57 69 |..Placem|ent.0.Wi|
|00000620| 64 74 68 03 34 36 32 06 | 48 65 69 67 68 74 03 33 |dth.462.|Height.3|
|00000630| 36 30 08 4d 69 6e 57 69 | 64 74 68 02 36 34 09 4d |60.MinWi|dth.64.M|
|00000640| 69 6e 48 65 69 67 68 74 | 02 36 34 08 4d 61 78 57 |inHeight|.64.MaxW|
|00000650| 69 64 74 68 03 34 36 35 | 09 4d 61 78 48 65 69 67 |idth.465|.MaxHeig|
|00000660| 68 74 05 33 32 30 30 30 | 07 00 07 57 69 6e 64 6f |ht.32000|...Windo|
|00000670| 77 31 9c 01 06 41 70 70 | 6c 65 74 00 02 1d 6f 6e |w1...App|let...on|
|00000680| 65 43 6f 6e 74 65 6e 74 | 73 20 28 30 29 20 61 73 |eContent|s (0) as|
|00000690| 20 66 6f 6c 64 65 72 49 | 74 65 6d 00 1d 74 77 6f | folderI|tem..two|
|000006a0| 43 6f 6e 74 65 6e 74 73 | 20 28 30 29 20 61 73 20 |Contents| (0) as |
|000006b0| 66 6f 6c 64 65 72 49 74 | 65 6d 00 02 0f 70 61 72 |folderIt|em...par|
|000006c0| 73 65 46 6f 6c 64 65 72 | 46 6f 72 31 13 65 6e 74 |seFolder|For1.ent|
|000006d0| 72 79 20 61 73 20 66 6f | 6c 64 65 72 49 74 65 6d |ry as fo|lderItem|
|000006e0| 00 00 16 18 15 00 22 28 | 53 75 62 20 70 61 72 73 |......"(|Sub pars|
|000006f0| 65 46 6f 6c 64 65 72 46 | 6f 72 31 28 65 6e 74 72 |eFolderF|or1(entr|
|00000700| 79 20 61 73 20 66 6f 6c | 64 65 72 49 74 65 6d 29 |y as fol|derItem)|
|00000710| 1a 64 69 6d 20 6c 6f 6f | 70 43 6f 75 6e 74 65 72 |.dim loo|pCounter|
|00000720| 20 61 73 20 69 6e 74 65 | 67 65 72 00 23 2f 2f 20 | as inte|ger.#// |
|00000730| 63 6c 65 61 72 20 6f 75 | 74 20 61 6e 79 74 68 69 |clear ou|t anythi|
|00000740| 6e 67 20 74 68 65 72 65 | 20 61 6c 72 65 61 64 79 |ng there| already|
|00000750| 14 72 65 64 69 6d 20 6f | 6e 65 43 6f 6e 74 65 6e |.redim o|neConten|
|00000760| 74 73 28 30 29 14 6f 6e | 65 43 6f 6e 74 65 6e 74 |ts(0).on|eContent|
|00000770| 73 28 30 29 20 3d 20 6e | 69 6c 16 6c 69 73 74 62 |s(0) = n|il.listb|
|00000780| 6f 78 31 2e 64 65 6c 65 | 74 65 41 6c 6c 52 6f 77 |ox1.dele|teAllRow|
|00000790| 73 00 16 2f 2f 20 6e 6f | 74 65 20 77 68 65 72 65 |s..// no|te where|
|000007a0| 20 77 65 27 72 65 20 61 | 74 19 6f 6e 65 54 65 78 | we're a|t.oneTex|
|000007b0| 74 2e 74 65 78 74 20 3d | 20 65 6e 74 72 79 2e 6e |t.text =| entry.n|
|000007c0| 61 6d 65 00 37 2f 2f 20 | 61 64 64 20 74 68 65 20 |ame.7// |add the |
|000007d0| 69 74 65 6d 73 20 62 79 | 20 6c 6f 6f 70 69 6e 67 |items by| looping|
|000007e0| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 66 6f 6c | through| the fol|
|000007f0| 64 65 72 20 63 6f 6e 74 | 65 6e 74 73 22 66 6f 72 |der cont|ents"for|
|00000800| 20 6c 6f 6f 70 43 6f 75 | 6e 74 65 72 20 3d 20 31 | loopCou|nter = 1|
|00000810| 20 74 6f 20 65 6e 74 72 | 79 2e 63 6f 75 6e 74 29 | to entr|y.count)|
|00000820| 2f 2f 20 69 66 20 69 74 | 27 73 20 61 20 64 69 72 |// if it|'s a dir|
|00000830| 65 63 74 6f 72 79 2c 20 | 61 64 64 20 61 20 66 6f |ectory, |add a fo|
|00000840| 6c 64 65 72 20 69 63 6f | 6e 29 69 66 20 65 6e 74 |lder ico|n)if ent|
|00000850| 72 79 2e 69 74 65 6d 28 | 6c 6f 6f 70 43 6f 75 6e |ry.item(|loopCoun|
|00000860| 74 65 72 29 2e 64 69 72 | 65 63 74 6f 72 79 20 74 |ter).dir|ectory t|
|00000870| 68 65 6e 2c 6c 69 73 74 | 42 6f 78 31 2e 61 64 64 |hen,list|Box1.add|
|00000880| 52 6f 77 20 65 6e 74 72 | 79 2e 69 74 65 6d 28 6c |Row entr|y.item(l|
|00000890| 6f 6f 70 43 6f 75 6e 74 | 65 72 29 2e 6e 61 6d 65 |oopCount|er).name|
|000008a0| 31 6c 69 73 74 42 6f 78 | 31 2e 72 6f 77 50 69 63 |1listBox|1.rowPic|
|000008b0| 74 75 72 65 28 6c 6f 6f | 70 43 6f 75 6e 74 65 72 |ture(loo|pCounter|
|000008c0| 20 2d 20 31 29 20 3d 20 | 6d 69 6e 69 46 6f 6c 64 | - 1) = |miniFold|
|000008d0| 65 72 16 2f 2f 20 69 66 | 20 6e 6f 74 2c 20 6a 75 |er.// if| not, ju|
|000008e0| 73 74 20 61 64 64 20 69 | 74 04 65 6c 73 65 2c 6c |st add i|t.else,l|
|000008f0| 69 73 74 42 6f 78 31 2e | 61 64 64 52 6f 77 20 65 |istBox1.|addRow e|
|00000900| 6e 74 72 79 2e 69 74 65 | 6d 28 6c 6f 6f 70 43 6f |ntry.ite|m(loopCo|
|00000910| 75 6e 74 65 72 29 2e 6e | 61 6d 65 06 65 6e 64 20 |unter).n|ame.end |
|00000920| 69 66 3c 2f 2f 20 70 6c | 75 73 2c 20 74 6f 20 6b |if<// pl|us, to k|
|00000930| 65 65 70 20 74 72 61 63 | 6b 20 6f 66 20 74 68 65 |eep trac|k of the|
|00000940| 20 66 69 6c 65 2c 20 61 | 64 64 20 69 74 20 74 6f | file, a|dd it to|
|00000950| 20 61 6e 20 61 72 72 72 | 61 79 20 74 68 61 74 18 | an arrr|ay that.|
|00000960| 2f 2f 20 70 61 72 61 6c | 6c 65 6c 73 20 74 68 65 |// paral|lels the|
|00000970| 20 6c 69 73 74 42 6f 78 | 1d 69 66 20 28 6c 6f 6f | listBox|.if (loo|
|00000980| 70 43 6f 75 6e 74 65 72 | 20 2d 20 31 29 20 3d 20 |pCounter| - 1) = |
|00000990| 30 20 74 68 65 6e 1e 6f | 6e 65 43 6f 6e 74 65 6e |0 then.o|neConten|
|000009a0| 74 73 28 30 29 20 3d 20 | 65 6e 74 72 79 2e 69 74 |ts(0) = |entry.it|
|000009b0| 65 6d 28 31 29 04 65 6c | 73 65 2a 6f 6e 65 43 6f |em(1).el|se*oneCo|
|000009c0| 6e 74 65 6e 74 73 2e 61 | 70 70 65 6e 64 20 65 6e |ntents.a|ppend en|
|000009d0| 74 72 79 2e 69 74 65 6d | 28 6c 6f 6f 70 43 6f 75 |try.item|(loopCou|
|000009e0| 6e 74 65 72 29 06 65 6e | 64 20 69 66 04 6e 65 78 |nter).en|d if.nex|
|000009f0| 74 00 27 2f 2f 20 74 68 | 65 6e 2c 20 67 69 76 65 |t.'// th|en, give|
|00000a00| 20 74 68 65 20 75 73 65 | 72 20 61 20 77 61 79 20 | the use|r a way |
|00000a10| 74 6f 20 62 61 63 6b 20 | 75 70 19 6c 69 73 74 42 |to back |up.listB|
|00000a20| 6f 78 31 2e 61 64 64 52 | 6f 77 20 22 42 61 63 6b |ox1.addR|ow "Back|
|00000a30| 2e 2e 2e 22 30 6c 69 73 | 74 42 6f 78 31 2e 72 6f |..."0lis|tBox1.ro|
|00000a40| 77 50 69 63 74 75 72 65 | 28 6c 6f 6f 70 43 6f 75 |wPicture|(loopCou|
|00000a50| 6e 74 65 72 20 2d 20 31 | 29 20 3d 20 6d 69 6e 69 |nter - 1|) = mini|
|00000a60| 41 72 72 6f 77 07 45 6e | 64 20 53 75 62 0f 70 61 |Arrow.En|d Sub.pa|
|00000a70| 72 73 65 46 6f 6c 64 65 | 72 46 6f 72 32 13 65 6e |rseFolde|rFor2.en|
|00000a80| 74 72 79 20 61 73 20 66 | 6f 6c 64 65 72 49 74 65 |try as f|olderIte|
|00000a90| 6d 00 00 17 18 17 18 20 | 28 53 75 62 20 70 61 72 |m...... |(Sub par|
|00000aa0| 73 65 46 6f 6c 64 65 72 | 46 6f 72 32 28 65 6e 74 |seFolder|For2(ent|
|00000ab0| 72 79 20 61 73 20 66 6f | 6c 64 65 72 49 74 65 6d |ry as fo|lderItem|
|00000ac0| 29 1a 64 69 6d 20 6c 6f | 6f 70 43 6f 75 6e 74 65 |).dim lo|opCounte|
|00000ad0| 72 20 61 73 20 69 6e 74 | 65 67 65 72 00 23 2f 2f |r as int|eger.#//|
|00000ae0| 20 63 6c 65 61 72 20 6f | 75 74 20 61 6e 79 74 68 | clear o|ut anyth|
|00000af0| 69 6e 67 20 74 68 65 72 | 65 20 61 6c 72 65 61 64 |ing ther|e alread|
|00000b00| 79 16 6c 69 73 74 42 6f | 78 32 2e 64 65 6c 65 74 |y.listBo|x2.delet|
|00000b10| 65 41 6c 6c 52 6f 77 73 | 14 72 65 64 69 6d 20 74 |eAllRows|.redim t|
|00000b20| 77 6f 43 6f 6e 74 65 6e | 74 73 28 30 29 14 74 77 |woConten|ts(0).tw|
|00000b30| 6f 43 6f 6e 74 65 6e 74 | 73 28 30 29 20 3d 20 6e |oContent|s(0) = n|
|00000b40| 69 6c 00 16 2f 2f 20 6e | 6f 74 65 20 77 68 65 72 |il..// n|ote wher|
|00000b50| 65 20 77 65 27 72 65 20 | 61 74 19 74 77 6f 54 65 |e we're |at.twoTe|
|00000b60| 78 74 2e 74 65 78 74 20 | 3d 20 65 6e 74 72 79 2e |xt.text |= entry.|
|00000b70| 6e 61 6d 65 00 37 2f 2f | 20 61 64 64 20 74 68 65 |name.7//| add the|
|00000b80| 20 69 74 65 6d 73 20 62 | 79 20 6c 6f 6f 70 69 6e | items b|y loopin|
|00000b90| 67 20 74 68 72 6f 75 67 | 68 20 74 68 65 20 66 6f |g throug|h the fo|
|00000ba0| 6c 64 65 72 20 63 6f 6e | 74 65 6e 74 73 22 66 6f |lder con|tents"fo|
|00000bb0| 72 20 6c 6f 6f 70 43 6f | 75 6e 74 65 72 20 3d 20 |r loopCo|unter = |
|00000bc0| 31 20 74 6f 20 65 6e 74 | 72 79 2e 63 6f 75 6e 74 |1 to ent|ry.count|
|00000bd0| 29 2f 2f 20 69 66 20 69 | 74 27 73 20 61 20 64 69 |)// if i|t's a di|
|00000be0| 72 65 63 74 6f 72 79 2c | 20 61 64 64 20 61 20 66 |rectory,| add a f|
|00000bf0| 6f 6c 64 65 72 20 69 63 | 6f 6e 29 69 66 20 65 6e |older ic|on)if en|
|00000c00| 74 72 79 2e 69 74 65 6d | 28 6c 6f 6f 70 43 6f 75 |try.item|(loopCou|
|00000c10| 6e 74 65 72 29 2e 64 69 | 72 65 63 74 6f 72 79 20 |nter).di|rectory |
|00000c20| 74 68 65 6e 2c 6c 69 73 | 74 42 6f 78 32 2e 61 64 |then,lis|tBox2.ad|
|00000c30| 64 52 6f 77 20 65 6e 74 | 72 79 2e 69 74 65 6d 28 |dRow ent|ry.item(|
|00000c40| 6c 6f 6f 70 43 6f 75 6e | 74 65 72 29 2e 6e 61 6d |loopCoun|ter).nam|
|00000c50| 65 31 6c 69 73 74 42 6f | 78 32 2e 72 6f 77 50 69 |e1listBo|x2.rowPi|
|00000c60| 63 74 75 72 65 28 6c 6f | 6f 70 43 6f 75 6e 74 65 |cture(lo|opCounte|
|00000c70| 72 20 2d 20 31 29 20 3d | 20 6d 69 6e 69 46 6f 6c |r - 1) =| miniFol|
|00000c80| 64 65 72 16 2f 2f 20 69 | 66 20 6e 6f 74 2c 20 6a |der.// i|f not, j|
|00000c90| 75 73 74 20 61 64 64 20 | 69 74 04 65 6c 73 65 2c |ust add |it.else,|
|00000ca0| 6c 69 73 74 42 6f 78 32 | 2e 61 64 64 52 6f 77 20 |listBox2|.addRow |
|00000cb0| 65 6e 74 72 79 2e 69 74 | 65 6d 28 6c 6f 6f 70 43 |entry.it|em(loopC|
|00000cc0| 6f 75 6e 74 65 72 29 2e | 6e 61 6d 65 06 65 6e 64 |ounter).|name.end|
|00000cd0| 20 69 66 00 3c 2f 2f 20 | 70 6c 75 73 2c 20 74 6f | if.<// |plus, to|
|00000ce0| 20 6b 65 65 70 20 74 72 | 61 63 6b 20 6f 66 20 74 | keep tr|ack of t|
|00000cf0| 68 65 20 66 69 6c 65 2c | 20 61 64 64 20 69 74 20 |he file,| add it |
|00000d00| 74 6f 20 61 6e 20 61 72 | 72 72 61 79 20 74 68 61 |to an ar|rray tha|
|00000d10| 74 18 2f 2f 20 70 61 72 | 61 6c 6c 65 6c 73 20 74 |t.// par|allels t|
|00000d20| 68 65 20 6c 69 73 74 42 | 6f 78 1d 69 66 20 28 6c |he listB|ox.if (l|
|00000d30| 6f 6f 70 43 6f 75 6e 74 | 65 72 20 2d 20 31 29 20 |oopCount|er - 1) |
|00000d40| 3d 20 30 20 74 68 65 6e | 1e 74 77 6f 43 6f 6e 74 |= 0 then|.twoCont|
|00000d50| 65 6e 74 73 28 30 29 20 | 3d 20 65 6e 74 72 79 2e |ents(0) |= entry.|
|00000d60| 69 74 65 6d 28 31 29 04 | 65 6c 73 65 2a 74 77 6f |item(1).|else*two|
|00000d70| 43 6f 6e 74 65 6e 74 73 | 2e 61 70 70 65 6e 64 20 |Contents|.append |
|00000d80| 65 6e 74 72 79 2e 69 74 | 65 6d 28 6c 6f 6f 70 43 |entry.it|em(loopC|
|00000d90| 6f 75 6e 74 65 72 29 06 | 65 6e 64 20 69 66 04 6e |ounter).|end if.n|
|00000da0| 65 78 74 00 07 45 6e 64 | 20 53 75 62 00 04 0a 44 |ext..End| Sub...D|
|00000db0| 72 6f 70 4f 62 6a 65 63 | 74 18 22 18 22 1d 1f 53 |ropObjec|t."."..S|
|00000dc0| 75 62 20 44 72 6f 70 4f | 62 6a 65 63 74 28 6f 62 |ub DropO|bject(ob|
|00000dd0| 6a 20 41 73 20 44 72 61 | 67 49 74 65 6d 29 1c 64 |j As Dra|gItem).d|
|00000de0| 69 6d 20 74 65 6d 70 46 | 6f 6c 64 65 72 20 61 73 |im tempF|older as|
|00000df0| 20 66 6f 6c 64 65 72 49 | 74 65 6d 00 20 69 66 20 | folderI|tem. if |
|00000e00| 6f 62 6a 2e 66 6f 6c 64 | 65 72 49 74 65 6d 2e 64 |obj.fold|erItem.d|
|00000e10| 69 72 65 63 74 6f 72 79 | 20 74 68 65 6e 18 2f 2f |irectory| then.//|
|00000e20| 20 63 6c 65 61 72 20 61 | 6c 6c 20 6f 74 68 65 72 | clear a|ll other|
|00000e30| 20 69 74 65 6d 73 16 6c | 69 73 74 42 6f 78 31 2e | items.l|istBox1.|
|00000e40| 64 65 6c 65 74 65 41 6c | 6c 52 6f 77 73 16 6c 69 |deleteAl|lRows.li|
|00000e50| 73 74 42 6f 78 32 2e 64 | 65 6c 65 74 65 41 6c 6c |stBox2.d|eleteAll|
|00000e60| 52 6f 77 73 14 72 65 64 | 69 6d 20 6f 6e 65 43 6f |Rows.red|im oneCo|
|00000e70| 6e 74 65 6e 74 73 28 30 | 29 14 72 65 64 69 6d 20 |ntents(0|).redim |
|00000e80| 74 77 6f 43 6f 6e 74 65 | 6e 74 73 28 30 29 14 6f |twoConte|nts(0).o|
|00000e90| 6e 65 43 6f 6e 74 65 6e | 74 73 28 30 29 20 3d 20 |neConten|ts(0) = |
|00000ea0| 6e 69 6c 14 74 77 6f 43 | 6f 6e 74 65 6e 74 73 28 |nil.twoC|ontents(|
|00000eb0| 30 29 20 3d 20 6e 69 6c | 11 74 77 6f 54 65 78 74 |0) = nil|.twoText|
|00000ec0| 2e 74 65 78 74 20 3d 20 | 22 22 16 2f 2f 20 61 6e |.text = |"".// an|
|00000ed0| 64 20 73 65 6e 64 20 69 | 74 20 74 6f 20 62 6f 78 |d send i|t to box|
|00000ee0| 31 1e 70 61 72 73 65 46 | 6f 6c 64 65 72 46 6f 72 |1.parseF|olderFor|
|00000ef0| 31 20 6f 62 6a 2e 66 6f | 6c 64 65 72 49 74 65 6d |1 obj.fo|lderItem|
|00000f00| 04 65 6c 73 65 18 2f 2f | 20 63 6c 65 61 72 20 61 |.else.//| clear a|
|00000f10| 6c 6c 20 6f 74 68 65 72 | 20 69 74 65 6d 73 16 6c |ll other| items.l|
|00000f20| 69 73 74 42 6f 78 31 2e | 64 65 6c 65 74 65 41 6c |istBox1.|deleteAl|
|00000f30| 6c 52 6f 77 73 16 6c 69 | 73 74 42 6f 78 32 2e 64 |lRows.li|stBox2.d|
|00000f40| 65 6c 65 74 65 41 6c 6c | 52 6f 77 73 14 72 65 64 |eleteAll|Rows.red|
|00000f50| 69 6d 20 6f 6e 65 43 6f | 6e 74 65 6e 74 73 28 30 |im oneCo|ntents(0|
|00000f60| 29 14 72 65 64 69 6d 20 | 74 77 6f 43 6f 6e 74 65 |).redim |twoConte|
|00000f70| 6e 74 73 28 30 29 14 6f | 6e 65 43 6f 6e 74 65 6e |nts(0).o|neConten|
|00000f80| 74 73 28 30 29 20 3d 20 | 6e 69 6c 14 74 77 6f 43 |ts(0) = |nil.twoC|
|00000f90| 6f 6e 74 65 6e 74 73 28 | 30 29 20 3d 20 6e 69 6c |ontents(|0) = nil|
|00000fa0| 11 74 77 6f 54 65 78 74 | 2e 74 65 78 74 20 3d 20 |.twoText|.text = |
|00000fb0| 22 22 18 2f 2f 20 67 65 | 74 20 74 68 65 20 66 69 |"".// ge|t the fi|
|00000fc0| 6c 65 27 73 20 70 61 72 | 65 6e 74 22 74 65 6d 70 |le's par|ent"temp|
|00000fd0| 46 6f 6c 64 65 72 20 3d | 20 6f 62 6a 2e 66 6f 6c |Folder =| obj.fol|
|00000fe0| 64 65 72 49 74 65 6d 2e | 70 61 72 65 6e 74 16 2f |derItem.|parent./|
|00000ff0| 2f 20 61 6e 64 20 73 65 | 6e 64 20 69 74 20 74 6f |/ and se|nd it to|
|00001000| 20 62 6f 78 31 1a 70 61 | 72 73 65 46 6f 6c 64 65 | box1.pa|rseFolde|
|00001010| 72 46 6f 72 31 20 74 65 | 6d 70 46 6f 6c 64 65 72 |rFor1 te|mpFolder|
|00001020| 06 65 6e 64 20 69 66 07 | 45 6e 64 20 53 75 62 0f |.end if.|End Sub.|
|00001030| 45 6e 61 62 6c 65 4d 65 | 6e 75 49 74 65 6d 73 02 |EnableMe|nuItems.|
|00001040| 0f 02 0f 04 15 53 75 62 | 20 45 6e 61 62 6c 65 4d |.....Sub| EnableM|
|00001050| 65 6e 75 49 74 65 6d 73 | 28 29 00 0f 61 62 6f 75 |enuItems|()..abou|
|00001060| 74 42 6f 78 2e 65 6e 61 | 62 6c 65 07 45 6e 64 20 |tBox.ena|ble.End |
|00001070| 53 75 62 05 43 6c 6f 73 | 65 01 04 01 04 03 0b 53 |Sub.Clos|e......S|
|00001080| 75 62 20 43 6c 6f 73 65 | 28 29 04 71 75 69 74 07 |ub Close|().quit.|
|00001090| 45 6e 64 20 53 75 62 04 | 4f 70 65 6e 0e 1b 0e 1b |End Sub.|Open....|
|000010a0| 10 0a 53 75 62 20 4f 70 | 65 6e 28 29 1a 64 69 6d |..Sub Op|en().dim|
|000010b0| 20 6c 6f 6f 70 43 6f 75 | 6e 74 65 72 20 61 73 20 | loopCou|nter as |
|000010c0| 69 6e 74 65 67 65 72 00 | 2b 2f 2f 20 67 65 74 20 |integer.|+// get |
|000010d0| 74 68 65 20 76 6f 6c 75 | 6d 65 73 20 61 6e 64 20 |the volu|mes and |
|000010e0| 70 75 74 20 74 68 65 6d | 20 69 6e 20 6c 69 73 74 |put them| in list|
|000010f0| 42 6f 78 31 14 2f 2f 20 | 77 69 74 68 20 66 6f 6c |Box1.// |with fol|
|00001100| 64 65 72 20 69 63 6f 6e | 73 00 1e 72 65 64 69 6d |der icon|s..redim|
|00001110| 20 6f 6e 65 43 6f 6e 74 | 65 6e 74 73 28 76 6f 6c | oneCont|ents(vol|
|00001120| 75 6d 65 43 6f 75 6e 74 | 29 00 28 66 6f 72 20 6c |umeCount|).(for l|
|00001130| 6f 6f 70 43 6f 75 6e 74 | 65 72 20 3d 20 30 20 74 |oopCount|er = 0 t|
|00001140| 6f 20 28 76 6f 6c 75 6d | 65 43 6f 75 6e 74 20 2d |o (volum|eCount -|
|00001150| 20 31 29 2e 6f 6e 65 43 | 6f 6e 74 65 6e 74 73 28 | 1).oneC|ontents(|
|00001160| 6c 6f 6f 70 43 6f 75 6e | 74 65 72 29 20 3d 20 76 |loopCoun|ter) = v|
|00001170| 6f 6c 75 6d 65 28 6c 6f | 6f 70 43 6f 75 6e 74 65 |olume(lo|opCounte|
|00001180| 72 29 28 6c 69 73 74 42 | 6f 78 31 2e 61 64 64 52 |r)(listB|ox1.addR|
|00001190| 6f 77 20 76 6f 6c 75 6d | 65 28 6c 6f 6f 70 43 6f |ow volum|e(loopCo|
|000011a0| 75 6e 74 65 72 29 2e 6e | 61 6d 65 2d 6c 69 73 74 |unter).n|ame-list|
|000011b0| 42 6f 78 31 2e 72 6f 77 | 50 69 63 74 75 72 65 28 |Box1.row|Picture(|
|000011c0| 6c 6f 6f 70 43 6f 75 6e | 74 65 72 29 20 3d 20 6d |loopCoun|ter) = m|
|000011d0| 69 6e 69 46 6f 6c 64 65 | 72 04 6e 65 78 74 00 1b |iniFolde|r.next..|
|000011e0| 6d 65 2e 61 63 63 65 70 | 74 46 69 6c 65 44 72 6f |me.accep|tFileDro|
|000011f0| 70 20 22 61 6e 79 46 49 | 6c 65 22 07 45 6e 64 20 |p "anyFI|le".End |
|00001200| 53 75 62 01 08 61 62 6f | 75 74 42 6f 78 01 92 01 |Sub..abo|utBox...|
|00001210| 01 92 01 03 1a 46 75 6e | 63 74 69 6f 6e 20 41 63 |.....Fun|ction Ac|
|00001220| 74 69 6f 6e 20 41 73 20 | 42 6f 6f 6c 65 61 6e b7 |tion As |Boolean.|
|00001230| 01 4d 73 67 42 6f 78 20 | 22 46 69 6c 65 20 42 72 |.MsgBox |"File Br|
|00001240| 6f 77 73 65 72 22 20 2b | 20 63 68 72 28 31 33 29 |owser" +| chr(13)|
|00001250| 20 2b 20 22 41 20 44 65 | 6d 6f 20 62 79 20 4a 61 | + "A De|mo by Ja|
|00001260| 79 20 54 69 6d 6d 65 72 | 2e 22 20 2b 20 63 68 72 |y Timmer|." + chr|
|00001270| 28 31 33 29 20 2b 20 63 | 68 72 28 31 33 29 20 2b |(13) + c|hr(13) +|
|00001280| 20 22 57 69 74 68 20 61 | 70 6f 6c 6f 67 69 65 73 | "With a|pologies|
|00001290| 20 74 6f 20 74 68 65 20 | 4e 65 78 74 20 42 72 6f | to the |Next Bro|
|000012a0| 77 73 65 72 2e 2e 2e 22 | 0c 45 6e 64 20 46 75 6e |wser..."|.End Fun|
|000012b0| 63 74 69 6f 6e 00 05 07 | 00 00 b4 03 07 4c 69 73 |ction...|.....Lis|
|000012c0| 74 62 6f 78 00 00 00 00 | 03 07 44 72 61 67 52 6f |tbox....|..DragRo|
|000012d0| 77 0d 0b 07 00 0f 3d 46 | 75 6e 63 74 69 6f 6e 20 |w.....=F|unction |
|000012e0| 44 72 61 67 52 6f 77 28 | 64 72 61 67 20 41 73 20 |DragRow(|drag As |
|000012f0| 44 72 61 67 49 74 65 6d | 2c 20 72 6f 77 20 41 73 |DragItem|, row As|
|00001300| 20 49 6e 74 65 67 65 72 | 29 20 41 73 20 42 6f 6f | Integer|) As Boo|
|00001310| 6c 65 61 6e 00 24 2f 2f | 20 6c 65 61 76 65 20 69 |lean.$//| leave i|
|00001320| 66 20 69 74 27 73 20 6a | 75 73 74 20 74 68 65 20 |f it's j|ust the |
|00001330| 62 61 63 6b 20 61 72 72 | 6f 77 21 69 66 20 72 6f |back arr|ow!if ro|
|00001340| 77 20 3e 20 75 62 6f 75 | 6e 64 28 6f 6e 65 43 6f |w > ubou|nd(oneCo|
|00001350| 6e 74 65 6e 74 73 29 20 | 74 68 65 6e 0c 72 65 74 |ntents) |then.ret|
|00001360| 75 72 6e 20 66 61 6c 73 | 65 06 65 6e 64 20 69 66 |urn fals|e.end if|
|00001370| 00 33 2f 2f 20 6d 61 6b | 65 20 74 68 65 20 64 72 |.3// mak|e the dr|
|00001380| 61 67 20 6f 62 6a 65 63 | 74 20 68 6f 6c 64 20 74 |ag objec|t hold t|
|00001390| 68 65 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |he corre|sponding|
|000013a0| 20 69 74 65 6d 13 64 72 | 61 67 2e 74 65 78 74 20 | item.dr|ag.text |
|000013b0| 3d 20 6d 65 2e 74 65 78 | 74 22 64 72 61 67 2e 66 |= me.tex|t"drag.f|
|000013c0| 6f 6c 64 65 72 49 74 65 | 6d 20 3d 20 6f 6e 65 43 |olderIte|m = oneC|
|000013d0| 6f 6e 74 65 6e 74 73 28 | 72 6f 77 29 00 09 64 72 |ontents(|row)..dr|
|000013e0| 61 67 2e 64 72 61 67 00 | 0b 72 65 74 75 72 6e 20 |ag.drag.|.return |
|000013f0| 74 72 75 65 0c 45 6e 64 | 20 46 75 6e 63 74 69 6f |true.End| Functio|
|00001400| 6e 06 43 68 61 6e 67 65 | 01 00 01 00 03 0c 53 75 |n.Change|......Su|
|00001410| 62 20 43 68 61 6e 67 65 | 28 29 00 07 45 6e 64 20 |b Change|()..End |
|00001420| 53 75 62 0b 44 6f 75 62 | 6c 65 43 6c 69 63 6b 1e |Sub.Doub|leClick.|
|00001430| 23 1d 00 39 11 53 75 62 | 20 44 6f 75 62 6c 65 43 |#..9.Sub| DoubleC|
|00001440| 6c 69 63 6b 28 29 1c 64 | 69 6d 20 74 65 6d 70 46 |lick().d|im tempF|
|00001450| 6f 6c 64 65 72 20 61 73 | 20 66 6f 6c 64 65 72 49 |older as| folderI|
|00001460| 74 65 6d 1a 64 69 6d 20 | 6c 6f 6f 70 43 6f 75 6e |tem.dim |loopCoun|
|00001470| 74 65 72 20 61 73 20 69 | 6e 74 65 67 65 72 00 0f |ter as i|nteger..|
|00001480| 2f 2f 20 62 6f 75 6e 64 | 73 20 63 68 65 63 6b 84 |// bound|s check.|
|00001490| 01 69 66 20 6d 65 2e 6c | 69 73 74 49 6e 64 65 78 |.if me.l|istIndex|
|000014a0| 20 3c 20 30 20 6f 72 20 | 6d 65 2e 6c 69 73 74 49 | < 0 or |me.listI|
|000014b0| 6e 64 65 78 20 3e 20 28 | 75 62 6f 75 6e 64 28 6f |ndex > (|ubound(o|
|000014c0| 6e 65 43 6f 6e 74 65 6e | 74 73 29 20 2b 20 31 29 |neConten|ts) + 1)|
|000014d0| 20 74 68 65 6e 06 72 65 | 74 75 72 6e 06 65 6e 64 | then.re|turn.end|
|000014e0| 20 69 66 00 21 2f 2f 20 | 74 68 65 79 20 63 6c 69 | if.!// |they cli|
|000014f0| 63 6b 65 64 20 6f 6e 20 | 74 68 65 20 62 61 63 6b |cked on |the back|
|00001500| 20 61 72 72 6f 77 2a 69 | 66 20 6d 65 2e 6c 69 73 | arrow*i|f me.lis|
|00001510| 74 49 6e 64 65 78 20 3e | 20 75 62 6f 75 6e 64 28 |tIndex >| ubound(|
|00001520| 6f 6e 65 43 6f 6e 74 65 | 6e 74 73 29 20 74 68 65 |oneConte|nts) the|
|00001530| 6e 2e 2f 2f 20 67 65 74 | 20 74 77 6f 20 64 69 72 |n.// get| two dir|
|00001540| 65 63 74 6f 72 69 65 73 | 20 62 61 63 6b 20 66 72 |ectories| back fr|
|00001550| 6f 6d 20 61 6e 79 20 66 | 69 6c 65 20 68 65 72 65 |om any f|ile here|
|00001560| 23 2f 2f 20 65 78 63 65 | 70 74 69 6f 6e 20 74 72 |#// exce|ption tr|
|00001570| 61 70 20 66 6f 72 20 74 | 68 69 73 20 69 73 20 62 |ap for t|his is b|
|00001580| 65 6c 6f 77 29 74 65 6d | 70 46 6f 6c 64 65 72 20 |elow)tem|pFolder |
|00001590| 3d 20 6f 6e 65 43 6f 6e | 74 65 6e 74 73 28 30 29 |= oneCon|tents(0)|
|000015a0| 2e 70 61 72 65 6e 74 2e | 70 61 72 65 6e 74 0e 2f |.parent.|parent./|
|000015b0| 2f 20 63 6c 65 61 72 20 | 62 6f 78 20 32 16 6c 69 |/ clear |box 2.li|
|000015c0| 73 74 42 6f 78 32 2e 64 | 65 6c 65 74 65 41 6c 6c |stBox2.d|eleteAll|
|000015d0| 52 6f 77 73 14 72 65 64 | 69 6d 20 74 77 6f 43 6f |Rows.red|im twoCo|
|000015e0| 6e 74 65 6e 74 73 28 30 | 29 14 74 77 6f 43 6f 6e |ntents(0|).twoCon|
|000015f0| 74 65 6e 74 73 28 30 29 | 20 3d 20 6e 69 6c 11 74 |tents(0)| = nil.t|
|00001600| 77 6f 54 65 78 74 2e 74 | 65 78 74 20 3d 20 22 22 |woText.t|ext = ""|
|00001610| 25 2f 2f 20 75 73 65 20 | 74 68 65 20 64 69 72 65 |%// use |the dire|
|00001620| 63 74 6f 72 79 20 74 6f | 20 73 65 65 64 20 6c 69 |ctory to| seed li|
|00001630| 73 74 42 6f 78 31 1a 70 | 61 72 73 65 46 6f 6c 64 |stBox1.p|arseFold|
|00001640| 65 72 46 6f 72 31 20 74 | 65 6d 70 46 6f 6c 64 65 |erFor1 t|empFolde|
|00001650| 72 06 72 65 74 75 72 6e | 06 65 6e 64 20 69 66 00 |r.return|.end if.|
|00001660| 00 27 2f 2f 20 69 66 20 | 69 74 27 73 20 61 20 64 |.'// if |it's a d|
|00001670| 69 72 65 63 74 6f 72 79 | 2c 20 73 65 6e 64 20 69 |irectory|, send i|
|00001680| 74 20 74 6f 20 62 6f 78 | 32 2b 69 66 20 6f 6e 65 |t to box|2+if one|
|00001690| 43 6f 6e 74 65 6e 74 73 | 28 6d 65 2e 6c 69 73 74 |Contents|(me.list|
|000016a0| 49 6e 64 65 78 29 2e 64 | 69 72 65 63 74 6f 72 79 |Index).d|irectory|
|000016b0| 20 74 68 65 6e 29 70 61 | 72 73 65 46 6f 6c 64 65 | then)pa|rseFolde|
|000016c0| 72 46 6f 72 32 20 6f 6e | 65 43 6f 6e 74 65 6e 74 |rFor2 on|eContent|
|000016d0| 73 28 6d 65 2e 6c 69 73 | 74 49 6e 64 65 78 29 04 |s(me.lis|tIndex).|
|000016e0| 65 6c 73 65 34 2f 2f 20 | 69 66 20 69 74 27 73 20 |else4// |if it's |
|000016f0| 61 20 66 69 6c 65 2c 20 | 79 6f 75 20 6d 69 67 68 |a file, |you migh|
|00001700| 74 20 77 61 6e 74 20 74 | 6f 20 6c 61 75 6e 63 68 |t want t|o launch|
|00001710| 20 69 74 20 68 65 72 65 | 2e 23 2f 2f 20 6f 6e 65 | it here|.#// one|
|00001720| 43 6f 6e 74 65 6e 74 73 | 28 6d 65 2e 6c 69 73 74 |Contents|(me.list|
|00001730| 49 6e 64 65 78 29 2e 6c | 61 75 6e 63 68 06 65 6e |Index).l|aunch.en|
|00001740| 64 20 69 66 00 00 80 01 | 2f 2f 20 61 6e 20 65 78 |d if....|// an ex|
|00001750| 63 65 70 74 69 6f 6e 20 | 77 69 6c 6c 20 72 65 73 |ception |will res|
|00001760| 75 6c 74 20 69 66 20 79 | 6f 75 20 74 72 79 20 74 |ult if y|ou try t|
|00001770| 6f 20 67 6f 20 62 61 63 | 6b 20 66 72 6f 6d 20 61 |o go bac|k from a|
|00001780| 20 76 6f 6c 75 6d 65 2e | 2b 2f 2f 20 69 6e 20 74 | volume.|+// in t|
|00001790| 68 61 74 20 63 61 73 65 | 2c 20 77 65 20 6a 75 73 |hat case|, we jus|
|000017a0| 74 20 72 65 6c 69 73 74 | 20 74 68 65 20 76 6f 6c |t relist| the vol|
|000017b0| 75 6d 65 73 0b 20 65 78 | 63 65 70 74 69 6f 6e 20 |umes. ex|ception |
|000017c0| 31 2f 2f 20 20 72 65 73 | 65 74 20 74 68 69 6e 67 |1//  res|et thing|
|000017d0| 73 20 73 6f 20 74 68 61 | 74 20 74 68 65 79 20 64 |s so tha|t they d|
|000017e0| 6f 6e 27 74 20 63 61 75 | 73 65 20 74 72 6f 75 62 |on't cau|se troub|
|000017f0| 6c 65 1e 72 65 64 69 6d | 20 6f 6e 65 43 6f 6e 74 |le.redim| oneCont|
|00001800| 65 6e 74 73 28 76 6f 6c | 75 6d 65 43 6f 75 6e 74 |ents(vol|umeCount|
|00001810| 29 14 72 65 64 69 6d 20 | 74 77 6f 43 6f 6e 74 65 |).redim |twoConte|
|00001820| 6e 74 73 28 30 29 14 74 | 77 6f 43 6f 6e 74 65 6e |nts(0).t|woConten|
|00001830| 74 73 28 30 29 20 3d 20 | 6e 69 6c 00 16 6c 69 73 |ts(0) = |nil..lis|
|00001840| 74 42 6f 78 31 2e 64 65 | 6c 65 74 65 41 6c 6c 52 |tBox1.de|leteAllR|
|00001850| 6f 77 73 16 6c 69 73 74 | 42 6f 78 32 2e 64 65 6c |ows.list|Box2.del|
|00001860| 65 74 65 41 6c 6c 52 6f | 77 73 00 00 00 28 66 6f |eteAllRo|ws...(fo|
|00001870| 72 20 6c 6f 6f 70 43 6f | 75 6e 74 65 72 20 3d 20 |r loopCo|unter = |
|00001880| 30 20 74 6f 20 28 76 6f | 6c 75 6d 65 43 6f 75 6e |0 to (vo|lumeCoun|
|00001890| 74 20 2d 20 31 29 1f 2f | 2f 20 6c 6f 6f 70 20 74 |t - 1)./|/ loop t|
|000018a0| 68 72 6f 75 67 68 20 6d | 6f 75 6e 74 65 64 20 76 |hrough m|ounted v|
|000018b0| 6f 6c 75 6d 65 73 30 2f | 2f 20 61 64 64 20 74 6f |olumes0/|/ add to|
|000018c0| 20 74 68 65 20 61 72 72 | 61 79 20 74 68 61 74 20 | the arr|ay that |
|000018d0| 68 6f 6c 64 73 20 62 6f | 78 31 20 66 6f 6c 64 65 |holds bo|x1 folde|
|000018e0| 72 20 69 74 65 6d 73 2e | 6f 6e 65 43 6f 6e 74 65 |r items.|oneConte|
|000018f0| 6e 74 73 28 6c 6f 6f 70 | 43 6f 75 6e 74 65 72 29 |nts(loop|Counter)|
|00001900| 20 3d 20 76 6f 6c 75 6d | 65 28 6c 6f 6f 70 43 6f | = volum|e(loopCo|
|00001910| 75 6e 74 65 72 29 29 2f | 2f 20 61 64 64 20 69 74 |unter))/|/ add it|
|00001920| 73 20 6e 61 6d 65 20 61 | 6e 64 20 61 20 66 6f 6c |s name a|nd a fol|
|00001930| 64 65 72 20 69 63 6f 6e | 20 74 6f 20 62 6f 78 31 |der icon| to box1|
|00001940| 28 6c 69 73 74 42 6f 78 | 31 2e 61 64 64 52 6f 77 |(listBox|1.addRow|
|00001950| 20 76 6f 6c 75 6d 65 28 | 6c 6f 6f 70 43 6f 75 6e | volume(|loopCoun|
|00001960| 74 65 72 29 2e 6e 61 6d | 65 2d 6c 69 73 74 42 6f |ter).nam|e-listBo|
|00001970| 78 31 2e 72 6f 77 50 69 | 63 74 75 72 65 28 6c 6f |x1.rowPi|cture(lo|
|00001980| 6f 70 43 6f 75 6e 74 65 | 72 29 20 3d 20 6d 69 6e |opCounte|r) = min|
|00001990| 69 46 6f 6c 64 65 72 04 | 6e 65 78 74 00 07 45 6e |iFolder.|next..En|
|000019a0| 64 20 53 75 62 00 00 07 | 00 00 b4 03 07 4c 69 73 |d Sub...|.....Lis|
|000019b0| 74 62 6f 78 00 00 00 00 | 03 07 44 72 61 67 52 6f |tbox....|..DragRo|
|000019c0| 77 03 15 03 15 09 3d 46 | 75 6e 63 74 69 6f 6e 20 |w.....=F|unction |
|000019d0| 44 72 61 67 52 6f 77 28 | 64 72 61 67 20 41 73 20 |DragRow(|drag As |
|000019e0| 44 72 61 67 49 74 65 6d | 2c 20 72 6f 77 20 41 73 |DragItem|, row As|
|000019f0| 20 49 6e 74 65 67 65 72 | 29 20 41 73 20 42 6f 6f | Integer|) As Boo|
|00001a00| 6c 65 61 6e 33 2f 2f 20 | 6d 61 6b 65 20 74 68 65 |lean3// |make the|
|00001a10| 20 64 72 61 67 20 6f 62 | 6a 65 63 74 20 68 6f 6c | drag ob|ject hol|
|00001a20| 64 20 74 68 65 20 63 6f | 72 72 65 73 70 6f 6e 64 |d the co|rrespond|
|00001a30| 69 6e 67 20 69 74 65 6d | 13 64 72 61 67 2e 74 65 |ing item|.drag.te|
|00001a40| 78 74 20 3d 20 6d 65 2e | 74 65 78 74 22 64 72 61 |xt = me.|text"dra|
|00001a50| 67 2e 66 6f 6c 64 65 72 | 49 74 65 6d 20 3d 20 74 |g.folder|Item = t|
|00001a60| 77 6f 43 6f 6e 74 65 6e | 74 73 28 72 6f 77 29 00 |woConten|ts(row).|
|00001a70| 09 64 72 61 67 2e 64 72 | 61 67 00 0b 72 65 74 75 |.drag.dr|ag..retu|
|00001a80| 72 6e 20 74 72 75 65 0c | 45 6e 64 20 46 75 6e 63 |rn true.|End Func|
|00001a90| 74 69 6f 6e 0b 44 6f 75 | 62 6c 65 43 6c 69 63 6b |tion.Dou|bleClick|
|00001aa0| 0e 06 0e 06 12 11 53 75 | 62 20 44 6f 75 62 6c 65 |......Su|b Double|
|00001ab0| 43 6c 69 63 6b 28 29 0f | 2f 2f 20 62 6f 75 6e 64 |Click().|// bound|
|00001ac0| 73 20 63 68 65 63 6b 3e | 69 66 20 6d 65 2e 6c 69 |s check>|if me.li|
|00001ad0| 73 74 49 6e 64 65 78 20 | 3c 20 30 20 6f 72 20 6d |stIndex |< 0 or m|
|00001ae0| 65 2e 6c 69 73 74 49 6e | 64 65 78 20 3e 20 75 62 |e.listIn|dex > ub|
|00001af0| 6f 75 6e 64 28 74 77 6f | 43 6f 6e 74 65 6e 74 73 |ound(two|Contents|
|00001b00| 29 20 74 68 65 6e 06 72 | 65 74 75 72 6e 06 65 6e |) then.r|eturn.en|
|00001b10| 64 20 69 66 00 24 2f 2f | 20 69 66 20 74 68 65 79 |d if.$//| if they|
|00001b20| 27 72 65 20 6f 70 65 6e | 69 6e 67 20 61 20 64 69 |'re open|ing a di|
|00001b30| 72 65 63 74 6f 72 79 2e | 2e 2e 2b 69 66 20 74 77 |rectory.|..+if tw|
|00001b40| 6f 43 6f 6e 74 65 6e 74 | 73 28 6d 65 2e 6c 69 73 |oContent|s(me.lis|
|00001b50| 74 49 6e 64 65 78 29 2e | 64 69 72 65 63 74 6f 72 |tIndex).|director|
|00001b60| 79 20 74 68 65 6e 24 2f | 2f 20 6d 61 6b 65 20 66 |y then$/|/ make f|
|00001b70| 6f 6c 64 65 72 31 20 68 | 6f 6c 64 20 66 6f 6c 64 |older1 h|old fold|
|00001b80| 65 72 32 27 73 20 73 74 | 75 66 66 30 70 61 72 73 |er2's st|uff0pars|
|00001b90| 65 46 6f 6c 64 65 72 46 | 6f 72 31 20 74 77 6f 43 |eFolderF|or1 twoC|
|00001ba0| 6f 6e 74 65 6e 74 73 28 | 6d 65 2e 6c 69 73 74 49 |ontents(|me.listI|
|00001bb0| 6e 64 65 78 29 2e 70 61 | 72 65 6e 74 20 2f 2f 20 |ndex).pa|rent // |
|00001bc0| 6f 70 65 6e 20 74 68 65 | 20 64 69 72 65 63 74 6f |open the| directo|
|00001bd0| 72 79 20 69 6e 20 66 6f | 6c 64 65 72 32 29 70 61 |ry in fo|lder2)pa|
|00001be0| 72 73 65 46 6f 6c 64 65 | 72 46 6f 72 32 20 74 77 |rseFolde|rFor2 tw|
|00001bf0| 6f 43 6f 6e 74 65 6e 74 | 73 28 6d 65 2e 6c 69 73 |oContent|s(me.lis|
|00001c00| 74 49 6e 64 65 78 29 04 | 65 6c 73 65 34 2f 2f 20 |tIndex).|else4// |
|00001c10| 69 66 20 69 74 27 73 20 | 61 20 66 69 6c 65 2c 20 |if it's |a file, |
|00001c20| 79 6f 75 20 6d 69 67 68 | 74 20 77 61 6e 74 20 74 |you migh|t want t|
|00001c30| 6f 20 6c 61 75 6e 63 68 | 20 69 74 20 68 65 72 65 |o launch| it here|
|00001c40| 2e 23 2f 2f 20 74 77 6f | 43 6f 6e 74 65 6e 74 73 |.#// two|Contents|
|00001c50| 28 6d 65 2e 6c 69 73 74 | 49 6e 64 65 78 29 2e 6c |(me.list|Index).l|
|00001c60| 61 75 6e 63 68 06 65 6e | 64 20 69 66 00 07 45 6e |aunch.en|d if..En|
|00001c70| 64 20 53 75 62 09 45 78 | 70 61 6e 64 52 6f 77 01 |d Sub.Ex|pandRow.|
|00001c80| 00 01 00 03 1d 53 75 62 | 20 45 78 70 61 6e 64 52 |.....Sub| ExpandR|
|00001c90| 6f 77 28 52 6f 77 20 41 | 73 20 49 6e 74 65 67 65 |ow(Row A|s Intege|
|00001ca0| 72 29 00 07 45 6e 64 20 | 53 75 62 00 00 07 00 00 |r)..End |Sub.....|
|00001cb0| a8 01 0a 50 75 73 68 42 | 75 74 74 6f 6e 00 00 00 |...PushB|utton...|
|00001cc0| 00 02 0a 44 72 6f 70 4f | 62 6a 65 63 74 01 00 01 |...DropO|bject...|
|00001cd0| 00 03 1f 53 75 62 20 44 | 72 6f 70 4f 62 6a 65 63 |...Sub D|ropObjec|
|00001ce0| 74 28 6f 62 6a 20 41 73 | 20 44 72 61 67 49 74 65 |t(obj As| DragIte|
|00001cf0| 6d 29 00 07 45 6e 64 20 | 53 75 62 06 41 63 74 69 |m)..End |Sub.Acti|
|00001d00| 6f 6e 07 0c 07 0c 18 0c | 53 75 62 20 41 63 74 69 |on......|Sub Acti|
|00001d10| 6f 6e 28 29 1a 64 69 6d | 20 6c 6f 6f 70 43 6f 75 |on().dim| loopCou|
|00001d20| 6e 74 65 72 20 61 73 20 | 69 6e 74 65 67 65 72 00 |nter as |integer.|
|00001d30| 31 2f 2f 20 20 72 65 73 | 65 74 20 74 68 69 6e 67 |1//  res|et thing|
|00001d40| 73 20 73 6f 20 74 68 61 | 74 20 74 68 65 79 20 64 |s so tha|t they d|
|00001d50| 6f 6e 27 74 20 63 61 75 | 73 65 20 74 72 6f 75 62 |on't cau|se troub|
|00001d60| 6c 65 1e 72 65 64 69 6d | 20 6f 6e 65 43 6f 6e 74 |le.redim| oneCont|
|00001d70| 65 6e 74 73 28 76 6f 6c | 75 6d 65 43 6f 75 6e 74 |ents(vol|umeCount|
|00001d80| 29 14 72 65 64 69 6d 20 | 74 77 6f 43 6f 6e 74 65 |).redim |twoConte|
|00001d90| 6e 74 73 28 30 29 14 74 | 77 6f 43 6f 6e 74 65 6e |nts(0).t|woConten|
|00001da0| 74 73 28 30 29 20 3d 20 | 6e 69 6c 11 74 77 6f 54 |ts(0) = |nil.twoT|
|00001db0| 65 78 74 2e 74 65 78 74 | 20 3d 20 22 22 00 16 6c |ext.text| = ""..l|
|00001dc0| 69 73 74 42 6f 78 31 2e | 64 65 6c 65 74 65 41 6c |istBox1.|deleteAl|
|00001dd0| 6c 52 6f 77 73 16 6c 69 | 73 74 42 6f 78 32 2e 64 |lRows.li|stBox2.d|
|00001de0| 65 6c 65 74 65 41 6c 6c | 52 6f 77 73 00 00 00 28 |eleteAll|Rows...(|
|00001df0| 66 6f 72 20 6c 6f 6f 70 | 43 6f 75 6e 74 65 72 20 |for loop|Counter |
|00001e00| 3d 20 30 20 74 6f 20 28 | 76 6f 6c 75 6d 65 43 6f |= 0 to (|volumeCo|
|00001e10| 75 6e 74 20 2d 20 31 29 | 1f 2f 2f 20 6c 6f 6f 70 |unt - 1)|.// loop|
|00001e20| 20 74 68 72 6f 75 67 68 | 20 6d 6f 75 6e 74 65 64 | through| mounted|
|00001e30| 20 76 6f 6c 75 6d 65 73 | 30 2f 2f 20 61 64 64 20 | volumes|0// add |
|00001e40| 74 6f 20 74 68 65 20 61 | 72 72 61 79 20 74 68 61 |to the a|rray tha|
|00001e50| 74 20 68 6f 6c 64 73 20 | 62 6f 78 31 20 66 6f 6c |t holds |box1 fol|
|00001e60| 64 65 72 20 69 74 65 6d | 73 2e 6f 6e 65 43 6f 6e |der item|s.oneCon|
|00001e70| 74 65 6e 74 73 28 6c 6f | 6f 70 43 6f 75 6e 74 65 |tents(lo|opCounte|
|00001e80| 72 29 20 3d 20 76 6f 6c | 75 6d 65 28 6c 6f 6f 70 |r) = vol|ume(loop|
|00001e90| 43 6f 75 6e 74 65 72 29 | 29 2f 2f 20 61 64 64 20 |Counter)|)// add |
|00001ea0| 69 74 73 20 6e 61 6d 65 | 20 61 6e 64 20 61 20 66 |its name| and a f|
|00001eb0| 6f 6c 64 65 72 20 69 63 | 6f 6e 20 74 6f 20 62 6f |older ic|on to bo|
|00001ec0| 78 31 28 6c 69 73 74 42 | 6f 78 31 2e 61 64 64 52 |x1(listB|ox1.addR|
|00001ed0| 6f 77 20 76 6f 6c 75 6d | 65 28 6c 6f 6f 70 43 6f |ow volum|e(loopCo|
|00001ee0| 75 6e 74 65 72 29 2e 6e | 61 6d 65 2d 6c 69 73 74 |unter).n|ame-list|
|00001ef0| 42 6f 78 31 2e 72 6f 77 | 50 69 63 74 75 72 65 28 |Box1.row|Picture(|
|00001f00| 6c 6f 6f 70 43 6f 75 6e | 74 65 72 29 20 3d 20 6d |loopCoun|ter) = m|
|00001f10| 69 6e 69 46 6f 6c 64 65 | 72 04 6e 65 78 74 00 07 |iniFolde|r.next..|
|00001f20| 45 6e 64 20 53 75 62 00 | 00 07 00 00 ac 01 0a 53 |End Sub.|.......S|
|00001f30| 74 61 74 69 63 54 65 78 | 74 00 00 00 00 00 00 00 |taticTex|t.......|
|00001f40| 07 00 00 ac 01 0a 53 74 | 61 74 69 63 54 65 78 74 |......St|aticText|
|00001f50| 00 00 00 00 00 00 00 05 | 07 4c 69 73 74 42 6f 78 |........|.ListBox|
|00001f60| 1c 04 4e 61 6d 65 08 4c | 69 73 74 42 6f 78 31 05 |..Name.L|istBox1.|
|00001f70| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00001f80| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00001f90| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00001fa0| 65 66 74 02 31 33 03 54 | 6f 70 02 33 34 05 57 69 |eft.13.T|op.34.Wi|
|00001fb0| 64 74 68 03 32 30 39 06 | 48 65 69 67 68 74 03 32 |dth.209.|Height.2|
|00001fc0| 35 39 0b 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 13 |59.Ballo|onHelp..|
|00001fd0| 44 69 73 61 62 6c 65 64 | 42 61 6c 6c 6f 6f 6e 48 |Disabled|BalloonH|
|00001fe0| 65 6c 70 00 08 4c 6f 63 | 6b 4c 65 66 74 04 54 72 |elp..Loc|kLeft.Tr|
|00001ff0| 75 65 07 4c 6f 63 6b 54 | 6f 70 04 54 72 75 65 09 |ue.LockT|op.True.|
|00002000| 4c 6f 63 6b 52 69 67 68 | 74 05 46 61 6c 73 65 0a |LockRigh|t.False.|
|00002010| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 04 54 72 75 65 08 |LockBott|om.True.|
|00002020| 54 65 78 74 46 6f 6e 74 | 06 53 79 73 74 65 6d 08 |TextFont|.System.|
|00002030| 54 65 78 74 53 69 7a 65 | 02 31 32 04 42 6f 6c 64 |TextSize|.12.Bold|
|00002040| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|00002050| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00002060| 6c 73 65 07 45 6e 61 62 | 6c 65 64 04 54 72 75 65 |lse.Enab|led.True|
|00002070| 0b 43 6f 6c 75 6d 6e 43 | 6f 75 6e 74 01 31 0c 43 |.ColumnC|ount.1.C|
|00002080| 6f 6c 75 6d 6e 57 69 64 | 74 68 73 00 0a 48 61 73 |olumnWid|ths..Has|
|00002090| 48 65 61 64 69 6e 67 05 | 46 61 6c 73 65 0c 55 73 |Heading.|False.Us|
|000020a0| 65 46 6f 63 75 73 52 69 | 6e 67 04 54 72 75 65 0c |eFocusRi|ng.True.|
|000020b0| 49 6e 69 74 69 61 6c 56 | 61 6c 75 65 00 0c 48 69 |InitialV|alue..Hi|
|000020c0| 65 72 61 72 63 68 69 63 | 61 6c 05 46 61 6c 73 65 |erarchic|al.False|
|000020d0| 0a 45 6e 61 62 6c 65 44 | 72 61 67 04 54 72 75 65 |.EnableD|rag.True|
|000020e0| 0d 53 65 6c 65 63 74 69 | 6f 6e 54 79 70 65 01 30 |.Selecti|onType.0|
|000020f0| 00 0a 50 75 73 68 42 75 | 74 74 6f 6e 17 04 4e 61 |..PushBu|tton..Na|
|00002100| 6d 65 0b 50 75 73 68 42 | 75 74 74 6f 6e 31 05 49 |me.PushB|utton1.I|
|00002110| 6e 64 65 78 0b 2d 32 31 | 34 37 34 38 33 36 34 38 |ndex.-21|47483648|
|00002120| 0d 54 61 62 50 61 6e 65 | 6c 49 6e 64 65 78 01 30 |.TabPane|lIndex.0|
|00002130| 07 56 69 73 69 62 6c 65 | 04 54 72 75 65 04 4c 65 |.Visible|.True.Le|
|00002140| 66 74 02 37 31 03 54 6f | 70 03 33 31 37 05 57 69 |ft.71.To|p.317.Wi|
|00002150| 64 74 68 02 37 37 06 48 | 65 69 67 68 74 02 32 30 |dth.77.H|eight.20|
|00002160| 0b 42 61 6c 6c 6f 6f 6e | 48 65 6c 70 00 13 44 69 |.Balloon|Help..Di|
|00002170| 73 61 62 6c 65 64 42 61 | 6c 6c 6f 6f 6e 48 65 6c |sabledBa|lloonHel|
|00002180| 70 00 08 4c 6f 63 6b 4c | 65 66 74 05 46 61 6c 73 |p..LockL|eft.Fals|
|00002190| 65 07 4c 6f 63 6b 54 6f | 70 05 46 61 6c 73 65 09 |e.LockTo|p.False.|
|000021a0| 4c 6f 63 6b 52 69 67 68 | 74 05 46 61 6c 73 65 0a |LockRigh|t.False.|
|000021b0| 4c 6f 63 6b 42 6f 74 74 | 6f 6d 04 54 72 75 65 08 |LockBott|om.True.|
|000021c0| 54 65 78 74 46 6f 6e 74 | 06 53 79 73 74 65 6d 08 |TextFont|.System.|
|000021d0| 54 65 78 74 53 69 7a 65 | 02 31 32 04 42 6f 6c 64 |TextSize|.12.Bold|
|000021e0| 05 46 61 6c 73 65 06 49 | 74 61 6c 69 63 05 46 61 |.False.I|talic.Fa|
|000021f0| 6c 73 65 09 55 6e 64 65 | 72 6c 69 6e 65 05 46 61 |lse.Unde|rline.Fa|
|00002200| 6c 73 65 07 43 61 70 74 | 69 6f 6e 04 72 6f 6f 74 |lse.Capt|ion.root|
|00002210| 07 44 65 66 61 75 6c 74 | 04 54 72 75 65 06 43 61 |.Default|.True.Ca|
|00002220| 6e 63 65 6c 05 46 61 6c | 73 65 07 45 6e 61 62 6c |ncel.Fal|se.Enabl|
|00002230| 65 64 04 54 72 75 65 02 | 07 4c 69 73 74 42 6f 78 |ed.True.|.ListBox|
|00002240| 1c 04 4e 61 6d 65 08 4c | 69 73 74 42 6f 78 32 05 |..Name.L|istBox2.|
|00002250| 49 6e 64 65 78 0b 2d 32 | 31 34 37 34 38 33 36 34 |Index.-2|14748364|
|00002260| 38 0d 54 61 62 50 61 6e | 65 6c 49 6e 64 65 78 01 |8.TabPan|elIndex.|
|00002270| 30 07 56 69 73 69 62 6c | 65 04 54 72 75 65 04 4c |0.Visibl|e.True.L|
|00002280| 65 66 74 03 32 33 37 03 | 54 6f 70 02 33 34 05 57 |eft.237.|Top.34.W|
|00002290| 69 64 74 68 03 32 30 38 | 06 48 65 69 67 68 74 03 |idth.208|.Height.|
|000022a0| 32 35 39 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |259.Ball|oonHelp.|
|000022b0| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|000022c0| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 04 54 |Help..Lo|ckLeft.T|
|000022d0| 72 75 65 07 4c 6f 63 6b | 54 6f 70 04 54 72 75 65 |rue.Lock|Top.True|
|000022e0| 09 4c 6f 63 6b 52 69 67 | 68 74 05 46 61 6c 73 65 |.LockRig|ht.False|
|000022f0| 0a 4c 6f 63 6b 42 6f 74 | 74 6f 6d 04 54 72 75 65 |.LockBot|tom.True|
|00002300| 08 54 65 78 74 46 6f 6e | 74 06 53 79 73 74 65 6d |.TextFon|t.System|
|00002310| 08 54 65 78 74 53 69 7a | 65 02 31 32 04 42 6f 6c |.TextSiz|e.12.Bol|
|00002320| 64 05 46 61 6c 73 65 06 | 49 74 61 6c 69 63 05 46 |d.False.|Italic.F|
|00002330| 61 6c 73 65 09 55 6e 64 | 65 72 6c 69 6e 65 05 46 |alse.Und|erline.F|
|00002340| 61 6c 73 65 07 45 6e 61 | 62 6c 65 64 04 54 72 75 |alse.Ena|bled.Tru|
|00002350| 65 0b 43 6f 6c 75 6d 6e | 43 6f 75 6e 74 01 31 0c |e.Column|Count.1.|
|00002360| 43 6f 6c 75 6d 6e 57 69 | 64 74 68 73 00 0a 48 61 |ColumnWi|dths..Ha|
|00002370| 73 48 65 61 64 69 6e 67 | 05 46 61 6c 73 65 0c 55 |sHeading|.False.U|
|00002380| 73 65 46 6f 63 75 73 52 | 69 6e 67 04 54 72 75 65 |seFocusR|ing.True|
|00002390| 0c 49 6e 69 74 69 61 6c | 56 61 6c 75 65 00 0c 48 |.Initial|Value..H|
|000023a0| 69 65 72 61 72 63 68 69 | 63 61 6c 05 46 61 6c 73 |ierarchi|cal.Fals|
|000023b0| 65 0a 45 6e 61 62 6c 65 | 44 72 61 67 04 54 72 75 |e.Enable|Drag.Tru|
|000023c0| 65 0d 53 65 6c 65 63 74 | 69 6f 6e 54 79 70 65 01 |e.Select|ionType.|
|000023d0| 30 01 0a 53 74 61 74 69 | 63 54 65 78 74 17 04 4e |0..Stati|cText..N|
|000023e0| 61 6d 65 07 6f 6e 65 54 | 65 78 74 05 49 6e 64 65 |ame.oneT|ext.Inde|
|000023f0| 78 0b 2d 32 31 34 37 34 | 38 33 36 34 38 0d 54 61 |x.-21474|83648.Ta|
|00002400| 62 50 61 6e 65 6c 49 6e | 64 65 78 01 30 07 56 69 |bPanelIn|dex.0.Vi|
|00002410| 73 69 62 6c 65 04 54 72 | 75 65 04 4c 65 66 74 02 |sible.Tr|ue.Left.|
|00002420| 32 35 03 54 6f 70 02 31 | 33 05 57 69 64 74 68 03 |25.Top.1|3.Width.|
|00002430| 31 36 35 06 48 65 69 67 | 68 74 02 31 36 0b 42 61 |165.Heig|ht.16.Ba|
|00002440| 6c 6c 6f 6f 6e 48 65 6c | 70 00 13 44 69 73 61 62 |lloonHel|p..Disab|
|00002450| 6c 65 64 42 61 6c 6c 6f | 6f 6e 48 65 6c 70 00 08 |ledBallo|onHelp..|
|00002460| 4c 6f 63 6b 4c 65 66 74 | 05 46 61 6c 73 65 07 4c |LockLeft|.False.L|
|00002470| 6f 63 6b 54 6f 70 05 46 | 61 6c 73 65 09 4c 6f 63 |ockTop.F|alse.Loc|
|00002480| 6b 52 69 67 68 74 05 46 | 61 6c 73 65 0a 4c 6f 63 |kRight.F|alse.Loc|
|00002490| 6b 42 6f 74 74 6f 6d 05 | 46 61 6c 73 65 08 54 65 |kBottom.|False.Te|
|000024a0| 78 74 46 6f 6e 74 06 53 | 79 73 74 65 6d 08 54 65 |xtFont.S|ystem.Te|
|000024b0| 78 74 53 69 7a 65 02 31 | 32 04 42 6f 6c 64 05 46 |xtSize.1|2.Bold.F|
|000024c0| 61 6c 73 65 06 49 74 61 | 6c 69 63 05 46 61 6c 73 |alse.Ita|lic.Fals|
|000024d0| 65 09 55 6e 64 65 72 6c | 69 6e 65 05 46 61 6c 73 |e.Underl|ine.Fals|
|000024e0| 65 04 54 65 78 74 07 56 | 6f 6c 75 6d 65 73 09 54 |e.Text.V|olumes.T|
|000024f0| 65 78 74 41 6c 69 67 6e | 01 30 09 54 65 78 74 43 |extAlign|.0.TextC|
|00002500| 6f 6c 6f 72 01 30 09 4d | 75 6c 74 69 4c 69 6e 65 |olor.0.M|ultiLine|
|00002510| 05 46 61 6c 73 65 03 0a | 53 74 61 74 69 63 54 65 |.False..|StaticTe|
|00002520| 78 74 17 04 4e 61 6d 65 | 07 74 77 6f 54 65 78 74 |xt..Name|.twoText|
|00002530| 05 49 6e 64 65 78 0b 2d | 32 31 34 37 34 38 33 36 |.Index.-|21474836|
|00002540| 34 38 0d 54 61 62 50 61 | 6e 65 6c 49 6e 64 65 78 |48.TabPa|nelIndex|
|00002550| 01 30 07 56 69 73 69 62 | 6c 65 04 54 72 75 65 04 |.0.Visib|le.True.|
|00002560| 4c 65 66 74 03 32 35 32 | 03 54 6f 70 02 31 33 05 |Left.252|.Top.13.|
|00002570| 57 69 64 74 68 03 31 36 | 35 06 48 65 69 67 68 74 |Width.16|5.Height|
|00002580| 02 31 36 0b 42 61 6c 6c | 6f 6f 6e 48 65 6c 70 00 |.16.Ball|oonHelp.|
|00002590| 13 44 69 73 61 62 6c 65 | 64 42 61 6c 6c 6f 6f 6e |.Disable|dBalloon|
|000025a0| 48 65 6c 70 00 08 4c 6f | 63 6b 4c 65 66 74 05 46 |Help..Lo|ckLeft.F|
|000025b0| 61 6c 73 65 07 4c 6f 63 | 6b 54 6f 70 05 46 61 6c |alse.Loc|kTop.Fal|
|000025c0| 73 65 09 4c 6f 63 6b 52 | 69 67 68 74 05 46 61 6c |se.LockR|ight.Fal|
|000025d0| 73 65 0a 4c 6f 63 6b 42 | 6f 74 74 6f 6d 05 46 61 |se.LockB|ottom.Fa|
|000025e0| 6c 73 65 08 54 65 78 74 | 46 6f 6e 74 06 53 79 73 |lse.Text|Font.Sys|
|000025f0| 74 65 6d 08 54 65 78 74 | 53 69 7a 65 02 31 32 04 |tem.Text|Size.12.|
|00002600| 42 6f 6c 64 05 46 61 6c | 73 65 06 49 74 61 6c 69 |Bold.Fal|se.Itali|
|00002610| 63 05 46 61 6c 73 65 09 | 55 6e 64 65 72 6c 69 6e |c.False.|Underlin|
|00002620| 65 05 46 61 6c 73 65 04 | 54 65 78 74 00 09 54 65 |e.False.|Text..Te|
|00002630| 78 74 41 6c 69 67 6e 01 | 30 09 54 65 78 74 43 6f |xtAlign.|0.TextCo|
|00002640| 6c 6f 72 01 30 09 4d 75 | 6c 74 69 4c 69 6e 65 05 |lor.0.Mu|ltiLine.|
|00002650| 46 61 6c 73 65 04 00 02 | 41 04 4d 65 6e 75 04 4d |False...|A.Menu.M|
|00002660| 65 6e 75 05 a4 01 a4 01 | 90 06 ac 04 04 01 00 00 |enu.....|........|
|00002670| 80 80 80 80 10 00 00 00 | 00 00 07 00 00 3c 08 4d |........|.....<.M|
|00002680| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 02 00 |enuItem.|........|
|00002690| 12 41 62 6f 75 74 20 74 | 68 69 73 20 64 65 6d 6f |.About t|his demo|
|000026a0| 2e 2e 2e 08 61 62 6f 75 | 74 42 6f 78 80 80 80 80 |....abou|tBox....|
|000026b0| 10 00 00 00 00 00 07 00 | 00 3c 08 4d 65 6e 75 49 |........|.<.MenuI|
|000026c0| 74 65 6d 00 00 00 00 00 | 00 00 00 02 00 00 80 80 |tem.....|........|
|000026d0| 80 80 10 00 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |........|...<.Men|
|000026e0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 46 |uItem...|.......F|
|000026f0| 69 6c 65 00 80 80 80 80 | 10 00 00 00 00 00 07 00 |ile.....|........|
|00002700| 00 3c 08 4d 65 6e 75 49 | 74 65 6d 00 00 00 00 00 |.<.MenuI|tem.....|
|00002710| 00 00 02 00 04 51 75 69 | 74 08 46 69 6c 65 51 75 |.....Qui|t.FileQu|
|00002720| 69 74 80 80 80 80 10 01 | 51 00 00 00 00 07 00 00 |it......|Q.......|
|00002730| 3c 0c 51 75 69 74 4d 65 | 6e 75 49 74 65 6d 00 00 |<.QuitMe|nuItem..|
|00002740| 00 00 00 00 00 00 02 00 | 00 80 80 80 80 10 00 00 |........|........|
|00002750| 00 00 00 07 00 00 3c 08 | 4d 65 6e 75 49 74 65 6d |......<.|MenuItem|
|00002760| 00 00 00 00 00 00 00 00 | 00 04 45 64 69 74 00 80 |........|..Edit..|
|00002770| 80 80 80 10 00 00 00 00 | 00 07 00 00 3c 08 4d 65 |........|....<.Me|
|00002780| 6e 75 49 74 65 6d 00 00 | 00 00 00 00 00 07 00 04 |nuItem..|........|
|00002790| 55 6e 64 6f 08 45 64 69 | 74 55 6e 64 6f 80 80 80 |Undo.Edi|tUndo...|
|000027a0| 80 10 01 5a 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...Z....|...<.Men|
|000027b0| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 01 2d |uItem...|.......-|
|000027c0| 00 80 80 80 80 10 00 00 | 00 00 00 07 00 00 3c 08 |........|......<.|
|000027d0| 4d 65 6e 75 49 74 65 6d | 00 00 00 00 00 00 00 00 |MenuItem|........|
|000027e0| 00 03 43 75 74 07 45 64 | 69 74 43 75 74 80 80 80 |..Cut.Ed|itCut...|
|000027f0| 80 10 01 58 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...X....|...<.Men|
|00002800| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 04 43 |uItem...|.......C|
|00002810| 6f 70 79 08 45 64 69 74 | 43 6f 70 79 80 80 80 80 |opy.Edit|Copy....|
|00002820| 10 01 43 00 00 00 00 07 | 00 00 3c 08 4d 65 6e 75 |..C.....|..<.Menu|
|00002830| 49 74 65 6d 00 00 00 00 | 00 00 00 00 00 05 50 61 |Item....|......Pa|
|00002840| 73 74 65 09 45 64 69 74 | 50 61 73 74 65 80 80 80 |ste.Edit|Paste...|
|00002850| 80 10 01 56 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |...V....|...<.Men|
|00002860| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 00 05 43 |uItem...|.......C|
|00002870| 6c 65 61 72 09 45 64 69 | 74 43 6c 65 61 72 80 80 |lear.Edi|tClear..|
|00002880| 80 80 10 00 00 00 00 00 | 07 00 00 3c 08 4d 65 6e |........|...<.Men|
|00002890| 75 49 74 65 6d 00 00 00 | 00 00 00 00 00 02 00 00 |uItem...|........|
|000028a0| 80 80 80 80 10 00 00 00 | 00 00 07 00 00 3c 08 4d |........|.....<.M|
|000028b0| 65 6e 75 49 74 65 6d 00 | 00 00 00 00 00 00 00 02 |enuItem.|........|
|000028c0| 00 00 80 80 80 80 10 00 | 00 00 00 00 07 00 00 3c |........|.......<|
|000028d0| 08 4d 65 6e 75 49 74 65 | 6d 00 00 00 00 00 00 00 |.MenuIte|m.......|
|000028e0| 00 04 41 07 50 69 63 74 | 75 72 65 0a 6d 69 6e 69 |..A.Pict|ure.mini|
|000028f0| 46 6f 6c 64 65 72 02 11 | 12 00 8e 04 00 00 00 00 |Folder..|........|
|00002900| 01 0e 00 02 00 00 07 53 | 74 61 72 74 75 70 00 00 |.......S|tartup..|
|00002910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002920| 00 00 b1 7e 52 5d 42 44 | 00 00 00 00 38 44 0e 6d |...~R]BD|....8D.m|
|00002930| 69 6e 69 46 6f 6c 64 65 | 72 2e 67 69 66 00 00 00 |iniFolde|r.gif...|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002970| 38 46 b1 87 7a 52 47 49 | 46 66 38 42 49 4d 00 01 |8F..zRGI|Ff8BIM..|
|00002980| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002990| 00 00 00 00 00 0c 66 69 | 6c 65 20 62 72 6f 77 73 |......fi|le brows|
|000029a0| 65 72 00 01 00 10 00 00 | 38 44 00 00 1f 75 00 00 |er......|8D...u..|
|000029b0| 1e eb 00 00 04 c4 00 02 | 00 4c 53 74 61 72 74 75 |........|.LStartu|
|000029c0| 70 3a 50 72 6f 67 72 61 | 6d 6d 69 6e 67 3a 50 72 |p:Progra|mming:Pr|
|000029d0| 6f 67 72 61 6d 6d 69 6e | 67 20 50 72 6f 6a 65 63 |ogrammin|g Projec|
|000029e0| 74 73 3a 58 2d 42 61 73 | 69 63 3a 66 69 6c 65 20 |ts:X-Bas|ic:file |
|000029f0| 62 72 6f 77 73 65 72 3a | 6d 69 6e 69 46 6f 6c 64 |browser:|miniFold|
|00002a00| 65 72 2e 67 69 66 ff ff | 00 00 05 41 07 50 69 63 |er.gif..|...A.Pic|
|00002a10| 74 75 72 65 09 6d 69 6e | 69 41 72 72 6f 77 02 11 |ture.min|iArrow..|
|00002a20| 10 00 8e 04 00 00 00 00 | 01 0e 00 02 00 00 07 53 |........|.......S|
|00002a30| 74 61 72 74 75 70 00 00 | 00 00 00 00 00 00 00 00 |tartup..|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 b1 7e 52 5d 42 44 |........|...~R]BD|
|00002a50| 00 00 00 00 38 44 0d 6d | 69 6e 69 41 72 72 6f 77 |....8D.m|iniArrow|
|00002a60| 2e 67 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |.gif....|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a90| 00 00 00 00 00 00 00 00 | 38 6e b1 87 a2 94 47 49 |........|8n....GI|
|00002aa0| 46 66 38 42 49 4d 00 01 | 00 01 00 00 00 00 00 00 |Ff8BIM..|........|
|00002ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0c 66 69 |........|......fi|
|00002ac0| 6c 65 20 62 72 6f 77 73 | 65 72 00 01 00 10 00 00 |le brows|er......|
|00002ad0| 38 44 00 00 1f 75 00 00 | 1e eb 00 00 04 c4 00 02 |8D...u..|........|
|00002ae0| 00 4b 53 74 61 72 74 75 | 70 3a 50 72 6f 67 72 61 |.KStartu|p:Progra|
|00002af0| 6d 6d 69 6e 67 3a 50 72 | 6f 67 72 61 6d 6d 69 6e |mming:Pr|ogrammin|
|00002b00| 67 20 50 72 6f 6a 65 63 | 74 73 3a 58 2d 42 61 73 |g Projec|ts:X-Bas|
|00002b10| 69 63 3a 66 69 6c 65 20 | 62 72 6f 77 73 65 72 3a |ic:file |browser:|
|00002b20| 6d 69 6e 69 41 72 72 6f | 77 2e 67 69 66 00 ff ff |miniArro|w.gif...|
|00002b30| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+