| blob | bdf08b91d04c7dcb3214ee67230417308a3cb2f7 |
1 VERSION 5.00\r
2 Begin VB.Form frmWizard \r
3 Appearance = 0 'Flat\r
4 BackColor = &H80000005&\r
5 BorderStyle = 1 'Fixed Single\r
6 Caption = "OpenOffice.org Document Analysis Wizard"\r
7 ClientHeight = 5520\r
8 ClientLeft = 1965\r
9 ClientTop = 1815\r
10 ClientWidth = 8175\r
11 BeginProperty Font \r
12 Name = "Arial"\r
13 Size = 8.25\r
14 Charset = 0\r
15 Weight = 400\r
16 Underline = 0 'False\r
17 Italic = 0 'False\r
18 Strikethrough = 0 'False\r
19 EndProperty\r
20 Icon = "Wizard.frx":0000\r
21 KeyPreview = -1 'True\r
22 LinkTopic = "Form1"\r
23 LockControls = -1 'True\r
24 MaxButton = 0 'False\r
25 MinButton = 0 'False\r
26 ScaleHeight = 5520\r
27 ScaleWidth = 8175\r
28 Tag = "1000"\r
29 Begin VB.Frame fraStep \r
30 BorderStyle = 0 'None\r
31 Caption = "Introduction"\r
32 ClipControls = 0 'False\r
33 Enabled = 0 'False\r
34 BeginProperty Font \r
35 Name = "MS Sans Serif"\r
36 Size = 8.25\r
37 Charset = 0\r
38 Weight = 400\r
39 Underline = 0 'False\r
40 Italic = 0 'False\r
41 Strikethrough = 0 'False\r
42 EndProperty\r
43 Height = 4905\r
44 Index = 0\r
45 Left = -10000\r
46 TabIndex = 25\r
47 Tag = "1000"\r
48 Top = 0\r
49 Width = 8235\r
50 Begin VB.PictureBox Picture4 \r
51 Appearance = 0 'Flat\r
52 BackColor = &H80000005&\r
53 BorderStyle = 0 'None\r
54 ForeColor = &H80000008&\r
55 Height = 4935\r
56 Index = 0\r
57 Left = 0\r
58 ScaleHeight = 4935\r
59 ScaleWidth = 2565\r
60 TabIndex = 2\r
61 TabStop = 0 'False\r
62 Top = 0\r
63 Width = 2565\r
64 Begin VB.PictureBox Picture10 \r
65 Height = 735\r
66 Left = 2580\r
67 ScaleHeight = 735\r
68 ScaleWidth = 30\r
69 TabIndex = 68\r
70 TabStop = 0 'False\r
71 Top = 2610\r
72 Width = 30\r
73 End\r
74 Begin VB.PictureBox Picture6 \r
75 Appearance = 0 'Flat\r
76 BackColor = &H80000005&\r
77 BorderStyle = 0 'None\r
78 ForeColor = &H80000008&\r
79 Height = 1485\r
80 Left = 150\r
81 ScaleHeight = 1485\r
82 ScaleWidth = 2355\r
83 TabIndex = 67\r
84 TabStop = 0 'False\r
85 Top = 3390\r
86 Width = 2355\r
87 Begin VB.PictureBox Picture1 \r
88 Appearance = 0 'Flat\r
89 BackColor = &H80000005&\r
90 BorderStyle = 0 'None\r
91 ForeColor = &H80000008&\r
92 Height = 1200\r
93 Index = 0\r
94 Left = 200\r
95 Picture = "Wizard.frx":482C2\r
96 ScaleHeight = 1200\r
97 ScaleWidth = 1980\r
98 TabIndex = 7\r
99 TabStop = 0 'False\r
100 Tag = "1060"\r
101 Top = 300\r
102 Width = 1980\r
103 End\r
104 End\r
105 Begin VB.Label lblStep1_4 \r
106 BackColor = &H00EED3C2&\r
107 BackStyle = 0 'Transparent\r
108 Caption = "4. Analyze"\r
109 ForeColor = &H00BF4F59&\r
110 Height = 195\r
111 Left = 120\r
112 TabIndex = 89\r
113 Tag = "1044"\r
114 Top = 1800\r
115 Width = 2140\r
116 End\r
117 Begin VB.Line Line2 \r
118 BorderColor = &H00808080&\r
119 Index = 2\r
120 X1 = 2550\r
121 X2 = 2550\r
122 Y1 = 0\r
123 Y2 = 4920\r
124 End\r
125 Begin VB.Line Line3 \r
126 Index = 1\r
127 X1 = 120\r
128 X2 = 2280\r
129 Y1 = 480\r
130 Y2 = 480\r
131 End\r
132 Begin VB.Label Label7 \r
133 BackColor = &H00EED3C2&\r
134 Caption = "1. Introduction"\r
135 ForeColor = &H00BF4F59&\r
136 Height = 255\r
137 Index = 1\r
138 Left = 120\r
139 TabIndex = 11\r
140 Tag = "1041"\r
141 Top = 720\r
142 Width = 2140\r
143 End\r
144 Begin VB.Label Label8 \r
145 BackColor = &H00EED3C2&\r
146 BackStyle = 0 'Transparent\r
147 Caption = "3. Results"\r
148 ForeColor = &H00BF4F59&\r
149 Height = 255\r
150 Index = 1\r
151 Left = 120\r
152 TabIndex = 9\r
153 Tag = "1043"\r
154 Top = 1440\r
155 Width = 2140\r
156 End\r
157 Begin VB.Label Label9 \r
158 BackColor = &H00EED3C2&\r
159 BackStyle = 0 'Transparent\r
160 Caption = "2. Documents"\r
161 ForeColor = &H00BF4F59&\r
162 Height = 255\r
163 Index = 1\r
164 Left = 120\r
165 TabIndex = 10\r
166 Tag = "1042"\r
167 Top = 1080\r
168 Width = 2140\r
169 End\r
170 Begin VB.Label Label12 \r
171 BackStyle = 0 'Transparent\r
172 Caption = "Steps"\r
173 BeginProperty Font \r
174 Name = "Arial"\r
175 Size = 8.25\r
176 Charset = 0\r
177 Weight = 700\r
178 Underline = 0 'False\r
179 Italic = 0 'False\r
180 Strikethrough = 0 'False\r
181 EndProperty\r
182 Height = 255\r
183 Index = 1\r
184 Left = 120\r
185 TabIndex = 8\r
186 Tag = "1040"\r
187 Top = 240\r
188 Width = 2115\r
189 End\r
190 End\r
191 Begin VB.PictureBox Picture8 \r
192 Appearance = 0 'Flat\r
193 BorderStyle = 0 'None\r
194 ForeColor = &H80000008&\r
195 Height = 4935\r
196 Left = 2400\r
197 ScaleHeight = 4935\r
198 ScaleWidth = 5925\r
199 TabIndex = 3\r
200 TabStop = 0 'False\r
201 Top = -30\r
202 Width = 5925\r
203 Begin VB.CheckBox chkShowIntro \r
204 Caption = "Do not show this introduction again"\r
205 Enabled = 0 'False\r
206 Height = 315\r
207 Left = 690\r
208 MaskColor = &H00000000&\r
209 TabIndex = 6\r
210 Tag = "1103"\r
211 Top = 4890\r
212 Visible = 0 'False\r
213 Width = 3810\r
214 End\r
215 Begin VB.Label lblIntroduction1 \r
216 AutoSize = -1 'True\r
217 Caption = $"Wizard.frx":4F8B8\r
218 Height = 585\r
219 Left = 690\r
220 TabIndex = 93\r
221 Tag = "1101"\r
222 Top = 750\r
223 Width = 4890\r
224 WordWrap = -1 'True\r
225 End\r
226 Begin VB.Label lblIntroduction3 \r
227 AutoSize = -1 'True\r
228 Caption = "The wizard will remain on screen while the analysis is carried out."\r
229 Height = 195\r
230 Left = 690\r
231 TabIndex = 0\r
232 Tag = "1104"\r
233 Top = 2670\r
234 Width = 4845\r
235 WordWrap = -1 'True\r
236 End\r
237 Begin VB.Label lblIntroduction2 \r
238 AutoSize = -1 'True\r
239 Caption = "You will be able to select which documents you want to analyze as well as where you want the results to the analysis to be saved. "\r
240 Height = 390\r
241 Left = 690\r
242 TabIndex = 1\r
243 Tag = "1102"\r
244 Top = 1800\r
245 Width = 4875\r
246 WordWrap = -1 'True\r
247 End\r
248 Begin VB.Label Label12 \r
249 BackStyle = 0 'Transparent\r
250 Caption = "Introduction"\r
251 BeginProperty Font \r
252 Name = "Arial"\r
253 Size = 8.25\r
254 Charset = 0\r
255 Weight = 700\r
256 Underline = 0 'False\r
257 Italic = 0 'False\r
258 Strikethrough = 0 'False\r
259 EndProperty\r
260 Height = 255\r
261 Index = 2\r
262 Left = 450\r
263 TabIndex = 5\r
264 Tag = "1100"\r
265 Top = 270\r
266 Width = 4000\r
267 End\r
268 End\r
269 End\r
270 Begin VB.Frame fraStep \r
271 BorderStyle = 0 'None\r
272 Caption = "Setup"\r
273 Enabled = 0 'False\r
274 BeginProperty Font \r
275 Name = "MS Sans Serif"\r
276 Size = 8.25\r
277 Charset = 0\r
278 Weight = 400\r
279 Underline = 0 'False\r
280 Italic = 0 'False\r
281 Strikethrough = 0 'False\r
282 EndProperty\r
283 Height = 4905\r
284 Index = 1\r
285 Left = -10000\r
286 TabIndex = 32\r
287 Tag = "2000"\r
288 Top = 0\r
289 Width = 8235\r
290 Begin VB.PictureBox Picture4 \r
291 Appearance = 0 'Flat\r
292 BackColor = &H80000005&\r
293 BorderStyle = 0 'None\r
294 ForeColor = &H80000008&\r
295 Height = 4905\r
296 Index = 1\r
297 Left = 0\r
298 ScaleHeight = 4905\r
299 ScaleWidth = 2565\r
300 TabIndex = 61\r
301 TabStop = 0 'False\r
302 Top = 0\r
303 Width = 2565\r
304 Begin VB.PictureBox Picture1 \r
305 Appearance = 0 'Flat\r
306 BackColor = &H80000005&\r
307 BorderStyle = 0 'None\r
308 ForeColor = &H80000008&\r
309 Height = 1200\r
310 Index = 1\r
311 Left = 350\r
312 Picture = "Wizard.frx":4F971\r
313 ScaleHeight = 1200\r
314 ScaleWidth = 1980\r
315 TabIndex = 62\r
316 TabStop = 0 'False\r
317 Tag = "1060"\r
318 Top = 3690\r
319 Width = 1980\r
320 End\r
321 Begin VB.Label lblStep2_4 \r
322 BackColor = &H00EED3C2&\r
323 BackStyle = 0 'Transparent\r
324 Caption = "4. Analyze"\r
325 ForeColor = &H00BF4F59&\r
326 Height = 195\r
327 Left = 120\r
328 TabIndex = 90\r
329 Tag = "1044"\r
330 Top = 1800\r
331 Width = 2140\r
332 End\r
333 Begin VB.Line Line2 \r
334 BorderColor = &H00808080&\r
335 Index = 1\r
336 X1 = 2550\r
337 X2 = 2550\r
338 Y1 = 0\r
339 Y2 = 4920\r
340 End\r
341 Begin VB.Label Label12 \r
342 BackStyle = 0 'Transparent\r
343 Caption = "Steps"\r
344 BeginProperty Font \r
345 Name = "Arial"\r
346 Size = 8.25\r
347 Charset = 0\r
348 Weight = 700\r
349 Underline = 0 'False\r
350 Italic = 0 'False\r
351 Strikethrough = 0 'False\r
352 EndProperty\r
353 Height = 255\r
354 Index = 3\r
355 Left = 120\r
356 TabIndex = 66\r
357 Tag = "1040"\r
358 Top = 240\r
359 Width = 1335\r
360 End\r
361 Begin VB.Label Label9 \r
362 BackColor = &H00EED3C2&\r
363 Caption = "2. Documents"\r
364 ForeColor = &H00BF4F59&\r
365 Height = 255\r
366 Index = 2\r
367 Left = 120\r
368 TabIndex = 65\r
369 Tag = "1042"\r
370 Top = 1080\r
371 Width = 2140\r
372 End\r
373 Begin VB.Label Label8 \r
374 BackColor = &H00EED3C2&\r
375 BackStyle = 0 'Transparent\r
376 Caption = "3. Results"\r
377 ForeColor = &H00BF4F59&\r
378 Height = 255\r
379 Index = 2\r
380 Left = 120\r
381 TabIndex = 64\r
382 Tag = "1043"\r
383 Top = 1440\r
384 Width = 2140\r
385 End\r
386 Begin VB.Label Label7 \r
387 BackColor = &H00EED3C2&\r
388 BackStyle = 0 'Transparent\r
389 Caption = "1. Introduction"\r
390 ForeColor = &H00BF4F59&\r
391 Height = 255\r
392 Index = 2\r
393 Left = 120\r
394 TabIndex = 63\r
395 Tag = "1041"\r
396 Top = 720\r
397 Width = 2140\r
398 End\r
399 Begin VB.Line Line3 \r
400 Index = 2\r
401 X1 = 120\r
402 X2 = 2280\r
403 Y1 = 480\r
404 Y2 = 480\r
405 End\r
406 End\r
407 Begin VB.PictureBox Picture7 \r
408 Appearance = 0 'Flat\r
409 BorderStyle = 0 'None\r
410 ForeColor = &H80000008&\r
411 Height = 4725\r
412 Left = 2580\r
413 ScaleHeight = 4725\r
414 ScaleWidth = 5535\r
415 TabIndex = 58\r
416 TabStop = 0 'False\r
417 Top = 0\r
418 Width = 5535\r
419 Begin VB.ComboBox cbIgnoreOld \r
420 Height = 330\r
421 ItemData = "Wizard.frx":56F67\r
422 Left = 3950\r
423 List = "Wizard.frx":56F74\r
424 Style = 2 'Dropdown List\r
425 TabIndex = 99\r
426 Top = 1570\r
427 Width = 1215\r
428 End\r
429 Begin VB.CheckBox chkIgnoreOld \r
430 Caption = "Ignore documents older than"\r
431 Height = 225\r
432 Left = 450\r
433 TabIndex = 98\r
434 Top = 1600\r
435 Width = 3400\r
436 End\r
437 Begin VB.CheckBox chkWordDoc \r
438 Caption = "Documents (*.doc)"\r
439 Height = 225\r
440 Left = 2160\r
441 TabIndex = 19\r
442 Tag = "1208"\r
443 Top = 2600\r
444 Value = 1 'Checked\r
445 Width = 3200\r
446 End\r
447 Begin VB.CheckBox chkWordTemplate \r
448 Caption = "Templates (*.dot)"\r
449 Height = 225\r
450 Left = 2160\r
451 TabIndex = 20\r
452 Tag = "1209"\r
453 Top = 2900\r
454 Width = 3200\r
455 End\r
456 Begin VB.CheckBox chkPPTemplate \r
457 Caption = "Templates (*.pot)"\r
458 Height = 225\r
459 Left = 2160\r
460 TabIndex = 24\r
461 Tag = "1215"\r
462 Top = 4400\r
463 Width = 3200\r
464 End\r
465 Begin VB.CheckBox chkPPDoc \r
466 Caption = "Presentations (*.ppt)"\r
467 Height = 225\r
468 Left = 2160\r
469 TabIndex = 23\r
470 Tag = "1214"\r
471 Top = 4100\r
472 Width = 3200\r
473 End\r
474 Begin VB.CheckBox chkExcelDoc \r
475 Caption = "Spreadsheets (*.xls)"\r
476 Height = 225\r
477 Left = 2160\r
478 TabIndex = 21\r
479 Tag = "1211"\r
480 Top = 3350\r
481 Width = 3200\r
482 End\r
483 Begin VB.CheckBox chkExcelTemplate \r
484 Caption = "Templates (*.xlt)"\r
485 Height = 225\r
486 Left = 2160\r
487 TabIndex = 22\r
488 Tag = "1212"\r
489 Top = 3650\r
490 Width = 3200\r
491 End\r
492 Begin VB.CommandButton btnBrowseDirInput \r
493 Caption = "..."\r
494 Height = 315\r
495 Left = 4740\r
496 TabIndex = 17\r
497 Top = 900\r
498 Width = 400\r
499 End\r
500 Begin VB.TextBox txtInputDir \r
501 Height = 315\r
502 Left = 450\r
503 TabIndex = 16\r
504 Tag = "1205"\r
505 Text = "C:\"\r
506 Top = 900\r
507 Width = 4155\r
508 End\r
509 Begin VB.CheckBox chkIncludeSubdirs \r
510 Caption = "Include subdirectories in the analysis"\r
511 Height = 225\r
512 Left = 450\r
513 TabIndex = 18\r
514 Tag = "1202"\r
515 Top = 1300\r
516 Width = 4965\r
517 End\r
518 Begin VB.Label lblDocTypes \r
519 Caption = "Document types to analyze"\r
520 Height = 225\r
521 Left = 450\r
522 TabIndex = 95\r
523 Tag = "1206"\r
524 Top = 2250\r
525 Width = 4905\r
526 End\r
527 Begin VB.Label lblChooseDocs \r
528 AutoSize = -1 'True\r
529 Caption = "Choose the documents you want to analyze"\r
530 BeginProperty Font \r
531 Name = "Arial"\r
532 Size = 8.25\r
533 Charset = 0\r
534 Weight = 700\r
535 Underline = 0 'False\r
536 Italic = 0 'False\r
537 Strikethrough = 0 'False\r
538 EndProperty\r
539 Height = 195\r
540 Left = 300\r
541 TabIndex = 94\r
542 Tag = "1200"\r
543 Top = 240\r
544 Width = 5115\r
545 WordWrap = -1 'True\r
546 End\r
547 Begin VB.Label Label13 \r
548 AutoSize = -1 'True\r
549 Caption = "PowerPoint"\r
550 Height = 225\r
551 Index = 2\r
552 Left = 690\r
553 TabIndex = 74\r
554 Tag = "1213"\r
555 Top = 4100\r
556 Width = 1245\r
557 WordWrap = -1 'True\r
558 End\r
559 Begin VB.Label Label13 \r
560 AutoSize = -1 'True\r
561 Caption = "Excel"\r
562 Height = 225\r
563 Index = 1\r
564 Left = 690\r
565 TabIndex = 73\r
566 Tag = "1210"\r
567 Top = 3350\r
568 Width = 1245\r
569 WordWrap = -1 'True\r
570 End\r
571 Begin VB.Label Label13 \r
572 AutoSize = -1 'True\r
573 Caption = "Word"\r
574 Height = 225\r
575 Index = 0\r
576 Left = 690\r
577 TabIndex = 72\r
578 Tag = "1207"\r
579 Top = 2600\r
580 Width = 1245\r
581 WordWrap = -1 'True\r
582 End\r
583 Begin VB.Label Label1 \r
584 Caption = "Location of Microsoft Office documents"\r
585 Height = 200\r
586 Left = 450\r
587 TabIndex = 59\r
588 Tag = "1201"\r
589 Top = 600\r
590 Width = 4935\r
591 End\r
592 End\r
593 End\r
594 Begin VB.Frame fraStep \r
595 BorderStyle = 0 'None\r
596 Caption = "Options"\r
597 Enabled = 0 'False\r
598 BeginProperty Font \r
599 Name = "MS Sans Serif"\r
600 Size = 8.25\r
601 Charset = 0\r
602 Weight = 400\r
603 Underline = 0 'False\r
604 Italic = 0 'False\r
605 Strikethrough = 0 'False\r
606 EndProperty\r
607 Height = 4905\r
608 Index = 2\r
609 Left = -10000\r
610 TabIndex = 33\r
611 Tag = "2002"\r
612 Top = 0\r
613 Width = 8235\r
614 Begin VB.PictureBox Picture11 \r
615 BorderStyle = 0 'None\r
616 Height = 555\r
617 Left = 7260\r
618 ScaleHeight = 555\r
619 ScaleWidth = 705\r
620 TabIndex = 75\r
621 Top = 1890\r
622 Width = 705\r
623 Begin VB.CommandButton btnBrowseDirOut \r
624 Caption = "..."\r
625 Height = 375\r
626 Left = 90\r
627 TabIndex = 28\r
628 Top = 90\r
629 Width = 495\r
630 End\r
631 End\r
632 Begin VB.TextBox txtResultsName \r
633 Height = 375\r
634 Left = 3030\r
635 TabIndex = 26\r
636 Tag = "1302"\r
637 Text = "Analysis Results.xls"\r
638 Top = 1140\r
639 Width = 3045\r
640 End\r
641 Begin VB.TextBox txtOutputDir \r
642 Height = 375\r
643 Left = 3030\r
644 TabIndex = 27\r
645 Top = 1980\r
646 Width = 4185\r
647 End\r
648 Begin VB.PictureBox Picture5 \r
649 Appearance = 0 'Flat\r
650 BorderStyle = 0 'None\r
651 ForeColor = &H80000008&\r
652 Height = 1365\r
653 Left = 3300\r
654 ScaleHeight = 1365\r
655 ScaleWidth = 4635\r
656 TabIndex = 57\r
657 TabStop = 0 'False\r
658 Top = 3210\r
659 Width = 4635\r
660 Begin VB.OptionButton rdbResultsPrompt \r
661 Caption = "Ask me before overwriting"\r
662 Height = 435\r
663 Left = 0\r
664 TabIndex = 29\r
665 Tag = "1312"\r
666 Top = 0\r
667 Value = -1 'True\r
668 Width = 4485\r
669 End\r
670 Begin VB.OptionButton rdbResultsOverwrite \r
671 Caption = "Overwrite without asking me"\r
672 Height = 435\r
673 Left = 0\r
674 TabIndex = 30\r
675 Tag = "1313"\r
676 Top = 450\r
677 Width = 4455\r
678 End\r
679 Begin VB.OptionButton rdbResultsAppend \r
680 Caption = "Append the new results to the existing results"\r
681 Height = 675\r
682 Left = 0\r
683 TabIndex = 31\r
684 Tag = "1314"\r
685 Top = 780\r
686 Visible = 0 'False\r
687 Width = 4515\r
688 End\r
689 End\r
690 Begin VB.Frame Frame3 \r
691 Appearance = 0 'Flat\r
692 BackColor = &H80000005&\r
693 BorderStyle = 0 'None\r
694 Enabled = 0 'False\r
695 ForeColor = &H0099A8AC&\r
696 Height = 5175\r
697 Index = 0\r
698 Left = 0\r
699 TabIndex = 39\r
700 Top = 0\r
701 Width = 2535\r
702 Begin VB.PictureBox Picture1 \r
703 Appearance = 0 'Flat\r
704 BackColor = &H80000005&\r
705 BorderStyle = 0 'None\r
706 ForeColor = &H80000008&\r
707 Height = 1200\r
708 Index = 3\r
709 Left = 350\r
710 Picture = "Wizard.frx":56F97\r
711 ScaleHeight = 1200\r
712 ScaleWidth = 1980\r
713 TabIndex = 40\r
714 TabStop = 0 'False\r
715 Top = 3690\r
716 Width = 1980\r
717 End\r
718 Begin VB.Label lblStep3_4 \r
719 BackColor = &H00EED3C2&\r
720 BackStyle = 0 'Transparent\r
721 Caption = "4. Analyze"\r
722 ForeColor = &H00BF4F59&\r
723 Height = 195\r
724 Left = 120\r
725 TabIndex = 91\r
726 Tag = "1044"\r
727 Top = 1800\r
728 Width = 2140\r
729 End\r
730 Begin VB.Label Label12 \r
731 BackStyle = 0 'Transparent\r
732 Caption = "Steps"\r
733 BeginProperty Font \r
734 Name = "Arial"\r
735 Size = 8.25\r
736 Charset = 0\r
737 Weight = 700\r
738 Underline = 0 'False\r
739 Italic = 0 'False\r
740 Strikethrough = 0 'False\r
741 EndProperty\r
742 Height = 255\r
743 Index = 0\r
744 Left = 120\r
745 TabIndex = 53\r
746 Tag = "1040"\r
747 Top = 240\r
748 Width = 1335\r
749 End\r
750 Begin VB.Label Label9 \r
751 BackColor = &H00EED3C2&\r
752 BackStyle = 0 'Transparent\r
753 Caption = "2. Documents"\r
754 ForeColor = &H00BF4F59&\r
755 Height = 255\r
756 Index = 0\r
757 Left = 120\r
758 TabIndex = 43\r
759 Tag = "1042"\r
760 Top = 1080\r
761 Width = 2140\r
762 End\r
763 Begin VB.Label Label8 \r
764 BackColor = &H00EED3C2&\r
765 Caption = "3. Results"\r
766 ForeColor = &H00BF4F59&\r
767 Height = 255\r
768 Index = 0\r
769 Left = 120\r
770 TabIndex = 42\r
771 Tag = "1043"\r
772 Top = 1440\r
773 Width = 2140\r
774 End\r
775 Begin VB.Label Label7 \r
776 BackColor = &H00EED3C2&\r
777 BackStyle = 0 'Transparent\r
778 Caption = "1. Introduction"\r
779 ForeColor = &H00BF4F59&\r
780 Height = 255\r
781 Index = 0\r
782 Left = 120\r
783 TabIndex = 41\r
784 Tag = "1041"\r
785 Top = 720\r
786 Width = 2140\r
787 End\r
788 Begin VB.Line Line3 \r
789 Index = 0\r
790 X1 = 120\r
791 X2 = 2280\r
792 Y1 = 480\r
793 Y2 = 480\r
794 End\r
795 End\r
796 Begin VB.Label Label3 \r
797 Caption = "File name for the results spreadsheet"\r
798 Height = 195\r
799 Left = 3030\r
800 TabIndex = 71\r
801 Tag = "1301"\r
802 Top = 840\r
803 Width = 4785\r
804 End\r
805 Begin VB.Label lblResultsLocation \r
806 Caption = "Location"\r
807 Height = 195\r
808 Left = 3030\r
809 TabIndex = 70\r
810 Tag = "1304"\r
811 Top = 1710\r
812 Width = 4755\r
813 End\r
814 Begin VB.Label Label13 \r
815 AutoSize = -1 'True\r
816 Caption = "If results already exisit under the same name and location:"\r
817 Height = 195\r
818 Index = 5\r
819 Left = 3030\r
820 TabIndex = 38\r
821 Tag = "1311"\r
822 Top = 2730\r
823 Width = 4230\r
824 WordWrap = -1 'True\r
825 End\r
826 Begin VB.Line Line2 \r
827 BorderColor = &H00808080&\r
828 Index = 0\r
829 X1 = 2550\r
830 X2 = 2550\r
831 Y1 = 0\r
832 Y2 = 4920\r
833 End\r
834 Begin VB.Label lblChooseResults \r
835 AutoSize = -1 'True\r
836 Caption = "Choose where and how to save the analysis results"\r
837 BeginProperty Font \r
838 Name = "Arial"\r
839 Size = 8.25\r
840 Charset = 0\r
841 Weight = 700\r
842 Underline = 0 'False\r
843 Italic = 0 'False\r
844 Strikethrough = 0 'False\r
845 EndProperty\r
846 Height = 195\r
847 Left = 2880\r
848 TabIndex = 37\r
849 Tag = "1300"\r
850 Top = 240\r
851 Width = 5055\r
852 WordWrap = -1 'True\r
853 End\r
854 End\r
855 Begin VB.Frame fraStep \r
856 BorderStyle = 0 'None\r
857 Caption = "Analyze"\r
858 Enabled = 0 'False\r
859 BeginProperty Font \r
860 Name = "MS Sans Serif"\r
861 Size = 8.25\r
862 Charset = 0\r
863 Weight = 400\r
864 Underline = 0 'False\r
865 Italic = 0 'False\r
866 Strikethrough = 0 'False\r
867 EndProperty\r
868 Height = 4905\r
869 Index = 3\r
870 Left = 0\r
871 TabIndex = 34\r
872 Tag = "3000"\r
873 Top = 0\r
874 Width = 2.45745e5\r
875 Begin VB.PictureBox Picture12 \r
876 Appearance = 0 'Flat\r
877 BorderStyle = 0 'None\r
878 ForeColor = &H80000008&\r
879 Height = 4905\r
880 Left = 10020\r
881 ScaleHeight = 4905\r
882 ScaleWidth = 8175\r
883 TabIndex = 69\r
884 TabStop = 0 'False\r
885 Top = 0\r
886 Width = 8175\r
887 End\r
888 Begin VB.CommandButton btnPrepare \r
889 Caption = "Prepare"\r
890 Enabled = 0 'False\r
891 Height = 375\r
892 Left = 3340\r
893 TabIndex = 97\r
894 Tag = "1411"\r
895 Top = 4410\r
896 Visible = 0 'False\r
897 Width = 4000\r
898 End\r
899 Begin VB.CommandButton btnRunAnalysis \r
900 Caption = "Run"\r
901 Height = 375\r
902 Left = 3340\r
903 TabIndex = 35\r
904 Tag = "1404"\r
905 Top = 3410\r
906 Width = 4000\r
907 End\r
908 Begin VB.CommandButton btnViewResults \r
909 Caption = "View"\r
910 Enabled = 0 'False\r
911 Height = 375\r
912 Left = 3340\r
913 TabIndex = 36\r
914 Tag = "1406"\r
915 Top = 3910\r
916 Width = 4000\r
917 End\r
918 Begin VB.Frame Frame3 \r
919 Appearance = 0 'Flat\r
920 BackColor = &H80000005&\r
921 BorderStyle = 0 'None\r
922 Enabled = 0 'False\r
923 ForeColor = &H0099A8AC&\r
924 Height = 5175\r
925 Index = 3\r
926 Left = 0\r
927 TabIndex = 44\r
928 Top = 0\r
929 Width = 2535\r
930 Begin VB.PictureBox Picture4 \r
931 Appearance = 0 'Flat\r
932 BackColor = &H80000005&\r
933 BorderStyle = 0 'None\r
934 ForeColor = &H80000008&\r
935 Height = 1575\r
936 Index = 2\r
937 Left = 150\r
938 ScaleHeight = 1575\r
939 ScaleWidth = 2385\r
940 TabIndex = 55\r
941 TabStop = 0 'False\r
942 Top = 3390\r
943 Width = 2385\r
944 Begin VB.PictureBox Picture1 \r
945 Appearance = 0 'Flat\r
946 BackColor = &H80000005&\r
947 BorderStyle = 0 'None\r
948 ForeColor = &H80000008&\r
949 Height = 1200\r
950 Index = 2\r
951 Left = 200\r
952 Picture = "Wizard.frx":5E58D\r
953 ScaleHeight = 1200\r
954 ScaleWidth = 2475\r
955 TabIndex = 56\r
956 TabStop = 0 'False\r
957 Tag = "1060"\r
958 Top = 300\r
959 Width = 2480\r
960 End\r
961 End\r
962 Begin VB.Label lblStep4_4 \r
963 BackColor = &H00EED3C2&\r
964 Caption = "4. Analyze"\r
965 ForeColor = &H00BF4F59&\r
966 Height = 255\r
967 Left = 120\r
968 TabIndex = 92\r
969 Tag = "1044"\r
970 Top = 1800\r
971 Width = 2140\r
972 End\r
973 Begin VB.Label Label12 \r
974 BackStyle = 0 'Transparent\r
975 Caption = "Steps"\r
976 BeginProperty Font \r
977 Name = "Arial"\r
978 Size = 8.25\r
979 Charset = 0\r
980 Weight = 700\r
981 Underline = 0 'False\r
982 Italic = 0 'False\r
983 Strikethrough = 0 'False\r
984 EndProperty\r
985 Height = 255\r
986 Index = 5\r
987 Left = 120\r
988 TabIndex = 54\r
989 Tag = "1040"\r
990 Top = 240\r
991 Width = 1335\r
992 End\r
993 Begin VB.Label Label9 \r
994 BackColor = &H00EED3C2&\r
995 BackStyle = 0 'Transparent\r
996 Caption = "2. Documents"\r
997 ForeColor = &H00BF4F59&\r
998 Height = 255\r
999 Index = 3\r
1000 Left = 120\r
1001 TabIndex = 47\r
1002 Tag = "1042"\r
1003 Top = 1080\r
1004 Width = 2140\r
1005 End\r
1006 Begin VB.Label Label8 \r
1007 BackColor = &H00EED3C2&\r
1008 BackStyle = 0 'Transparent\r
1009 Caption = "3. Results"\r
1010 ForeColor = &H00BF4F59&\r
1011 Height = 255\r
1012 Index = 3\r
1013 Left = 120\r
1014 TabIndex = 46\r
1015 Tag = "1043"\r
1016 Top = 1440\r
1017 Width = 2140\r
1018 End\r
1019 Begin VB.Label Label7 \r
1020 BackColor = &H00EED3C2&\r
1021 BackStyle = 0 'Transparent\r
1022 Caption = "1. Introduction"\r
1023 ForeColor = &H00BF4F59&\r
1024 Height = 255\r
1025 Index = 3\r
1026 Left = 120\r
1027 TabIndex = 45\r
1028 Tag = "1041"\r
1029 Top = 720\r
1030 Width = 2140\r
1031 End\r
1032 Begin VB.Line Line3 \r
1033 Index = 3\r
1034 X1 = 120\r
1035 X2 = 2280\r
1036 Y1 = 480\r
1037 Y2 = 480\r
1038 End\r
1039 End\r
1040 Begin VB.Label lblSkippedOld \r
1041 Caption = "Skipped <TOPIC> documets, because they were too old"\r
1042 Height = 195\r
1043 Left = 3180\r
1044 TabIndex = 60\r
1045 Top = 2880\r
1046 Width = 4935\r
1047 End\r
1048 Begin VB.Label lblSetupDone \r
1049 AutoSize = -1 'True\r
1050 Caption = "Run the analysis and view the results"\r
1051 BeginProperty Font \r
1052 Name = "Arial"\r
1053 Size = 8.25\r
1054 Charset = 0\r
1055 Weight = 700\r
1056 Underline = 0 'False\r
1057 Italic = 0 'False\r
1058 Strikethrough = 0 'False\r
1059 EndProperty\r
1060 Height = 195\r
1061 Left = 2880\r
1062 TabIndex = 96\r
1063 Tag = "1400"\r
1064 Top = 240\r
1065 Width = 4905\r
1066 WordWrap = -1 'True\r
1067 End\r
1068 Begin VB.Label lblNumPPT \r
1069 Caption = "<TOPIC> Presentations"\r
1070 Height = 255\r
1071 Left = 4620\r
1072 TabIndex = 88\r
1073 Tag = "1409"\r
1074 Top = 2280\r
1075 Width = 3375\r
1076 End\r
1077 Begin VB.Label lblNumPOT \r
1078 Caption = "<TOPIC> Templates"\r
1079 Height = 255\r
1080 Left = 4620\r
1081 TabIndex = 87\r
1082 Tag = "1403"\r
1083 Top = 2550\r
1084 Width = 3375\r
1085 End\r
1086 Begin VB.Label lblNumXLS \r
1087 Caption = "<TOPIC> Spreadsheets"\r
1088 Height = 255\r
1089 Left = 4620\r
1090 TabIndex = 86\r
1091 Tag = "1408"\r
1092 Top = 1680\r
1093 Width = 3375\r
1094 End\r
1095 Begin VB.Label lblNumXLT \r
1096 Caption = "<TOPIC> Templates"\r
1097 Height = 255\r
1098 Left = 4620\r
1099 TabIndex = 85\r
1100 Tag = "1403"\r
1101 Top = 1950\r
1102 Width = 3375\r
1103 End\r
1104 Begin VB.Label Label16 \r
1105 AutoSize = -1 'True\r
1106 Caption = "PowerPoint"\r
1107 Height = 195\r
1108 Left = 3360\r
1109 TabIndex = 82\r
1110 Tag = "1213"\r
1111 Top = 2280\r
1112 Width = 1095\r
1113 WordWrap = -1 'True\r
1114 End\r
1115 Begin VB.Label Label13 \r
1116 Caption = "Word"\r
1117 Height = 705\r
1118 Index = 10\r
1119 Left = 0\r
1120 TabIndex = 81\r
1121 Tag = "1207"\r
1122 Top = 0\r
1123 Width = 1245\r
1124 End\r
1125 Begin VB.Label Label13 \r
1126 Caption = "Excel"\r
1127 Height = 705\r
1128 Index = 9\r
1129 Left = 0\r
1130 TabIndex = 80\r
1131 Tag = "1210"\r
1132 Top = 810\r
1133 Width = 1245\r
1134 End\r
1135 Begin VB.Label Label13 \r
1136 Caption = "PowerPoint"\r
1137 Height = 585\r
1138 Index = 8\r
1139 Left = 0\r
1140 TabIndex = 79\r
1141 Tag = "1213"\r
1142 Top = 1620\r
1143 Width = 1245\r
1144 End\r
1145 Begin VB.Label Label13 \r
1146 Caption = "Word"\r
1147 Height = 585\r
1148 Index = 7\r
1149 Left = 0\r
1150 TabIndex = 78\r
1151 Tag = "1207"\r
1152 Top = 0\r
1153 Width = 1245\r
1154 End\r
1155 Begin VB.Label Label13 \r
1156 Caption = "Excel"\r
1157 Height = 585\r
1158 Index = 6\r
1159 Left = 0\r
1160 TabIndex = 77\r
1161 Tag = "1210"\r
1162 Top = 810\r
1163 Width = 1245\r
1164 End\r
1165 Begin VB.Label Label13 \r
1166 Caption = "PowerPoint"\r
1167 Height = 465\r
1168 Index = 4\r
1169 Left = 0\r
1170 TabIndex = 76\r
1171 Tag = "1213"\r
1172 Top = 1620\r
1173 Width = 1245\r
1174 End\r
1175 Begin VB.Label lblNumTemplates \r
1176 Caption = "<TOPIC> Templates"\r
1177 Height = 255\r
1178 Left = 4620\r
1179 TabIndex = 52\r
1180 Tag = "1403"\r
1181 Top = 1350\r
1182 Width = 3375\r
1183 End\r
1184 Begin VB.Label lblNumDocs \r
1185 Caption = "<TOPIC> Documents"\r
1186 Height = 255\r
1187 Left = 4620\r
1188 TabIndex = 51\r
1189 Tag = "1402"\r
1190 Top = 1080\r
1191 Width = 3375\r
1192 End\r
1193 Begin VB.Line Line6 \r
1194 BorderColor = &H00808080&\r
1195 X1 = 2640\r
1196 X2 = 8040\r
1197 Y1 = 3270\r
1198 Y2 = 3270\r
1199 End\r
1200 Begin VB.Label Label15 \r
1201 AutoSize = -1 'True\r
1202 Caption = "Excel"\r
1203 Height = 195\r
1204 Left = 3360\r
1205 TabIndex = 50\r
1206 Tag = "1210"\r
1207 Top = 1680\r
1208 Width = 1095\r
1209 WordWrap = -1 'True\r
1210 End\r
1211 Begin VB.Label Label14 \r
1212 AutoSize = -1 'True\r
1213 Caption = "Word"\r
1214 Height = 195\r
1215 Left = 3360\r
1216 TabIndex = 49\r
1217 Tag = "1207"\r
1218 Top = 1080\r
1219 Width = 1110\r
1220 WordWrap = -1 'True\r
1221 End\r
1222 Begin VB.Label lblTotalNumDocs \r
1223 AutoSize = -1 'True\r
1224 Caption = "A total of <TOPIC> documents will be analyzed:"\r
1225 Height = 195\r
1226 Left = 3180\r
1227 TabIndex = 48\r
1228 Tag = "1401"\r
1229 Top = 660\r
1230 Width = 4800\r
1231 WordWrap = -1 'True\r
1232 End\r
1233 Begin VB.Line Line2 \r
1234 BorderColor = &H00808080&\r
1235 Index = 3\r
1236 X1 = 2550\r
1237 X2 = 2550\r
1238 Y1 = 0\r
1239 Y2 = 4920\r
1240 End\r
1241 End\r
1242 Begin VB.PictureBox picNav \r
1243 Align = 2 'Align Bottom\r
1244 Appearance = 0 'Flat\r
1245 BorderStyle = 0 'None\r
1246 BeginProperty Font \r
1247 Name = "MS Sans Serif"\r
1248 Size = 8.25\r
1249 Charset = 0\r
1250 Weight = 400\r
1251 Underline = 0 'False\r
1252 Italic = 0 'False\r
1253 Strikethrough = 0 'False\r
1254 EndProperty\r
1255 ForeColor = &H80000008&\r
1256 Height = 570\r
1257 Left = 0\r
1258 ScaleHeight = 570\r
1259 ScaleWidth = 8175\r
1260 TabIndex = 4\r
1261 TabStop = 0 'False\r
1262 Top = 4950\r
1263 Width = 8175\r
1264 Begin VB.CommandButton cmdNav \r
1265 Caption = "Finish"\r
1266 Height = 312\r
1267 Index = 4\r
1268 Left = 5325\r
1269 MaskColor = &H00000000&\r
1270 TabIndex = 14\r
1271 Tag = "1023"\r
1272 Top = 120\r
1273 Width = 1320\r
1274 End\r
1275 Begin VB.CommandButton cmdNav \r
1276 Caption = "Next >>"\r
1277 Height = 312\r
1278 Index = 3\r
1279 Left = 3870\r
1280 MaskColor = &H00000000&\r
1281 TabIndex = 13\r
1282 Tag = "1022"\r
1283 Top = 120\r
1284 Width = 1320\r
1285 End\r
1286 Begin VB.CommandButton cmdNav \r
1287 Caption = "<< Back"\r
1288 Height = 312\r
1289 Index = 2\r
1290 Left = 2535\r
1291 MaskColor = &H00000000&\r
1292 TabIndex = 12\r
1293 Tag = "1021"\r
1294 Top = 120\r
1295 Width = 1320\r
1296 End\r
1297 Begin VB.CommandButton cmdNav \r
1298 Cancel = -1 'True\r
1299 Caption = "Cancel"\r
1300 Height = 312\r
1301 Index = 1\r
1302 Left = 6750\r
1303 MaskColor = &H00000000&\r
1304 TabIndex = 15\r
1305 Tag = "1024"\r
1306 Top = 120\r
1307 Width = 1320\r
1308 End\r
1309 End\r
1310 Begin VB.Label Label18 \r
1311 Caption = "<TOPIC> Documents"\r
1312 Height = 255\r
1313 Left = 0\r
1314 TabIndex = 84\r
1315 Top = 0\r
1316 Width = 2085\r
1317 WordWrap = -1 'True\r
1318 End\r
1319 Begin VB.Label Label17 \r
1320 Caption = "<TOPIC> Templates"\r
1321 Height = 255\r
1322 Left = 0\r
1323 TabIndex = 83\r
1324 Top = 390\r
1325 Width = 3615\r
1326 WordWrap = -1 'True\r
1327 End\r
1328 Begin VB.Line Line4 \r
1329 BorderColor = &H00808080&\r
1330 X1 = 0\r
1331 X2 = 8160\r
1332 Y1 = 4920\r
1333 Y2 = 4920\r
1334 End\r
1335 End\r
1336 Attribute VB_Name = "frmWizard"\r
1337 Attribute VB_GlobalNameSpace = False\r
1338 Attribute VB_Creatable = False\r
1339 Attribute VB_PredeclaredId = True\r
1340 Attribute VB_Exposed = False\r
1341 ' *******************************************************************************\r
1342 ' * $RCSfile: Wizard.frm,v $\r
1343 ' *\r
1344 ' * Description:\r
1345 ' *\r
1346 ' * Last change: $Date: 2008/10/07 11:35:55 $ $Revision: 1.42.66.2 $\r
1347 ' *\r
1348 ' * Copyright 2005 Sun Microsystems, Inc. All rights reserved. Use of this\r
1349 ' * product is subject to license terms.\r
1350 ' *\r
1351 ' *******************************************************************************\r
1352 \r
1353 Option Explicit\r
1354 \r
1355 Const TOPIC_STR = "<TOPIC>"\r
1356 Const TOPIC2_STR = "<TOPIC2>"\r
1357 Const CR_STR = "<CR>"\r
1358 Const CDEBUG_LEVEL_DEFAULT = 1 'Will output all Debug output to analysis.log file\r
1359 Const CSUPPORTED_VERSION = 9#\r
1360 \r
1361 Const NUM_STEPS = 4\r
1362 \r
1363 Const CAPPNAME_WORD = "Word"\r
1364 Const CAPPNAME_EXCEL = "Excel"\r
1365 Const CAPPNAME_POWERPOINT = "PowerPoint"\r
1366 Const CANALYZING = "Analyzing"\r
1367 \r
1368 Const BTN_CANCEL = 1\r
1369 Const BTN_BACK = 2\r
1370 Const BTN_NEXT = 3\r
1371 Const BTN_FINISH = 4\r
1372 \r
1373 Const STEP_INTRO = 0\r
1374 Const STEP_1 = 1\r
1375 Const STEP_2 = 2\r
1376 Const STEP_FINISH = 3\r
1377 \r
1378 Const DIR_NONE = 0\r
1379 Const DIR_BACK = 1\r
1380 Const DIR_NEXT = 2\r
1381 \r
1382 Const CPRODUCTNAME_STR = "<PRODUCTNAME>"\r
1383 \r
1384 Const CSTR_ANALYSIS_LOG_DONE = "Done"\r
1385 \r
1386 Const CINPUT_DIR = "indir"\r
1387 Const COUTPUT_DIR = "outdir"\r
1388 Const CRESULTS_FILE = "resultsfile"\r
1389 Const CLOG_FILE = "logfile"\r
1390 Const CRESULTS_TEMPLATE = "resultstemplate"\r
1391 Const CRESULTS_EXIST = "resultsexist"\r
1392 Const CPROMPT_FILE = "promptfile"\r
1393 Const COVERWRITE_FILE = "overwritefile"\r
1394 Const CAPPEND_FILE = "appendfile"\r
1395 Const CNEW_RESULTS_FILE = "newresultsfile"\r
1396 Const CINCLUDE_SUBDIRS = "includesubdirs"\r
1397 Const CDEBUG_LEVEL = "debuglevel"\r
1398 Const CTYPE_WORDDOC = "typeworddoc"\r
1399 Const CTYPE_WORDDOT = "typeworddot"\r
1400 Const CTYPE_EXCELDOC = "typeexceldoc"\r
1401 Const CTYPE_EXCELDOT = "typeexceldot"\r
1402 Const CTYPE_PPDOC = "typepowerpointdoc"\r
1403 Const CTYPE_PPDOT = "typepowerpointdot"\r
1404 Const COUTPUT_TYPE = "outputtype"\r
1405 Const COUTPUT_TYPE_XLS = "xls"\r
1406 Const COUTPUT_TYPE_XML = "xml"\r
1407 Const COUTPUT_TYPE_BOTH = "both"\r
1408 Const CVERSION = "version"\r
1409 Const CDOPREPARE = "prepare"\r
1410 Const CTITLE = "title"\r
1411 Const CIGNORE_OLD_DOCS = "ignoreolddocuments"\r
1412 Const CISSUE_LIMIT = "issuesmonthlimit"\r
1413 Const CISSUE_LIMIT_DAW = 6\r
1414 Private mIssueLimit As Integer\r
1415 Const CDEFAULT_PASSWORD = "defaultpassword"\r
1416 Const CSTR_TEST_PASSWORD = "test"\r
1417 Private mDefaultPassword As String\r
1418 \r
1419 Const CLAST_CHECKPOINT As String = "LastCheckpoint"\r
1420 Const CNEXT_FILE As String = "NextFile"\r
1421 Const C_ABORT_ANALYSIS As String = "AbortAnalysis"\r
1422 \r
1423 Const CNUMBER_TOTAL_DOCS = "total_numberdocs"\r
1424 Const CNUMBER_DOCS_DOC = "numberdocs_doc"\r
1425 Const CNUMBER_TEMPLATES_DOT = "numbertemplates_dot"\r
1426 Const CNUMBER_DOCS_XLS = "numberdocs_xls"\r
1427 Const CNUMBER_TEMPLATES_XLT = "numbertemplates_xlt"\r
1428 Const CNUMBER_DOCS_PPT = "numberdocs_ppt"\r
1429 Const CNUMBER_TEMPLATES_POT = "numbertemplates_pot"\r
1430 Const CSTART_TIME = "start"\r
1431 Const CEND_TIME = "end"\r
1432 Const CELAPSED_TIME = "time_for_analysis"\r
1433 Const CWINVERSION = "win_version"\r
1434 Const CUSER_LOCALE_INFO = "user_locale"\r
1435 Const CSYS_LOCALE_INFO = "system_locale"\r
1436 Const CWORD_VERSION = "word_ver"\r
1437 Const CEXCEL_VERSION = "excel_ver"\r
1438 Const CPOWERPOINT_VERSION = "powerpoint_ver"\r
1439 Const CNOT_INSTALLED = "not installed"\r
1440 \r
1441 Const CRESULTS_FILE_EXTENSION = ".xls"\r
1442 Const CCONFIG_BACKUP_EXT = "_bak"\r
1443 Const CDEFAULT_README_NAME = "UserGuide"\r
1444 \r
1445 Const C_DOCS_LESS_3_MONTH = "DocumentsYoungerThan3Month"\r
1446 Const C_DOCS_LESS_6_MONTH = "DocumentsYoungerThan6Month"\r
1447 Const C_DOCS_LESS_12_MONTH = "DocumentsYoungerThan12Month"\r
1448 Const C_DOCS_MORE_12_MONTH = "DocumentsOlderThan12Month"\r
1449 \r
1450 'module level vars\r
1451 Dim mnCurStep As Integer\r
1452 Dim mbTrue As Boolean\r
1453 Dim mbFalse As Boolean\r
1454 Dim mLblSteps As String\r
1455 Dim mChbSubdirs As String\r
1456 \r
1457 Dim mWordDocCount As Long\r
1458 Dim mExcelDocCount As Long\r
1459 Dim mPPDocCount As Long\r
1460 \r
1461 Dim mWordTemplateCount As Long\r
1462 Dim mExcelTemplateCount As Long\r
1463 Dim mPPTemplateCount As Long\r
1464 Dim mTotalDocCount As Long\r
1465 Dim mIgnoredDocCount As Long\r
1466 \r
1467 Public VBInst As VBIDE.VBE\r
1468 Dim mbFinishOK As Boolean\r
1469 Dim mbAllowExit As Boolean\r
1470 Private mStrTrue As String\r
1471 Private mLogFilePath As String\r
1472 Private mDebugLevel As String\r
1473 Private mIniFilePath As String\r
1474 Private mbDocCountCurrent As Boolean\r
1475 Private mbDoPrepare As Boolean\r
1476 \r
1477 Dim mDocFiles As CollectedFiles\r
1478 \r
1479 Private Declare Sub InitCommonControls Lib "comctl32" ()\r
1480 Private Declare Function GetTickCount Lib "kernel32" () As Long\r
1481 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)\r
1482 \r
1483 Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000\r
1484 \r
1485 Private Declare Function FormatMessage Lib "kernel32" Alias _\r
1486 "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, _\r
1487 ByVal dwMessageId As Long, ByVal dwLanguageId As Long, _\r
1488 ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long\r
1489 \r
1490 \r
1491 Private Const HKEY_CURRENT_USER As Long = &H80000001\r
1492 Private Const HKEY_LOCAL_MACHINE As Long = &H80000002\r
1493 \r
1494 Const WORD_APP = "word"\r
1495 Const EXCEL_APP = "excel"\r
1496 Const PP_APP = "pp"\r
1497 Const REG_KEY_APP_PATH = "Software\Microsoft\Windows\CurrentVersion\App Paths\"\r
1498 \r
1499 \r
1500 Function GetAppPath(myApp As String) As String\r
1501 Dim myPath As String\r
1502 \r
1503 If (myApp = WORD_APP) Then\r
1504 myPath = GetRegistryInfo(HKEY_LOCAL_MACHINE, REG_KEY_APP_PATH & "winword.exe", "")\r
1505 ElseIf (myApp = EXCEL_APP) Then\r
1506 myPath = GetRegistryInfo(HKEY_LOCAL_MACHINE, REG_KEY_APP_PATH & "excel.exe", "")\r
1507 ElseIf (myApp = PP_APP) Then\r
1508 myPath = GetRegistryInfo(HKEY_LOCAL_MACHINE, REG_KEY_APP_PATH & "powerpnt.exe", "")\r
1509 Else\r
1510 MsgBox "Unknown application: " & myApp, vbCritical\r
1511 Exit Function\r
1512 End If\r
1513 \r
1514 If (myPath = "") Then\r
1515 If (myApp = WORD_APP) Then\r
1516 myPath = GetRegistryInfo(HKEY_CURRENT_USER, REG_KEY_APP_PATH & "winword.exe", "")\r
1517 ElseIf (myApp = EXCEL_APP) Then\r
1518 myPath = GetRegistryInfo(HKEY_CURRENT_USER, REG_KEY_APP_PATH & "excel.exe", "")\r
1519 ElseIf (myApp = PP_APP) Then\r
1520 myPath = GetRegistryInfo(HKEY_CURRENT_USER, REG_KEY_APP_PATH & "powerpnt.exe", "")\r
1521 End If\r
1522 End If\r
1523 \r
1524 GetAppPath = myPath\r
1525 End Function\r
1526 \r
1527 Function GetDriverDoc(myApp As String) As String\r
1528 Dim myPath As String\r
1529 Dim errStr As String\r
1530 Dim fso As New FileSystemObject\r
1531 \r
1532 If (myApp = WORD_APP) Then\r
1533 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)\r
1534 ElseIf (myApp = EXCEL_APP) Then\r
1535 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)\r
1536 ElseIf (myApp = PP_APP) Then\r
1537 myPath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)\r
1538 Else\r
1539 MsgBox "Unknown application: " & myApp, vbCritical\r
1540 GoTo FinalExit\r
1541 End If\r
1542 \r
1543 If Not fso.FileExists(myPath) Then\r
1544 errStr = ReplaceTopic2Tokens(GetResString(ERR_MISSING_WORD_DRIVER), _\r
1545 TOPIC_STR, myPath, CR_STR, Chr(13))\r
1546 WriteDebug errStr\r
1547 MsgBox errStr, vbCritical\r
1548 GoTo FinalExit\r
1549 End If\r
1550 \r
1551 GetDriverDoc = myPath\r
1552 \r
1553 FinalExit:\r
1554 Set fso = Nothing\r
1555 End Function\r
1556 \r
1557 \r
1558 \r
1559 \r
1560 Private Function AutomationMessageText(lCode As Long) As String\r
1561 Dim sRtrnCode As String\r
1562 Dim lRet As Long\r
1563 \r
1564 sRtrnCode = Space$(256)\r
1565 lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0&, lCode, 0&, _\r
1566 sRtrnCode, 256&, 0&)\r
1567 If lRet > 0 Then\r
1568 AutomationMessageText = Left(sRtrnCode, lRet)\r
1569 Else\r
1570 AutomationMessageText = "Error not found."\r
1571 End If\r
1572 \r
1573 End Function\r
1574 \r
1575 Private Sub btnBrowseDirInput_Click()\r
1576 Dim folder As String\r
1577 Dim StartDir As String\r
1578 \r
1579 If Len(txtInputDir.Text) > 0 Then\r
1580 StartDir = txtInputDir.Text\r
1581 End If\r
1582 \r
1583 folder = BrowseForFolder(Me, GetResString(BROWSE_FOR_DOC_DIR_ID), StartDir)\r
1584 If Len(folder) = 0 Then\r
1585 Exit Sub 'User Selected Cancel\r
1586 End If\r
1587 txtInputDir.Text = folder\r
1588 txtInputDir.ToolTipText = folder\r
1589 \r
1590 If Len(txtOutputDir.Text) = 0 Then\r
1591 txtOutputDir.Text = folder\r
1592 txtOutputDir.ToolTipText = folder\r
1593 End If\r
1594 End Sub\r
1595 \r
1596 Private Sub btnBrowseDirOut_Click()\r
1597 Dim folder As String\r
1598 Dim StartDir As String\r
1599 \r
1600 If Len(txtOutputDir.Text) > 0 Then\r
1601 StartDir = txtOutputDir.Text\r
1602 End If\r
1603 \r
1604 folder = BrowseForFolder(Me, GetResString(BROWSE_FOR_RES_DIR_ID), StartDir)\r
1605 If Len(folder) = 0 Then\r
1606 Exit Sub 'User Selected Cancel\r
1607 End If\r
1608 txtOutputDir.Text = folder\r
1609 txtOutputDir.ToolTipText = folder\r
1610 End Sub\r
1611 \r
1612 Private Sub btnPrepare_Click()\r
1613 On Error GoTo HandleErrors\r
1614 Dim currentFunctionName As String\r
1615 currentFunctionName = "btnPrepare_Click"\r
1616 \r
1617 mbDoPrepare = True\r
1618 mbAllowExit = True\r
1619 \r
1620 btnViewResults.Enabled = False\r
1621 btnRunAnalysis.Enabled = False\r
1622 btnPrepare.Enabled = False\r
1623 \r
1624 cmdNav(BTN_CANCEL).Enabled = False\r
1625 cmdNav(BTN_BACK).Enabled = False\r
1626 cmdNav(BTN_NEXT).Enabled = False\r
1627 cmdNav(BTN_FINISH).Enabled = False\r
1628 btnPrepare.Caption = GetResString(RUNBTN_RUNNING_ID)\r
1629 \r
1630 Dim str As String\r
1631 \r
1632 If RunAnalysis(True) Then\r
1633 cmdNav(BTN_FINISH).Enabled = True\r
1634 btnRunAnalysis.Enabled = True\r
1635 btnViewResults.Enabled = True\r
1636 btnPrepare.Enabled = True\r
1637 btnViewResults.SetFocus\r
1638 str = ReplaceTopic2Tokens(GetResString(RID_STR_ENG_OTHER_PREPARE_COMPLETED_PREP_ID), _\r
1639 TOPIC_STR, getOutputDir, CR_STR, Chr(13))\r
1640 MsgBox str, vbInformation\r
1641 Else\r
1642 cmdNav(BTN_FINISH).Enabled = False\r
1643 btnRunAnalysis.Enabled = True\r
1644 btnViewResults.Enabled = False\r
1645 btnPrepare.Enabled = False\r
1646 End If\r
1647 \r
1648 FinalExit:\r
1649 mbDoPrepare = False\r
1650 cmdNav(BTN_CANCEL).Enabled = True\r
1651 cmdNav(BTN_BACK).Enabled = True\r
1652 cmdNav(BTN_NEXT).Enabled = False\r
1653 btnPrepare.Caption = GetResString(PREPAREBTN_START_ID)\r
1654 Exit Sub\r
1655 \r
1656 HandleErrors:\r
1657 cmdNav(BTN_FINISH).Enabled = False\r
1658 btnRunAnalysis.Enabled = True\r
1659 btnViewResults.Enabled = False\r
1660 btnPrepare.Enabled = False\r
1661 \r
1662 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
1663 Resume FinalExit\r
1664 End Sub\r
1665 \r
1666 \r
1667 Private Sub cmdNav_Click(Index As Integer)\r
1668 On Error GoTo HandleError\r
1669 Dim currentFunctionName As String\r
1670 currentFunctionName = "cmdNav_Click"\r
1671 Dim nAltStep As Integer\r
1672 Dim rc As Long\r
1673 Dim fso As Scripting.FileSystemObject\r
1674 \r
1675 Select Case Index\r
1676 Case BTN_CANCEL\r
1677 'Copy backup configuration file over existing\r
1678 If fso Is Nothing Then\r
1679 Set fso = New Scripting.FileSystemObject\r
1680 End If\r
1681 If fso.FileExists(mIniFilePath & CCONFIG_BACKUP_EXT) Then\r
1682 DeleteFile mIniFilePath\r
1683 AttemptToCopyFile mIniFilePath & CCONFIG_BACKUP_EXT, mIniFilePath\r
1684 End If\r
1685 Set mDocFiles = Nothing\r
1686 \r
1687 Unload Me\r
1688 \r
1689 Case BTN_BACK\r
1690 nAltStep = mnCurStep - 1\r
1691 SetStep nAltStep, DIR_BACK\r
1692 \r
1693 Case BTN_NEXT\r
1694 nAltStep = mnCurStep + 1\r
1695 SetStep nAltStep, DIR_NEXT\r
1696 \r
1697 Case BTN_FINISH\r
1698 If (Not mbAllowExit) Then\r
1699 Dim str As String\r
1700 Dim response As Integer\r
1701 \r
1702 str = ReplaceTopicTokens(GetResString(RID_STR_ENG_ANALYSE_NOT_RUN), CR_STR, Chr(13))\r
1703 response = MsgBox(str, vbOKCancel + vbInformation)\r
1704 If response = vbOK Then ' User chose Ok.\r
1705 mbAllowExit = True\r
1706 End If\r
1707 End If\r
1708 \r
1709 If (mbAllowExit) Then\r
1710 DeleteFile mIniFilePath & CCONFIG_BACKUP_EXT\r
1711 Set mDocFiles = Nothing\r
1712 Unload Me\r
1713 End If\r
1714 End Select\r
1715 \r
1716 FinalExit:\r
1717 Set fso = Nothing\r
1718 Exit Sub\r
1719 \r
1720 HandleError:\r
1721 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
1722 \r
1723 Resume FinalExit\r
1724 End Sub\r
1725 \r
1726 Private Sub btnRunAnalysis_Click()\r
1727 On Error GoTo HandleErrors\r
1728 Dim bViewResults As Boolean\r
1729 Dim str As String\r
1730 Dim response As Integer\r
1731 \r
1732 btnViewResults.Enabled = False\r
1733 btnRunAnalysis.Enabled = False\r
1734 btnPrepare.Enabled = False\r
1735 bViewResults = False\r
1736 mbAllowExit = True\r
1737 \r
1738 cmdNav(BTN_CANCEL).Enabled = False\r
1739 cmdNav(BTN_BACK).Enabled = False\r
1740 cmdNav(BTN_NEXT).Enabled = False\r
1741 cmdNav(BTN_FINISH).Enabled = False\r
1742 btnRunAnalysis.Caption = GetResString(RUNBTN_RUNNING_ID)\r
1743 \r
1744 If RunAnalysis(False) Then\r
1745 cmdNav(BTN_FINISH).Enabled = True\r
1746 btnRunAnalysis.Enabled = True\r
1747 btnViewResults.Enabled = True\r
1748 btnPrepare.Enabled = True\r
1749 btnViewResults.SetFocus\r
1750 btnRunAnalysis.Caption = GetResString(RUNBTN_START_ID)\r
1751 \r
1752 str = ReplaceTopicTokens(GetResString(RID_STR_ENG_ANALYZE_COMPLETED_ID), CR_STR, Chr(13))\r
1753 response = MsgBox(str, vbOKCancel + vbInformation)\r
1754 If response = vbOK Then ' User chose Ok.\r
1755 bViewResults = True\r
1756 End If\r
1757 Else\r
1758 btnRunAnalysis.Enabled = True\r
1759 btnViewResults.Enabled = False\r
1760 btnPrepare.Enabled = False\r
1761 End If\r
1762 \r
1763 FinalExit:\r
1764 cmdNav(BTN_CANCEL).Enabled = True\r
1765 cmdNav(BTN_BACK).Enabled = True\r
1766 cmdNav(BTN_NEXT).Enabled = False\r
1767 btnRunAnalysis.Caption = GetResString(RUNBTN_START_ID)\r
1768 \r
1769 If bViewResults Then\r
1770 btnViewResults_Click\r
1771 End If\r
1772 \r
1773 Exit Sub\r
1774 \r
1775 HandleErrors:\r
1776 cmdNav(BTN_FINISH).Enabled = False\r
1777 btnRunAnalysis.Enabled = True\r
1778 btnViewResults.Enabled = False\r
1779 btnPrepare.Enabled = False\r
1780 WriteDebug "Document Analysis: View Analysis Results" & Err.Number & " " & Err.Description & " " & Err.Source\r
1781 Resume FinalExit\r
1782 End Sub\r
1783 \r
1784 Private Sub btnViewResults_Click()\r
1785 On Error GoTo HandleErrors\r
1786 Dim resultsFile As String\r
1787 Dim fso As New FileSystemObject\r
1788 Dim str As String\r
1789 \r
1790 mbAllowExit = True\r
1791 \r
1792 resultsFile = getOutputDir & "\" & txtResultsName.Text\r
1793 \r
1794 If GetIniSetting(COUTPUT_TYPE) = COUTPUT_TYPE_XML Or _\r
1795 GetIniSetting(COUTPUT_TYPE) = COUTPUT_TYPE_BOTH Then\r
1796 \r
1797 Dim base As String\r
1798 Dim path As String\r
1799 base = fso.GetParentFolderName(resultsFile) & "\" & fso.GetBaseName(txtResultsName.Text)\r
1800 If CheckWordDocsToAnalyze Then\r
1801 path = base & "_" & CAPPNAME_WORD & "." & COUTPUT_TYPE_XML\r
1802 End If\r
1803 If CheckExcelDocsToAnalyze Then\r
1804 If path <> "" Then path = path & vbLf\r
1805 path = path & base & "_" & CAPPNAME_EXCEL & "." & COUTPUT_TYPE_XML\r
1806 End If\r
1807 If CheckPPDocsToAnalyze Then\r
1808 If path <> "" Then path = path & vbLf\r
1809 path = path & base & "_" & CAPPNAME_POWERPOINT & "." & COUTPUT_TYPE_XML\r
1810 End If\r
1811 \r
1812 str = ReplaceTopic2Tokens(GetResString(XML_RESULTS_ID), _\r
1813 TOPIC_STR, path, CR_STR, Chr(13))\r
1814 WriteDebug str\r
1815 MsgBox str, vbInformation\r
1816 If GetIniSetting(COUTPUT_TYPE) = COUTPUT_TYPE_XML Then\r
1817 Resume FinalExit\r
1818 End If\r
1819 End If\r
1820 \r
1821 If Not fso.FileExists(resultsFile) Then\r
1822 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_RESULTS_DOC), _\r
1823 TOPIC_STR, resultsFile, CR_STR, Chr(13))\r
1824 WriteDebug str\r
1825 MsgBox str, vbCritical\r
1826 Resume FinalExit\r
1827 End If\r
1828 \r
1829 Dim xl As Excel.application\r
1830 Set xl = New Excel.application\r
1831 xl.Visible = True\r
1832 xl.Workbooks.Open resultsFile\r
1833 \r
1834 FinalExit:\r
1835 Set xl = Nothing\r
1836 Set fso = Nothing\r
1837 \r
1838 Exit Sub\r
1839 HandleErrors:\r
1840 WriteDebug "Document Analysis: View Analysis Results" & Err.Number & " " & Err.Description & " " & Err.Source\r
1841 End Sub\r
1842 \r
1843 Private Sub Form_Activate()\r
1844 Dim currentFunctionName As String\r
1845 Dim missingFile As String\r
1846 currentFunctionName = "Form_Activate"\r
1847 On Error GoTo HandleErrors\r
1848 \r
1849 If Not CheckNeededFiles(missingFile) Then\r
1850 Dim str As String\r
1851 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_WORD_DRIVER), _\r
1852 TOPIC_STR, missingFile, CR_STR, Chr(13))\r
1853 WriteDebug str\r
1854 MsgBox str, vbCritical\r
1855 \r
1856 End 'Exit application - some needed files are missing\r
1857 End If\r
1858 \r
1859 FinalExit:\r
1860 Exit Sub\r
1861 \r
1862 HandleErrors:\r
1863 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
1864 GoTo FinalExit\r
1865 End Sub\r
1866 \r
1867 Private Sub Form_Initialize()\r
1868 Dim currentFunctionName As String\r
1869 currentFunctionName = "Form_Initialize"\r
1870 On Error GoTo ErrorHandler\r
1871 Call InitCommonControls 'Use Windows XP Visual Style\r
1872 \r
1873 FinalExit:\r
1874 Exit Sub\r
1875 \r
1876 ErrorHandler:\r
1877 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
1878 GoTo FinalExit\r
1879 End Sub\r
1880 \r
1881 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\r
1882 If KeyCode = vbKeyF1 Then\r
1883 'cmdNav_Click BTN_HELP\r
1884 End If\r
1885 End Sub\r
1886 \r
1887 Private Sub Form_Load()\r
1888 Const COS_CHECK = "oscheck"\r
1889 \r
1890 On Error GoTo HandleErrors\r
1891 Dim currentFunctionName As String\r
1892 currentFunctionName = "Form_Load"\r
1893 \r
1894 Dim fso As New FileSystemObject\r
1895 Dim i As Integer\r
1896 'init all vars\r
1897 mbFinishOK = False\r
1898 mbTrue = True\r
1899 mbFalse = False\r
1900 \r
1901 mLogFilePath = GetLogFilePath\r
1902 mIniFilePath = GetIniFilePath\r
1903 mbDocCountCurrent = False\r
1904 mbDoPrepare = False\r
1905 mbAllowExit = False\r
1906 \r
1907 'Check OS before running\r
1908 Dim bOSCheck As Boolean\r
1909 bOSCheck = IIf(GetIniSetting(COS_CHECK) = "False", False, True)\r
1910 \r
1911 If bOSCheck Then\r
1912 If Not IsWin98Plus Then\r
1913 Dim str As String\r
1914 Dim winVer As RGB_WINVER\r
1915 str = ReplaceTopic2Tokens(GetResString(ERR_SUPPORTED_OSVERSION), _\r
1916 TOPIC_STR, GetWinVersion(winVer), CR_STR, Chr(13))\r
1917 WriteDebug str\r
1918 MsgBox str, vbCritical\r
1919 \r
1920 End 'Exit application - unsupported OS\r
1921 End If\r
1922 Else\r
1923 Err.Clear\r
1924 WriteDebug "IsWin2000Plus OS Check bypassed by analysis.ini oscheck=False setting"\r
1925 End If\r
1926 \r
1927 \r
1928 For i = 0 To NUM_STEPS - 1\r
1929 fraStep(i).Left = -10000\r
1930 Next\r
1931 \r
1932 'Load All string info for Form\r
1933 LoadResStrings Me\r
1934 \r
1935 frmWizard.Caption = ReplaceTopicTokens(GetResString(TITLE_ID), CPRODUCTNAME_STR, _\r
1936 GetResString(PRODUCTNAME_ID))\r
1937 lblIntroduction1.Caption = ReplaceTopicTokens(GetResString(INTRO1_ID), CPRODUCTNAME_STR, _\r
1938 GetResString(PRODUCTNAME_ID))\r
1939 mLblSteps = GetResString(LBL_STEPS_ID)\r
1940 mChbSubdirs = GetResString(CHK_SUBDIRS_ID)\r
1941 \r
1942 ' Setup Doc Preparation specific strings\r
1943 If gBoolPreparation Then\r
1944 ' Steps\r
1945 lblStep1_4.Caption = GetResString(RID_STR_ENG_SIDEBAR_ANALYZE_PREP_ID)\r
1946 lblStep2_4.Caption = GetResString(RID_STR_ENG_SIDEBAR_ANALYZE_PREP_ID)\r
1947 lblStep3_4.Caption = GetResString(RID_STR_ENG_SIDEBAR_ANALYZE_PREP_ID)\r
1948 lblStep4_4.Caption = GetResString(RID_STR_ENG_SIDEBAR_ANALYZE_PREP_ID)\r
1949 \r
1950 ' Preparation - Step 1. Introduction\r
1951 lblIntroduction1.Caption = ReplaceTopicTokens(GetResString(RID_STR_ENG_INTRODUCTION_INTRO1_PREP_ID), CPRODUCTNAME_STR, _\r
1952 GetResString(PRODUCTNAME_ID))\r
1953 lblIntroduction2.Caption = GetResString(RID_STR_ENG_INTRODUCTION_INTRO2_PREP_ID)\r
1954 lblIntroduction3.Caption = GetResString(RID_STR_ENG_INTRODUCTION_INTRO3_PREP_ID)\r
1955 \r
1956 ' Preparation - Step 2. Documents\r
1957 lblChooseDocs.Caption = GetResString(RID_STR_ENG_DOCUMENTS_CHOOSE_DOCUMENTS_PREP_ID)\r
1958 lblDocTypes.Caption = GetResString(RID_STR_ENG_DOCUMENTS_CHOOSE_DOC_TYPES_PREP_ID)\r
1959 'mChbSubdirs = GetResString(RID_STR_ENG_DOCUMENTS_INCLUDE_SUBDIRECTORIES_PREP_ID)\r
1960 chkIgnoreOld.Caption = GetResString(RID_STR_IGNORE_OLDER_CB_ID)\r
1961 \r
1962 cbIgnoreOld.Clear\r
1963 cbIgnoreOld.AddItem (GetResString(RID_STR_IGNORE_OLDER_3_MONTHS_ID))\r
1964 cbIgnoreOld.AddItem (GetResString(RID_STR_IGNORE_OLDER_6_MONTHS_ID))\r
1965 cbIgnoreOld.AddItem (GetResString(RID_STR_IGNORE_OLDER_12_MONTHS_ID))\r
1966 cbIgnoreOld.ListIndex = 0\r
1967 \r
1968 ' Preparation - Step 3. Results\r
1969 lblChooseResults.Caption = GetResString(RID_STR_ENG_RESULTS_CHOOSE_OPTIONS_PREP_ID)\r
1970 txtResultsName.Text = GetResString(RID_STR_ENG_RESULTS_ANALYSIS_XLS_PREP_ID)\r
1971 \r
1972 'Show Append option\r
1973 rdbResultsAppend.Visible = True\r
1974 \r
1975 ' Preparation - Step 4. Analysis\r
1976 lblSetupDone.Caption = GetResString(RID_STR_ENG_ANALYZE_SETUP_COMPLETE_PREP_ID)\r
1977 btnPrepare.Visible = True\r
1978 Else\r
1979 ' The next line is a work around for a wrong translated string and should be removed\r
1980 ' when RID_STR_ENG_RESULTS_CHOOSE_OPTIONS has been corrected\r
1981 lblChooseResults.Caption = GetResString(RID_STR_ENG_RESULTS_CHOOSE_OPTIONS_PREP_ID)\r
1982 mDefaultPassword = IIf(GetIniSetting(CDEFAULT_PASSWORD) = "", _\r
1983 CSTR_TEST_PASSWORD, GetIniSetting(CDEFAULT_PASSWORD))\r
1984 End If\r
1985 \r
1986 SetStep 0, DIR_NEXT\r
1987 Dim tmpStr As String\r
1988 \r
1989 'Setup Params\r
1990 tmpStr = GetIniSetting(CINPUT_DIR)\r
1991 If tmpStr <> "" Then\r
1992 txtInputDir.Text = tmpStr\r
1993 txtInputDir.ToolTipText = tmpStr\r
1994 End If\r
1995 tmpStr = GetIniSetting(COUTPUT_DIR)\r
1996 If tmpStr <> "" Then\r
1997 If Right(tmpStr, 1) = ":" And Len(tmpStr) = 2 Then\r
1998 tmpStr = tmpStr & "\"\r
1999 End If\r
2000 txtOutputDir.Text = tmpStr\r
2001 txtOutputDir.ToolTipText = tmpStr\r
2002 End If\r
2003 tmpStr = GetIniSetting(CRESULTS_FILE)\r
2004 If tmpStr <> "" Then txtResultsName.Text = tmpStr\r
2005 \r
2006 rdbResultsPrompt.value = False\r
2007 rdbResultsOverwrite.value = False\r
2008 rdbResultsAppend.value = False\r
2009 Dim resultsSetting As String\r
2010 resultsSetting = GetIniSetting(CRESULTS_EXIST)\r
2011 If resultsSetting = CPROMPT_FILE Then\r
2012 rdbResultsPrompt.value = True\r
2013 ElseIf resultsSetting = CAPPEND_FILE Then\r
2014 rdbResultsAppend.value = True\r
2015 Else\r
2016 rdbResultsOverwrite.value = True\r
2017 End If\r
2018 \r
2019 chkWordDoc.value = IIf(GetIniSetting(CTYPE_WORDDOC) = CStr(True), vbChecked, 0)\r
2020 chkWordTemplate.value = IIf(GetIniSetting(CTYPE_WORDDOT) = CStr(True), vbChecked, 0)\r
2021 chkExcelDoc.value = IIf(GetIniSetting(CTYPE_EXCELDOC) = CStr(True), vbChecked, 0)\r
2022 chkExcelTemplate.value = IIf(GetIniSetting(CTYPE_EXCELDOT) = CStr(True), vbChecked, 0)\r
2023 chkPPDoc.value = IIf(GetIniSetting(CTYPE_PPDOC) = CStr(True), vbChecked, 0)\r
2024 chkPPTemplate.value = IIf(GetIniSetting(CTYPE_PPDOT) = CStr(True), vbChecked, 0)\r
2025 chkIncludeSubdirs.value = IIf(GetIniSetting(CINCLUDE_SUBDIRS) = CStr(True), vbChecked, 0)\r
2026 mDebugLevel = IIf(GetIniSetting(CDEBUG_LEVEL) = "", CDEBUG_LEVEL_DEFAULT, GetIniSetting(CDEBUG_LEVEL))\r
2027 chkIgnoreOld.value = IIf(GetIniSetting(CIGNORE_OLD_DOCS) = CStr(True), vbChecked, 0)\r
2028 \r
2029 mIssueLimit = IIf(GetIniSetting(CISSUE_LIMIT) = "", CISSUE_LIMIT_DAW, GetIniSetting(CISSUE_LIMIT))\r
2030 If (mIssueLimit <= 3) Then\r
2031 cbIgnoreOld.ListIndex = 0\r
2032 ElseIf (mIssueLimit <= 6) Then\r
2033 cbIgnoreOld.ListIndex = 1\r
2034 Else\r
2035 cbIgnoreOld.ListIndex = 2\r
2036 End If\r
2037 \r
2038 'Always ensure at least one doc type is selected on startup\r
2039 If (chkWordDoc.value <> vbChecked) And _\r
2040 (chkWordTemplate.value <> vbChecked) And _\r
2041 (chkExcelDoc.value <> vbChecked) And _\r
2042 (chkExcelTemplate.value <> vbChecked) And _\r
2043 (chkPPDoc.value <> vbChecked) And _\r
2044 (chkPPTemplate.value <> vbChecked) Then\r
2045 \r
2046 chkWordDoc.value = vbChecked\r
2047 End If\r
2048 \r
2049 FinalExit:\r
2050 Set fso = Nothing\r
2051 Exit Sub\r
2052 \r
2053 HandleErrors:\r
2054 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2055 Resume FinalExit\r
2056 End Sub\r
2057 \r
2058 Private Sub SetStep(nStep As Integer, nDirection As Integer)\r
2059 On Error GoTo HandleError\r
2060 Const driveTypeIsCDROM = 4\r
2061 Dim val As String\r
2062 Dim fso As Scripting.FileSystemObject\r
2063 Set fso = New Scripting.FileSystemObject\r
2064 Dim drive\r
2065 \r
2066 \r
2067 mbDocCountCurrent = False\r
2068 \r
2069 Select Case nStep\r
2070 Case STEP_INTRO\r
2071 'MsgBox "Enter Intro"\r
2072 Case STEP_1\r
2073 'Leave Introduction\r
2074 'Workaround - resource bug for SubDir checkbox, have to set it explicitly\r
2075 chkIncludeSubdirs.Caption = mChbSubdirs\r
2076 Case STEP_2\r
2077 'Leave Documents\r
2078 \r
2079 Set drive = fso.GetDrive(fso.GetDriveName(txtInputDir.Text))\r
2080 If drive.DriveType = driveTypeIsCDROM Then\r
2081 If Not drive.IsReady Then\r
2082 MsgBox GetResString(ERR_CDROM_NOT_READY), vbCritical\r
2083 Exit Sub\r
2084 End If\r
2085 End If\r
2086 \r
2087 If txtInputDir.Text = "" Or Not fso.FolderExists(txtInputDir.Text) Then ' fso.FolderExists() has replaced dir()\r
2088 MsgBox ReplaceTopicTokens(GetResString(ERR_NO_DOC_DIR), _\r
2089 CR_STR, Chr(13)), vbCritical\r
2090 Exit Sub\r
2091 End If\r
2092 \r
2093 If Not CheckUserChosenDocsToAnalyze Then\r
2094 MsgBox GetResString(ERR_NO_DOC_TYPES), vbCritical\r
2095 Exit Sub\r
2096 End If\r
2097 'Expand directory name only without path to full path\r
2098 txtInputDir.Text = fso.GetAbsolutePathName(txtInputDir.Text)\r
2099 \r
2100 If txtOutputDir.Text = "" Then\r
2101 txtOutputDir.Text = txtInputDir.Text\r
2102 End If\r
2103 \r
2104 mbFinishOK = False\r
2105 \r
2106 'Workaround - label resource bug for Steps, have to set it explicitly\r
2107 Label12(0).Caption = mLblSteps\r
2108 Label12(5).Caption = mLblSteps\r
2109 Case STEP_FINISH\r
2110 'Leave Results\r
2111 If Not CheckResultsDir(getOutputDir) Then\r
2112 Exit Sub\r
2113 End If\r
2114 \r
2115 'Expand directory name only without path to full path\r
2116 txtOutputDir.Text = fso.GetAbsolutePathName(txtOutputDir)\r
2117 \r
2118 'Check Results file is there and has a valid extension\r
2119 If fso.GetBaseName(txtResultsName.Text) = "" Then\r
2120 txtResultsName.Text = GetResString(SETUP_ANALYSIS_XLS_ID)\r
2121 End If\r
2122 txtResultsName.Text = fso.GetBaseName(txtResultsName.Text) & CRESULTS_FILE_EXTENSION\r
2123 \r
2124 Screen.MousePointer = vbHourglass\r
2125 DeleteFile mLogFilePath\r
2126 Set mDocFiles = Nothing\r
2127 If Not CheckNumberDocsToAnalyze Then\r
2128 Screen.MousePointer = vbDefault\r
2129 Exit Sub\r
2130 End If\r
2131 \r
2132 Screen.MousePointer = vbDefault\r
2133 \r
2134 btnRunAnalysis.Enabled = True\r
2135 \r
2136 If GetNumberOfDocsToAnalyze = 0 Then\r
2137 btnRunAnalysis.Enabled = False\r
2138 End If\r
2139 \r
2140 'Backup configuration\r
2141 If Not AttemptToCopyFile(mIniFilePath, mIniFilePath & CCONFIG_BACKUP_EXT) Then\r
2142 Exit Sub\r
2143 End If\r
2144 \r
2145 'Save current Wizard Settings\r
2146 WriteWizardSettingsToLog mIniFilePath\r
2147 \r
2148 'If results file already exists, enable View and Prepare\r
2149 If fso.FileExists(getOutputDir & "\" & txtResultsName.Text) Then\r
2150 btnViewResults.Enabled = True\r
2151 btnPrepare.Enabled = True\r
2152 End If\r
2153 \r
2154 mbFinishOK = True\r
2155 End Select\r
2156 \r
2157 'move to new step\r
2158 fraStep(mnCurStep).Enabled = False\r
2159 fraStep(nStep).Left = 0\r
2160 If nStep <> mnCurStep Then\r
2161 fraStep(mnCurStep).Left = -10000\r
2162 fraStep(mnCurStep).Enabled = False\r
2163 End If\r
2164 fraStep(nStep).Enabled = True\r
2165 \r
2166 SetNavBtns nStep\r
2167 Exit Sub\r
2168 \r
2169 FinalExit:\r
2170 Set fso = Nothing\r
2171 Set drive = Nothing\r
2172 Exit Sub\r
2173 \r
2174 HandleError:\r
2175 Screen.MousePointer = vbDefault\r
2176 WriteDebug "Document Analysis: SetStep() " & Err.Number & " " & Err.Description & " " & Err.Source\r
2177 \r
2178 Resume FinalExit\r
2179 End Sub\r
2180 \r
2181 Function CheckResultsDir(resultsDir As String) As Boolean\r
2182 On Error GoTo HandleError\r
2183 Dim fso As Scripting.FileSystemObject\r
2184 Set fso = New Scripting.FileSystemObject\r
2185 Const driveTypeIsCDROM = 4\r
2186 Const readOnlyFolderRemainder = 1\r
2187 Dim drive\r
2188 CheckResultsDir = False\r
2189 \r
2190 If resultsDir = "" Then\r
2191 MsgBox ReplaceTopicTokens(GetResString(ERR_NO_RESULTS_DIRECTORY), _\r
2192 CR_STR, Chr(13)), vbCritical\r
2193 CheckResultsDir = False\r
2194 Exit Function\r
2195 End If\r
2196 \r
2197 Set drive = fso.GetDrive(fso.GetDriveName(resultsDir))\r
2198 If drive.DriveType = driveTypeIsCDROM Then 'If CD-ROM Drive Then\r
2199 Dim Msg1 As String\r
2200 Msg1 = ReplaceTopic2Tokens(GetResString(ERR_CREATE_FILE), _\r
2201 TOPIC_STR, txtResultsName.Text, CR_STR, Chr(13))\r
2202 MsgBox Msg1, vbCritical\r
2203 CheckResultsDir = False\r
2204 Exit Function\r
2205 End If\r
2206 \r
2207 \r
2208 If Not fso.FolderExists(resultsDir) Then\r
2209 Dim Msg, Style, response\r
2210 \r
2211 Msg = ReplaceTopicTokens(GetResString(ERR_NO_RES_DIR), CR_STR, Chr(13))\r
2212 Style = vbYesNo + vbQuestion + vbDefaultButton1 ' Define buttons.\r
2213 \r
2214 response = MsgBox(Msg, Style)\r
2215 If response = vbYes Then ' User chose Yes.\r
2216 If Not CreateDir(getOutputDir) Then\r
2217 CheckResultsDir = False\r
2218 Exit Function\r
2219 End If\r
2220 Else ' User chose No.\r
2221 CheckResultsDir = False\r
2222 Exit Function\r
2223 End If\r
2224 End If\r
2225 \r
2226 Dim testFile As String\r
2227 testFile = resultsDir & "\" & fso.GetTempName\r
2228 Do While fso.FileExists(testFile)\r
2229 testFile = resultsDir & "\" & fso.GetTempName\r
2230 Loop\r
2231 \r
2232 On Error GoTo HandleReadOnly\r
2233 Dim aText As TextStream\r
2234 Set aText = fso.CreateTextFile(testFile, False, False)\r
2235 aText.WriteLine ("Dies ist ein Test.")\r
2236 aText.Close\r
2237 fso.DeleteFile (testFile)\r
2238 \r
2239 ' GetAttr doesn't work reliable ( returns read only for 'my Documents' and rw for read only network folder\r
2240 ' If ((GetAttr(resultsDir) Mod 2) = readOnlyFolderRemainder) Then 'If the attribute is odd then the folder is read-only\r
2241 ' MsgBox GetResString(ERR_NO_WRITE_TO_READ_ONLY_FOLDER), vbCritical\r
2242 ' CheckResultsDir = False\r
2243 ' Exit Function\r
2244 ' End If\r
2245 \r
2246 CheckResultsDir = True\r
2247 \r
2248 Exit Function\r
2249 HandleError:\r
2250 WriteDebug "Document Analysis: CheckResultsDir() " & Err.Number & " " & Err.Description & " " & Err.Source\r
2251 CheckResultsDir = False\r
2252 Exit Function\r
2253 HandleReadOnly:\r
2254 Dim str As String\r
2255 str = ReplaceTopic2Tokens(GetResString(ERR_CREATE_FILE), _\r
2256 TOPIC_STR, txtResultsName.Text, CR_STR, Chr(13))\r
2257 MsgBox str, vbCritical\r
2258 CheckResultsDir = False\r
2259 Exit Function\r
2260 End Function\r
2261 \r
2262 Function CheckUserChosenDocsToAnalyze() As Boolean\r
2263 CheckUserChosenDocsToAnalyze = Not ((chkWordDoc.value <> vbChecked) And (chkWordTemplate.value <> vbChecked) And _\r
2264 (chkExcelDoc.value <> vbChecked) And (chkExcelTemplate.value <> vbChecked) And _\r
2265 (chkPPDoc.value <> vbChecked) And (chkPPTemplate.value <> vbChecked))\r
2266 End Function\r
2267 \r
2268 Function AttemptToCopyFile(Source As String, dest As String) As Boolean\r
2269 On Error GoTo HandleErrors\r
2270 Dim fso As Scripting.FileSystemObject\r
2271 Set fso = New Scripting.FileSystemObject\r
2272 \r
2273 If fso.FileExists(Source) Then\r
2274 fso.CopyFile Source, dest\r
2275 End If\r
2276 \r
2277 'True if no source or copy succeded\r
2278 AttemptToCopyFile = True\r
2279 \r
2280 FinalExit:\r
2281 Set fso = Nothing\r
2282 Exit Function\r
2283 \r
2284 HandleErrors:\r
2285 AttemptToCopyFile = False\r
2286 Dim str As String\r
2287 str = ReplaceTopic2Tokens(GetResString(ERR_CREATE_FILE), _\r
2288 TOPIC_STR, mIniFilePath & CCONFIG_BACKUP_EXT, CR_STR, Chr(13))\r
2289 Resume FinalExit\r
2290 \r
2291 End Function\r
2292 \r
2293 Function CreateDir(dir As String) As Boolean\r
2294 On Error GoTo HandleErrors\r
2295 Dim fso As Scripting.FileSystemObject\r
2296 Set fso = New Scripting.FileSystemObject\r
2297 \r
2298 fso.CreateFolder (dir)\r
2299 \r
2300 CreateDir = True\r
2301 \r
2302 FinalExit:\r
2303 Set fso = Nothing\r
2304 Exit Function\r
2305 \r
2306 HandleErrors:\r
2307 Dim str As String\r
2308 str = ReplaceTopic2Tokens(GetResString(ERR_CREATE_DIR), _\r
2309 TOPIC_STR, dir, CR_STR, Chr(13))\r
2310 Select Case Err.Number\r
2311 Case 76\r
2312 WriteDebug str\r
2313 MsgBox str, vbCritical\r
2314 CreateDir = False\r
2315 Case 58\r
2316 'Don't care if it exists already\r
2317 CreateDir = True\r
2318 Case Else\r
2319 WriteDebug str\r
2320 MsgBox str, vbCritical\r
2321 CreateDir = False\r
2322 End Select\r
2323 Resume FinalExit\r
2324 \r
2325 End Function\r
2326 Private Sub SetNavBtns(nStep As Integer)\r
2327 mnCurStep = nStep\r
2328 \r
2329 If mnCurStep = 0 Then\r
2330 cmdNav(BTN_BACK).Enabled = False\r
2331 cmdNav(BTN_NEXT).Enabled = True\r
2332 ElseIf mnCurStep = NUM_STEPS - 1 Then\r
2333 cmdNav(BTN_NEXT).Enabled = False\r
2334 cmdNav(BTN_BACK).Enabled = True\r
2335 Else\r
2336 cmdNav(BTN_BACK).Enabled = True\r
2337 cmdNav(BTN_NEXT).Enabled = True\r
2338 End If\r
2339 \r
2340 If mbFinishOK Then\r
2341 cmdNav(BTN_FINISH).Enabled = True\r
2342 Else\r
2343 cmdNav(BTN_FINISH).Enabled = False\r
2344 End If\r
2345 End Sub\r
2346 Function CheckForSupportedApp(app As String, lowerVerLimit As Long) As Boolean\r
2347 Dim appRegStr As String\r
2348 Dim appVer As Long\r
2349 appRegStr = GetRegistryInfo(HKEY_CLASSES_ROOT, app & ".Application\CurVer", "")\r
2350 appVer = val(Right(appRegStr, Len(appRegStr) - Len(app & ".Application.")))\r
2351 If appVer >= lowerVerLimit Then\r
2352 CheckForSupportedApp = True\r
2353 Else\r
2354 CheckForSupportedApp = False\r
2355 End If\r
2356 End Function\r
2357 Function GetAppVersion(app As String) As Long\r
2358 Dim appRegStr As String\r
2359 Dim appVer As Long\r
2360 appRegStr = GetRegistryInfo(HKEY_CLASSES_ROOT, app & ".Application\CurVer", "")\r
2361 GetAppVersion = val(Right(appRegStr, Len(appRegStr) - Len(app & ".Application.")))\r
2362 End Function\r
2363 Function GetInstalledApp(app As String) As String\r
2364 GetInstalledApp = GetRegistryInfo(HKEY_CLASSES_ROOT, app & ".Application\CurVer", "")\r
2365 End Function\r
2366 \r
2367 Sub WriteInfoToApplicationLog(wordAppStr As String, excelAppStr As String, ppAppStr As String)\r
2368 On Error GoTo HandleErrors\r
2369 Dim currentFunctionName As String\r
2370 currentFunctionName = "WriteInfoToApplicationLog"\r
2371 \r
2372 Dim userLCID As Long\r
2373 userLCID = GetUserDefaultLCID()\r
2374 Dim sysLCID As Long\r
2375 sysLCID = GetSystemDefaultLCID()\r
2376 \r
2377 WriteToLog CWORD_VERSION, IIf(wordAppStr <> "", wordAppStr, CNOT_INSTALLED)\r
2378 WriteToLog CEXCEL_VERSION, IIf(excelAppStr <> "", excelAppStr, CNOT_INSTALLED)\r
2379 WriteToLog CPOWERPOINT_VERSION, IIf(ppAppStr <> "", ppAppStr, CNOT_INSTALLED)\r
2380 \r
2381 WriteToLog CUSER_LOCALE_INFO, _\r
2382 "langid: " & GetUserLocaleInfo(userLCID, LOCALE_ILANGUAGE) & ": " & _\r
2383 GetUserLocaleInfo(userLCID, LOCALE_SENGLANGUAGE) & _\r
2384 "-" & GetUserLocaleInfo(userLCID, LOCALE_SENGCOUNTRY) & _\r
2385 " abrv: " & GetUserLocaleInfo(userLCID, LOCALE_SISO639LANGNAME) & _\r
2386 "-" & GetUserLocaleInfo(userLCID, LOCALE_SISO3166CTRYNAME) & _\r
2387 " sdate: " & GetUserLocaleInfo(userLCID, LOCALE_SSHORTDATE)\r
2388 \r
2389 WriteToLog CSYS_LOCALE_INFO, _\r
2390 "langid: " & GetUserLocaleInfo(sysLCID, LOCALE_ILANGUAGE) & ": " & _\r
2391 GetUserLocaleInfo(sysLCID, LOCALE_SENGLANGUAGE) & _\r
2392 "-" & GetUserLocaleInfo(sysLCID, LOCALE_SENGCOUNTRY) & _\r
2393 " abrv: " & GetUserLocaleInfo(sysLCID, LOCALE_SISO639LANGNAME) & _\r
2394 "-" & GetUserLocaleInfo(sysLCID, LOCALE_SISO3166CTRYNAME) & _\r
2395 " sdate: " & GetUserLocaleInfo(userLCID, LOCALE_SSHORTDATE)\r
2396 \r
2397 Dim myWinVer As RGB_WINVER\r
2398 GetWinVersion myWinVer\r
2399 WriteToLog CWINVERSION, myWinVer.VersionName & " " & myWinVer.VersionNo & _\r
2400 " " & myWinVer.ServicePack & _\r
2401 " build " & myWinVer.BuildNo\r
2402 WriteToLog CNUMBER_TOTAL_DOCS, CStr(mTotalDocCount)\r
2403 WriteToLog CNUMBER_DOCS_DOC, CStr(mWordDocCount)\r
2404 WriteToLog CNUMBER_TEMPLATES_DOT, CStr(mWordTemplateCount)\r
2405 WriteToLog CNUMBER_DOCS_XLS, CStr(mExcelDocCount)\r
2406 WriteToLog CNUMBER_TEMPLATES_XLT, CStr(mExcelTemplateCount)\r
2407 WriteToLog CNUMBER_DOCS_PPT, CStr(mPPDocCount)\r
2408 WriteToLog CNUMBER_TEMPLATES_POT, CStr(mPPTemplateCount)\r
2409 FinalExit:\r
2410 Exit Sub\r
2411 \r
2412 HandleErrors:\r
2413 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2414 Resume FinalExit\r
2415 End Sub\r
2416 \r
2417 Function CheckTemplatePath(sMigrationResultsTemplatePath As String, fso As FileSystemObject) As Boolean\r
2418 If Not fso.FileExists(sMigrationResultsTemplatePath) Then\r
2419 Dim str As String\r
2420 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_RESULTS_TEMPLATE), _\r
2421 TOPIC_STR, sMigrationResultsTemplatePath, CR_STR, Chr(13))\r
2422 WriteDebug str\r
2423 MsgBox str, vbCritical\r
2424 CheckTemplatePath = False\r
2425 Else\r
2426 CheckTemplatePath = True\r
2427 End If\r
2428 End Function\r
2429 \r
2430 Function RunAnalysis(bDoPrepare) As Boolean\r
2431 On Error GoTo HandleErrors\r
2432 Dim currentFunctionName As String\r
2433 currentFunctionName = "RunAnalysis"\r
2434 Dim tstart As Single 'timer var for this routine only\r
2435 Dim tend As Single 'timer var for this routine only\r
2436 Dim fso As New FileSystemObject\r
2437 Dim wordAppStr As String\r
2438 Dim excelAppStr As String\r
2439 Dim ppAppStr As String\r
2440 Dim sMigrationResultsTemplatePath As String\r
2441 Dim startDate As Variant\r
2442 Dim bSuccess\r
2443 \r
2444 bSuccess = True\r
2445 startDate = Now\r
2446 tstart = GetTickCount()\r
2447 \r
2448 app.OleRequestPendingMsgText = GetResString(RUNBTN_RUNNING_ID)\r
2449 app.OleRequestPendingMsgTitle = frmWizard.Caption\r
2450 \r
2451 wordAppStr = GetInstalledApp(CAPPNAME_WORD)\r
2452 excelAppStr = GetInstalledApp(CAPPNAME_EXCEL)\r
2453 ppAppStr = GetInstalledApp(CAPPNAME_POWERPOINT)\r
2454 'Write locale, version info and settings to the Application log\r
2455 WriteInfoToApplicationLog wordAppStr, excelAppStr, ppAppStr\r
2456 \r
2457 'Check for template\r
2458 sMigrationResultsTemplatePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESULTS_TEMPLATE_FILE)\r
2459 If Not CheckTemplatePath(sMigrationResultsTemplatePath, fso) Then\r
2460 bSuccess = False\r
2461 GoTo FinalExit\r
2462 End If\r
2463 \r
2464 'Check for installed Apps\r
2465 If Not CheckInstalledApps(wordAppStr, excelAppStr, ppAppStr) Then\r
2466 bSuccess = False\r
2467 GoTo FinalExit\r
2468 End If\r
2469 \r
2470 If bDoPrepare Then\r
2471 'Show MsgBox ( to give apps some time to quit )\r
2472 Dim strMsgBox As String\r
2473 Dim response As Integer\r
2474 \r
2475 strMsgBox = ReplaceTopic2Tokens(GetResString(RID_STR_ENG_OTHER_PREPARE_PROMPT_PREP_ID), _\r
2476 TOPIC_STR, getOutputDir & "\" & txtResultsName.Text, TOPIC2_STR, getOutputDir)\r
2477 strMsgBox = ReplaceTopicTokens(strMsgBox, CR_STR, Chr(13))\r
2478 response = MsgBox(strMsgBox, Buttons:=vbOKCancel + vbInformation)\r
2479 \r
2480 If response <> vbOK Then\r
2481 bSuccess = False\r
2482 GoTo FinalExit\r
2483 End If\r
2484 End If\r
2485 \r
2486 'Write Wizard Setting to Application log\r
2487 WriteWizardSettingsToLog mLogFilePath\r
2488 \r
2489 'Write to Analysis ini file - used by driver docs\r
2490 WriteCommonParamsToLog sMigrationResultsTemplatePath, mLogFilePath, mIniFilePath, fso\r
2491 \r
2492 Screen.MousePointer = vbHourglass\r
2493 ' Doc Counts are setup by CheckNumberDocsToAnalyze() when user moves to Analysis Panel\r
2494 ' Takes account of user Options selected and inspects source directory\r
2495 Dim analysisAborted As Boolean\r
2496 analysisAborted = False\r
2497 \r
2498 SetupInputVariables mLogFilePath, fso\r
2499 \r
2500 Load ShowProgress\r
2501 Call ShowProgress.SP_Init(mDocFiles.WordFiles.count + _\r
2502 mDocFiles.ExcelFiles.count + _\r
2503 mDocFiles.PowerPointFiles.count)\r
2504 \r
2505 Dim myOffset As Long\r
2506 myOffset = 0\r
2507 If (mDocFiles.WordFiles.count > 0) Then\r
2508 bSuccess = AnalyseList(mDocFiles.WordFiles, "word", mIniFilePath, myOffset, analysisAborted)\r
2509 'bSuccess = RunWordAnalysis(sMigrationResultsTemplatePath, mLogFilePath, fso)\r
2510 End If\r
2511 \r
2512 myOffset = mDocFiles.WordFiles.count\r
2513 If ((mDocFiles.ExcelFiles.count > 0) And (Not analysisAborted)) Then\r
2514 bSuccess = bSuccess And _\r
2515 AnalyseList(mDocFiles.ExcelFiles, "excel", mIniFilePath, myOffset, analysisAborted)\r
2516 'bSuccess = RunExcelAnalysis(sMigrationResultsTemplatePath, mLogFilePath, fso)\r
2517 End If\r
2518 \r
2519 myOffset = myOffset + mDocFiles.ExcelFiles.count\r
2520 If ((mDocFiles.PowerPointFiles.count > 0) And (Not analysisAborted)) Then\r
2521 bSuccess = bSuccess And _\r
2522 AnalyseList(mDocFiles.PowerPointFiles, "pp", mIniFilePath, myOffset, analysisAborted)\r
2523 'bSuccess = RunPPAnalysis(sMigrationResultsTemplatePath, mLogFilePath, fso)\r
2524 End If\r
2525 \r
2526 SetupInputVariables mLogFilePath, fso\r
2527 \r
2528 tend = GetTickCount()\r
2529 WriteToLog CELAPSED_TIME, (FormatNumber((tend - tstart) / 1000, 0) & " seconds: ") & _\r
2530 (FormatNumber((tend - tstart), 0) & " miliseconds")\r
2531 \r
2532 FinalExit:\r
2533 Unload ShowProgress\r
2534 Screen.MousePointer = vbDefault\r
2535 WriteToLog CSTART_TIME, CDate(startDate)\r
2536 WriteToLog CEND_TIME, Now\r
2537 Set fso = Nothing\r
2538 \r
2539 RunAnalysis = bSuccess\r
2540 Exit Function\r
2541 \r
2542 HandleErrors:\r
2543 bSuccess = False\r
2544 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2545 Resume FinalExit\r
2546 End Function\r
2547 \r
2548 Function CheckInstalledApps(wordAppStr As String, excelAppStr As String, ppAppStr As String) As Boolean\r
2549 On Error GoTo HandleErrors\r
2550 Dim currentFunctionName As String\r
2551 Dim str As String\r
2552 currentFunctionName = "CheckInstalledApps"\r
2553 \r
2554 Dim missingInstalledApps As String\r
2555 Dim unsupportedApps As String\r
2556 Dim runningApps As String\r
2557 Dim bSuccess As Boolean\r
2558 \r
2559 bSuccess = False\r
2560 \r
2561 If mWordDocCount > 0 Or mWordTemplateCount > 0 Then\r
2562 If wordAppStr = "" Then 'Word not installed\r
2563 missingInstalledApps = CAPPNAME_WORD\r
2564 ElseIf Not CheckForSupportedApp(CAPPNAME_WORD, CSUPPORTED_VERSION) Then\r
2565 unsupportedApps = CAPPNAME_WORD\r
2566 ElseIf IsOfficeAppRunning(CAPPNAME_WORD) Then\r
2567 runningApps = CAPPNAME_WORD\r
2568 End If\r
2569 End If\r
2570 \r
2571 If excelAppStr = "" Then\r
2572 If missingInstalledApps <> "" Then missingInstalledApps = missingInstalledApps & ", "\r
2573 missingInstalledApps = missingInstalledApps & CAPPNAME_EXCEL\r
2574 ElseIf Not CheckForSupportedApp(CAPPNAME_EXCEL, CSUPPORTED_VERSION) Then\r
2575 If unsupportedApps <> "" Then unsupportedApps = unsupportedApps & ", "\r
2576 unsupportedApps = unsupportedApps & CAPPNAME_EXCEL\r
2577 ElseIf IsOfficeAppRunning(CAPPNAME_EXCEL) Then\r
2578 If runningApps <> "" Then runningApps = runningApps & ", "\r
2579 runningApps = runningApps & CAPPNAME_EXCEL\r
2580 End If\r
2581 \r
2582 If mPPDocCount > 0 Or mPPTemplateCount > 0 Then\r
2583 If ppAppStr = "" Then 'PP not installed\r
2584 If missingInstalledApps <> "" Then missingInstalledApps = missingInstalledApps & ", "\r
2585 missingInstalledApps = missingInstalledApps & CAPPNAME_POWERPOINT\r
2586 ElseIf Not CheckForSupportedApp(CAPPNAME_POWERPOINT, CSUPPORTED_VERSION) Then\r
2587 If unsupportedApps <> "" Then unsupportedApps = unsupportedApps & ", "\r
2588 unsupportedApps = unsupportedApps & CAPPNAME_POWERPOINT\r
2589 ElseIf IsOfficeAppRunning(CAPPNAME_POWERPOINT) Then\r
2590 If runningApps <> "" Then runningApps = runningApps & ", "\r
2591 runningApps = runningApps & CAPPNAME_POWERPOINT\r
2592 End If\r
2593 End If\r
2594 \r
2595 If missingInstalledApps <> "" Then\r
2596 str = ReplaceTopic2Tokens(GetResString(ERR_NOT_INSTALLED), _\r
2597 TOPIC_STR, missingInstalledApps, CR_STR, Chr(13))\r
2598 WriteDebug str\r
2599 MsgBox str, vbCritical\r
2600 GoTo FinalExit\r
2601 End If\r
2602 \r
2603 If unsupportedApps <> "" Then\r
2604 str = ReplaceTopic2Tokens(GetResString(ERR_SUPPORTED_VERSION), _\r
2605 TOPIC_STR, unsupportedApps, CR_STR, Chr(13))\r
2606 WriteDebug str\r
2607 MsgBox str, vbCritical\r
2608 GoTo FinalExit\r
2609 End If\r
2610 \r
2611 If runningApps <> "" Then\r
2612 str = ReplaceTopic2Tokens(GetResString(ERR_APPLICATION_IN_USE), _\r
2613 TOPIC_STR, runningApps, CR_STR, Chr(13))\r
2614 WriteDebug str\r
2615 MsgBox str, vbCritical\r
2616 GoTo FinalExit\r
2617 End If\r
2618 \r
2619 'Check for Excel automation server\r
2620 If CheckForExcel Then\r
2621 str = ReplaceTopicTokens(GetResString(ERR_EXCEL_OPEN), _\r
2622 CR_STR, Chr(13))\r
2623 WriteDebug str\r
2624 MsgBox str, vbCritical\r
2625 bSuccess = False\r
2626 GoTo FinalExit\r
2627 End If\r
2628 \r
2629 bSuccess = True\r
2630 \r
2631 FinalExit:\r
2632 CheckInstalledApps = bSuccess\r
2633 Exit Function\r
2634 \r
2635 HandleErrors:\r
2636 bSuccess = False\r
2637 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2638 Resume FinalExit\r
2639 End Function\r
2640 \r
2641 Function RunPPAnalysis(resultsTemplate As String, logFile As String, fsObject As FileSystemObject) As Boolean\r
2642 'DV: do we need this? get some error handling ideas here\r
2643 On Error GoTo HandleErrors\r
2644 Dim currentFunctionName As String\r
2645 currentFunctionName = "RunPPAnalysis"\r
2646 Const APP_PP = "PowerPoint"\r
2647 Dim str As String\r
2648 Dim bSuccess\r
2649 bSuccess = False\r
2650 \r
2651 If (chkPPDoc.value <> vbChecked) And (chkPPTemplate.value <> vbChecked) Then\r
2652 RunPPAnalysis = True\r
2653 Exit Function\r
2654 End If\r
2655 \r
2656 Dim sPPDriverDocPath As String\r
2657 \r
2658 sPPDriverDocPath = fsObject.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)\r
2659 If Not fsObject.FileExists(sPPDriverDocPath) Then\r
2660 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_PP_DRIVER), _\r
2661 TOPIC_STR, sPPDriverDocPath, CR_STR, Chr(13))\r
2662 WriteDebug str\r
2663 MsgBox str, vbCritical\r
2664 bSuccess = False\r
2665 GoTo FinalExit\r
2666 End If\r
2667 \r
2668 Dim pp As PowerPoint.application\r
2669 Dim po As Object\r
2670 Dim aPres As PowerPoint.Presentation\r
2671 Dim RegValue As Long\r
2672 Set po = GetObject(sPPDriverDocPath)\r
2673 Set pp = po.application\r
2674 \r
2675 If val(pp.Version) < CSUPPORTED_VERSION Then\r
2676 str = ReplaceTopic2Tokens(GetResString(ERR_SUPPORTED_VERSION), _\r
2677 TOPIC_STR, pp.Version, CR_STR, Chr(13))\r
2678 WriteDebug str\r
2679 MsgBox str, vbCritical\r
2680 bSuccess = False\r
2681 GoTo FinalExit\r
2682 End If\r
2683 \r
2684 If Not CheckForAccesToPPVBProject(pp, aPres) Then\r
2685 RegValue = -1\r
2686 If Not GiveAccessToMacroProject(APP_PP, pp.Version, RegValue) Then\r
2687 Dim Style, response\r
2688 str = ReplaceTopic2Tokens(GetResString(ERR_NO_ACCESS_TO_VBPROJECT), _\r
2689 TOPIC_STR, CAPPNAME_POWERPOINT, CR_STR, Chr(13))\r
2690 WriteDebug str\r
2691 Style = vbYesNo + vbQuestion + vbDefaultButton1\r
2692 \r
2693 response = MsgBox(str, Style)\r
2694 If response <> vbYes Then\r
2695 bSuccess = False\r
2696 GoTo FinalExit\r
2697 End If\r
2698 End If\r
2699 End If\r
2700 \r
2701 Set aPres = pp.Presentations(1)\r
2702 Dim ppSlideHidden As PowerPoint.Slide\r
2703 Set ppSlideHidden = aPres.Slides(2)\r
2704 \r
2705 'Setup Input Variables\r
2706 'SetupInputVariables resultsTemplate, logFile, fsObject, CAPPNAME_POWERPOINT\r
2707 \r
2708 'Run PowerPoint Analysis\r
2709 pp.Run (fsObject.GetFileName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE) & "!AnalysisDriver.AnalyseDirectory")\r
2710 \r
2711 bSuccess = True\r
2712 \r
2713 FinalExit:\r
2714 'Cannot seem to close it down from VB\r
2715 'Workaround is to close it in macro\r
2716 '\r
2717 'If Not aPres Is Nothing Then\r
2718 ' aPres.Saved = msoTrue\r
2719 'End If\r
2720 'If Not pp Is Nothing Then pp.Quit\r
2721 \r
2722 'Swallow error as we are closing down PP from macro\r
2723 'Does not seem to be possible to close it down from VB\r
2724 On Error Resume Next\r
2725 If RegValue <> -1 Then\r
2726 SetDefaultRegValue APP_PP, pp.Version, RegValue\r
2727 End If\r
2728 If RegValue = 0 Then\r
2729 DeleteRegValue APP_PP, pp.Version\r
2730 End If\r
2731 \r
2732 If Not pp Is Nothing Then\r
2733 pp.Run (fsObject.GetFileName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE) & "!ApplicationSpecific.QuitPowerPoint")\r
2734 End If\r
2735 \r
2736 \r
2737 Set aPres = Nothing\r
2738 Set pp = Nothing\r
2739 Set po = Nothing\r
2740 \r
2741 RunPPAnalysis = bSuccess\r
2742 Exit Function\r
2743 \r
2744 HandleErrors:\r
2745 bSuccess = False\r
2746 Set pp = Nothing\r
2747 Dim failedDoc As String\r
2748 \r
2749 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2750 \r
2751 failedDoc = GetDebug(CAPPNAME_POWERPOINT, CANALYZING)\r
2752 If failedDoc = "" Or failedDoc = CSTR_ANALYSIS_LOG_DONE Then\r
2753 str = ReplaceTopic2Tokens(GetResString(ERR_AUTOMATION_FAILURE), _\r
2754 TOPIC_STR, CAPPNAME_POWERPOINT, CR_STR, Chr(13))\r
2755 Else\r
2756 str = ReplaceTopic2Tokens(GetResString(ERR_PP_DRIVER_CRASH), _\r
2757 TOPIC_STR, failedDoc, CR_STR, Chr(13))\r
2758 End If\r
2759 \r
2760 WriteDebug str\r
2761 MsgBox str, vbCritical\r
2762 \r
2763 Resume FinalExit\r
2764 End Function\r
2765 \r
2766 Sub SetupInputVariables(logFile As String, fso As FileSystemObject)\r
2767 Dim bNewResultsFile As Boolean\r
2768 \r
2769 bNewResultsFile = CheckCreateNewResultsFile(fso)\r
2770 \r
2771 WriteToLog CNEW_RESULTS_FILE, IIf(bNewResultsFile, "True", "False"), mIniFilePath\r
2772 WriteToLog CNEW_RESULTS_FILE, IIf(bNewResultsFile, "True", "False"), logFile\r
2773 End Sub\r
2774 \r
2775 \r
2776 \r
2777 Function RunExcelAnalysis(resultsTemplate As String, logFile As String, fsObject As FileSystemObject) As Boolean\r
2778 On Error GoTo HandleErrors\r
2779 Dim currentFunctionName As String\r
2780 currentFunctionName = "RunExcelAnalysis"\r
2781 Const APP_EXCEL = "Excel"\r
2782 Dim str As String\r
2783 Dim bSuccess\r
2784 bSuccess = False\r
2785 \r
2786 If (chkExcelDoc.value <> vbChecked) And (chkExcelTemplate.value <> vbChecked) Then\r
2787 RunExcelAnalysis = True\r
2788 Exit Function\r
2789 End If\r
2790 \r
2791 Dim xl As Excel.application\r
2792 Dim aWb As Excel.Workbook\r
2793 Dim sExcelDriverDocPath As String\r
2794 Dim RegValue As Long\r
2795 \r
2796 sExcelDriverDocPath = fsObject.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)\r
2797 If Not fsObject.FileExists(sExcelDriverDocPath) Then\r
2798 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_EXCEL_DRIVER), _\r
2799 TOPIC_STR, sExcelDriverDocPath, CR_STR, Chr(13))\r
2800 WriteDebug str\r
2801 MsgBox str, vbCritical\r
2802 bSuccess = False\r
2803 GoTo FinalExit\r
2804 End If\r
2805 \r
2806 Set xl = GetExcelInstance\r
2807 If val(xl.Version) < CSUPPORTED_VERSION Then\r
2808 str = ReplaceTopic2Tokens(GetResString(ERR_SUPPORTED_VERSION), _\r
2809 TOPIC_STR, xl.Version, CR_STR, Chr(13))\r
2810 WriteDebug str\r
2811 MsgBox str, vbCritical\r
2812 bSuccess = False\r
2813 GoTo FinalExit\r
2814 End If\r
2815 \r
2816 If Not CheckForAccesToExcelVBProject(xl) Then\r
2817 RegValue = -1\r
2818 If Not GiveAccessToMacroProject(APP_EXCEL, xl.Version, RegValue) Then\r
2819 Dim Style, response\r
2820 str = ReplaceTopic2Tokens(GetResString(ERR_NO_ACCESS_TO_VBPROJECT), _\r
2821 TOPIC_STR, CAPPNAME_EXCEL, CR_STR, Chr(13))\r
2822 WriteDebug str\r
2823 Style = vbYesNo + vbQuestion + vbDefaultButton1\r
2824 \r
2825 response = MsgBox(str, Style)\r
2826 If response <> vbYes Then\r
2827 bSuccess = False\r
2828 GoTo FinalExit\r
2829 End If\r
2830 End If\r
2831 End If\r
2832 \r
2833 Set aWb = xl.Workbooks.Open(fileName:=sExcelDriverDocPath)\r
2834 'Setup Input Variables\r
2835 'SetupInputVariables resultsTemplate, logFile, fsObject, CAPPNAME_EXCEL\r
2836 \r
2837 'Run Excel Analysis\r
2838 xl.Run ("AnalysisTool.AnalysisDriver.AnalyseDirectory")\r
2839 \r
2840 bSuccess = True\r
2841 FinalExit:\r
2842 If RegValue <> -1 Then\r
2843 SetDefaultRegValue APP_EXCEL, xl.Version, RegValue\r
2844 End If\r
2845 If RegValue = 0 Then\r
2846 DeleteRegValue APP_EXCEL, xl.Version\r
2847 End If\r
2848 \r
2849 If Not aWb Is Nothing Then\r
2850 If xl.Workbooks.count = 1 Then\r
2851 xl.Visible = False\r
2852 End If\r
2853 aWb.Close (False)\r
2854 End If\r
2855 Set aWb = Nothing\r
2856 \r
2857 If Not xl Is Nothing Then\r
2858 If xl.Workbooks.count = 0 Then\r
2859 xl.Quit\r
2860 End If\r
2861 End If\r
2862 \r
2863 Set xl = Nothing\r
2864 \r
2865 RunExcelAnalysis = bSuccess\r
2866 Exit Function\r
2867 \r
2868 HandleErrors:\r
2869 bSuccess = False\r
2870 Set aWb = Nothing\r
2871 Set xl = Nothing\r
2872 Dim failedDoc As String\r
2873 \r
2874 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
2875 \r
2876 failedDoc = GetDebug(CAPPNAME_EXCEL, CANALYZING)\r
2877 If failedDoc = "" Or failedDoc = CSTR_ANALYSIS_LOG_DONE Then\r
2878 str = ReplaceTopic2Tokens(GetResString(ERR_AUTOMATION_FAILURE), _\r
2879 TOPIC_STR, CAPPNAME_EXCEL, CR_STR, Chr(13))\r
2880 Else\r
2881 str = ReplaceTopic2Tokens(GetResString(ERR_EXCEL_DRIVER_CRASH), _\r
2882 TOPIC_STR, failedDoc, CR_STR, Chr(13))\r
2883 End If\r
2884 \r
2885 WriteDebug str\r
2886 MsgBox str, vbCritical\r
2887 \r
2888 On Error Resume Next\r
2889 Resume FinalExit\r
2890 End Function\r
2891 \r
2892 Sub WriteWizardSettingsToLog(path As String)\r
2893 '### DO NOT USE Boolean True/ False it is loaclised by the OS - use "True"/ "False"\r
2894 WriteToLog CINPUT_DIR, getInputDir, path\r
2895 WriteToLog CINCLUDE_SUBDIRS, IIf(chkIncludeSubdirs.value, "True", "False"), path\r
2896 WriteToLog COUTPUT_DIR, getOutputDir, path\r
2897 WriteToLog CRESULTS_FILE, txtResultsName.Text, path\r
2898 \r
2899 WriteToLog CTYPE_WORDDOC, IIf(chkWordDoc.value, "True", "False"), path\r
2900 WriteToLog CTYPE_WORDDOT, IIf(chkWordTemplate.value, "True", "False"), path\r
2901 WriteToLog CTYPE_EXCELDOC, IIf(chkExcelDoc.value, "True", "False"), path\r
2902 WriteToLog CTYPE_EXCELDOT, IIf(chkExcelTemplate.value, "True", "False"), path\r
2903 WriteToLog CTYPE_PPDOC, IIf(chkPPDoc.value, "True", "False"), path\r
2904 WriteToLog CTYPE_PPDOT, IIf(chkPPTemplate.value, "True", "False"), path\r
2905 \r
2906 Dim resultsSetting As String\r
2907 If rdbResultsPrompt.value Then\r
2908 resultsSetting = CPROMPT_FILE\r
2909 ElseIf rdbResultsAppend.value Then\r
2910 resultsSetting = CAPPEND_FILE\r
2911 Else\r
2912 resultsSetting = COVERWRITE_FILE\r
2913 End If\r
2914 WriteToLog CRESULTS_EXIST, resultsSetting, path\r
2915 \r
2916 WriteToLog CIGNORE_OLD_DOCS, IIf(chkIgnoreOld.value, "True", "False"), path\r
2917 WriteToLog CISSUE_LIMIT, CStr(mIssueLimit), path\r
2918 \r
2919 'WriteToLog CVERSION, Version, path\r
2920 End Sub\r
2921 \r
2922 Sub WriteCommonParamsToLog(resultsTemplate As String, logFile As String, path As String, fso As Scripting.FileSystemObject)\r
2923 WriteToLog CLOG_FILE, logFile, path\r
2924 WriteToLog CRESULTS_TEMPLATE, resultsTemplate, path\r
2925 WriteToLog CDEBUG_LEVEL, CLng(mDebugLevel), path\r
2926 WriteToLog CDOPREPARE, IIf(mbDoPrepare, "True", "False"), path\r
2927 WriteToLog CTITLE, frmWizard.Caption, path\r
2928 WriteToLog CLAST_CHECKPOINT, ""\r
2929 WriteToLog CNEXT_FILE, ""\r
2930 WriteToLog C_ABORT_ANALYSIS, ""\r
2931 End Sub\r
2932 \r
2933 Function GetNumberOfDocsToAnalyze() As Long\r
2934 Dim count As Long\r
2935 \r
2936 count = 0\r
2937 \r
2938 If CheckWordDocsToAnalyze Then\r
2939 count = mWordDocCount + mWordTemplateCount\r
2940 End If\r
2941 If CheckExcelDocsToAnalyze Then\r
2942 count = count + mExcelDocCount + mExcelTemplateCount\r
2943 End If\r
2944 If CheckPPDocsToAnalyze Then\r
2945 count = count + mPPDocCount + mPPTemplateCount\r
2946 End If\r
2947 \r
2948 GetNumberOfDocsToAnalyze = count\r
2949 End Function\r
2950 \r
2951 Function CheckWordDocsToAnalyze() As Boolean\r
2952 \r
2953 CheckWordDocsToAnalyze = mbDocCountCurrent And (chkWordDoc.value = vbChecked And mWordDocCount > 0) Or _\r
2954 (chkWordTemplate.value = vbChecked And mWordTemplateCount > 0)\r
2955 End Function\r
2956 \r
2957 Function CheckExcelDocsToAnalyze() As Boolean\r
2958 CheckExcelDocsToAnalyze = mbDocCountCurrent And (chkExcelDoc.value = vbChecked And mExcelDocCount > 0) Or _\r
2959 (chkExcelTemplate.value = vbChecked And mExcelTemplateCount > 0)\r
2960 End Function\r
2961 \r
2962 Function CheckPPDocsToAnalyze() As Boolean\r
2963 CheckPPDocsToAnalyze = mbDocCountCurrent And (chkPPDoc.value = vbChecked And mPPDocCount > 0) Or _\r
2964 (chkPPTemplate.value = vbChecked And mPPTemplateCount > 0)\r
2965 End Function\r
2966 \r
2967 Function CheckNumberDocsToAnalyze() As Boolean\r
2968 On Error GoTo HandleErrors\r
2969 Dim currentFunctionName As String\r
2970 currentFunctionName = "CheckNumberDocsToAnalyze"\r
2971 \r
2972 Set mDocFiles = New CollectedFiles\r
2973 \r
2974 Dim docSearchTypes As Collection\r
2975 Set docSearchTypes = New Collection\r
2976 \r
2977 mbDocCountCurrent = False\r
2978 \r
2979 SetupDocSearchTypes docSearchTypes\r
2980 \r
2981 If (cbIgnoreOld.ListIndex = 0) Then\r
2982 mIssueLimit = 3\r
2983 ElseIf (cbIgnoreOld.ListIndex = 1) Then\r
2984 mIssueLimit = 6\r
2985 Else\r
2986 mIssueLimit = 12\r
2987 End If\r
2988 \r
2989 If Not mDocFiles.Search(rootDir:=getInputDir, FileSpecs:=docSearchTypes, _\r
2990 IncludeSubdirs:=IIf(chkIncludeSubdirs.value, mbTrue, mbFalse), _\r
2991 ignoreOld:=IIf(chkIgnoreOld.value, mbTrue, mbFalse), Months:=mIssueLimit) Then\r
2992 CheckNumberDocsToAnalyze = False\r
2993 GoTo FinalExit\r
2994 End If\r
2995 \r
2996 SetDocCountsFromFileSearch mDocFiles\r
2997 WriteFileDateCountsToLog mDocFiles\r
2998 \r
2999 'WriteDocsToAnalyzeToLog mDocFiles 'UNCOMMENT Recovery - want to list out files to analyze\r
3000 \r
3001 mbDocCountCurrent = True\r
3002 \r
3003 lblNumDocs.Caption = ReplaceTopicTokens(GetResString(ANALYZE_DOCUMENTS_ID), TOPIC_STR, _\r
3004 CStr(mWordDocCount))\r
3005 lblNumTemplates.Caption = ReplaceTopicTokens(GetResString(ANALYZE_TEMPLATES_ID), TOPIC_STR, _\r
3006 CStr(mWordTemplateCount))\r
3007 \r
3008 lblNumXLS.Caption = ReplaceTopicTokens(GetResString(ANALYZE_DOCUMENTS_XLS_ID), TOPIC_STR, _\r
3009 CStr(mExcelDocCount))\r
3010 lblNumXLT.Caption = ReplaceTopicTokens(GetResString(ANALYZE_TEMPLATES_ID), TOPIC_STR, _\r
3011 CStr(mExcelTemplateCount))\r
3012 \r
3013 lblNumPPT.Caption = ReplaceTopicTokens(GetResString(ANALYZE_DOCUMENTS_PPT_ID), TOPIC_STR, _\r
3014 CStr(mPPDocCount))\r
3015 lblNumPOT.Caption = ReplaceTopicTokens(GetResString(ANALYZE_TEMPLATES_ID), TOPIC_STR, _\r
3016 CStr(mPPTemplateCount))\r
3017 \r
3018 lblTotalNumDocs.Caption = ReplaceTopicTokens(GetResString(ANALYZE_TOTAL_NUM_DOCS_ID), TOPIC_STR, _\r
3019 CStr(mTotalDocCount))\r
3020 \r
3021 If (mIgnoredDocCount > 0) Then\r
3022 lblSkippedOld.Caption = ReplaceTopicTokens(GetResString(RID_STR_ENG_ANALYZE_IGNORED_DOCS_ID), _\r
3023 TOPIC_STR, CStr(mIgnoredDocCount))\r
3024 lblSkippedOld.Visible = True\r
3025 Else\r
3026 lblSkippedOld.Visible = False\r
3027 End If\r
3028 \r
3029 CheckNumberDocsToAnalyze = True\r
3030 \r
3031 FinalExit:\r
3032 Set docSearchTypes = Nothing\r
3033 Exit Function\r
3034 \r
3035 HandleErrors:\r
3036 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3037 Resume FinalExit\r
3038 End Function\r
3039 \r
3040 Sub SetDocCountsFromFileSearch(myDocFiles As CollectedFiles)\r
3041 'No Error handling required\r
3042 mWordDocCount = myDocFiles.DocCount\r
3043 mWordTemplateCount = myDocFiles.DotCount\r
3044 mExcelDocCount = myDocFiles.XlsCount\r
3045 mExcelTemplateCount = myDocFiles.XltCount\r
3046 mPPDocCount = myDocFiles.PptCount\r
3047 mPPTemplateCount = myDocFiles.PotCount\r
3048 mTotalDocCount = mWordDocCount + mWordTemplateCount + mExcelDocCount + mExcelTemplateCount + _\r
3049 mPPDocCount + mPPTemplateCount\r
3050 mIgnoredDocCount = myDocFiles.IgnoredDocCount\r
3051 End Sub\r
3052 \r
3053 Sub SetupDocSearchTypes(docSearchTypes As Collection)\r
3054 'No Error handling required\r
3055 If chkWordDoc.value Then docSearchTypes.add ("*.doc")\r
3056 If chkWordTemplate.value Then docSearchTypes.add ("*.dot")\r
3057 If chkExcelDoc.value Then docSearchTypes.add ("*.xls")\r
3058 If chkExcelTemplate.value Then docSearchTypes.add ("*.xlt")\r
3059 If chkPPDoc.value Then docSearchTypes.add ("*.ppt")\r
3060 If chkPPTemplate.value Then docSearchTypes.add ("*.pot")\r
3061 End Sub\r
3062 \r
3063 Sub WriteDocsToAnalyzeToLog(myDocFiles As CollectedFiles)\r
3064 On Error GoTo HandleErrors\r
3065 Dim currentFunctionName As String\r
3066 currentFunctionName = "WriteDocsToAnalyzeToLog"\r
3067 \r
3068 Dim vFileName As Variant\r
3069 Dim Index As Long\r
3070 Dim limit As Long\r
3071 limit = myDocFiles.WordFiles.count\r
3072 For Index = 1 To limit\r
3073 vFileName = myDocFiles.WordFiles(Index)\r
3074 WriteToLog "Doc" & Index, CStr(vFileName), section:=(WIZARD_NAME & "ListFor" & CAPPNAME_WORD)\r
3075 Next\r
3076 limit = myDocFiles.ExcelFiles.count\r
3077 For Index = 1 To limit\r
3078 vFileName = myDocFiles.ExcelFiles(Index)\r
3079 WriteToLog "Doc" & Index, CStr(vFileName), section:=(WIZARD_NAME & "ListFor" & CAPPNAME_EXCEL)\r
3080 Next\r
3081 limit = myDocFiles.PowerPointFiles.count\r
3082 For Index = 1 To limit\r
3083 vFileName = myDocFiles.PowerPointFiles(Index)\r
3084 WriteToLog "Doc" & Index, CStr(vFileName), section:=(WIZARD_NAME & "ListFor" & CAPPNAME_POWERPOINT)\r
3085 Next\r
3086 \r
3087 FinalExit:\r
3088 Exit Sub\r
3089 HandleErrors:\r
3090 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3091 Resume FinalExit\r
3092 End Sub\r
3093 \r
3094 Sub WriteFileDateCountsToLog(myDocFiles As CollectedFiles)\r
3095 On Error GoTo HandleErrors\r
3096 Dim currentFunctionName As String\r
3097 currentFunctionName = "WriteFileDateCountsToLog"\r
3098 \r
3099 WriteToLog C_DOCS_LESS_3_MONTH, CStr(myDocFiles.DocsLessThan3Months), mIniFilePath\r
3100 WriteToLog C_DOCS_LESS_6_MONTH, CStr(myDocFiles.DocsLessThan6Months), mIniFilePath\r
3101 WriteToLog C_DOCS_LESS_12_MONTH, CStr(myDocFiles.DocsLessThan12Months), mIniFilePath\r
3102 WriteToLog C_DOCS_MORE_12_MONTH, CStr(myDocFiles.DocsMoreThan12Months), mIniFilePath\r
3103 \r
3104 FinalExit:\r
3105 Exit Sub\r
3106 HandleErrors:\r
3107 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3108 Resume FinalExit\r
3109 End Sub\r
3110 \r
3111 \r
3112 Function RunWordAnalysis(resultsTemplate As String, logFile As String, fsObject As FileSystemObject) As Boolean\r
3113 On Error GoTo HandleErrors\r
3114 Dim currentFunctionName As String\r
3115 currentFunctionName = "RunWordAnalysis"\r
3116 Const APP_WORD = "Word"\r
3117 Dim str As String\r
3118 Dim bSuccess\r
3119 bSuccess = False\r
3120 \r
3121 Dim wrd As Word.application\r
3122 Dim aDoc As Word.Document\r
3123 Dim sWordDriverDocPath As String\r
3124 Dim RegValue As Long\r
3125 \r
3126 If (chkWordDoc.value <> vbChecked) And (chkWordTemplate.value <> vbChecked) Then\r
3127 'No Word doc filters selected\r
3128 RunWordAnalysis = True\r
3129 Exit Function\r
3130 End If\r
3131 \r
3132 sWordDriverDocPath = fsObject.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)\r
3133 If Not fsObject.FileExists(sWordDriverDocPath) Then\r
3134 str = ReplaceTopic2Tokens(GetResString(ERR_MISSING_WORD_DRIVER), _\r
3135 TOPIC_STR, sWordDriverDocPath, CR_STR, Chr(13))\r
3136 WriteDebug str\r
3137 MsgBox str, vbCritical\r
3138 bSuccess = False\r
3139 GoTo FinalExit\r
3140 End If\r
3141 \r
3142 Set wrd = New Word.application\r
3143 If val(wrd.Version) < CSUPPORTED_VERSION Then\r
3144 str = ReplaceTopic2Tokens(GetResString(ERR_SUPPORTED_VERSION), _\r
3145 TOPIC_STR, wrd.Version, CR_STR, Chr(13))\r
3146 WriteDebug str\r
3147 MsgBox str, vbCritical\r
3148 bSuccess = False\r
3149 GoTo FinalExit\r
3150 End If\r
3151 \r
3152 If Not CheckForAccesToWordVBProject(wrd) Then\r
3153 RegValue = -1\r
3154 If Not GiveAccessToMacroProject(APP_WORD, wrd.Version, RegValue) Then\r
3155 Dim Style, response\r
3156 str = ReplaceTopic2Tokens(GetResString(ERR_NO_ACCESS_TO_VBPROJECT), _\r
3157 TOPIC_STR, CAPPNAME_WORD, CR_STR, Chr(13))\r
3158 WriteDebug str\r
3159 Style = vbYesNo + vbQuestion + vbDefaultButton1\r
3160 \r
3161 response = MsgBox(str, Style)\r
3162 If response <> vbYes Then\r
3163 bSuccess = False\r
3164 GoTo FinalExit\r
3165 End If\r
3166 End If\r
3167 End If\r
3168 \r
3169 Set aDoc = wrd.Documents.Open(fileName:=sWordDriverDocPath)\r
3170 'Clear out any doc vars\r
3171 Dim MyObj As Variable\r
3172 For Each MyObj In aDoc.Variables\r
3173 MyObj.Delete\r
3174 Next\r
3175 \r
3176 'Setup Input Variables\r
3177 'SetupInputVariables resultsTemplate, logFile, fsObject, CAPPNAME_WORD\r
3178 \r
3179 wrd.Run ("AnalysisTool.AnalysisDriver.AnalyseDirectory")\r
3180 \r
3181 wrd.Visible = False\r
3182 bSuccess = True\r
3183 \r
3184 FinalExit:\r
3185 If RegValue <> -1 Then\r
3186 SetDefaultRegValue APP_WORD, wrd.Version, RegValue\r
3187 End If\r
3188 If RegValue = 0 Then\r
3189 DeleteRegValue APP_WORD, wrd.Version\r
3190 End If\r
3191 If Not aDoc Is Nothing Then aDoc.Close (False)\r
3192 Set aDoc = Nothing\r
3193 \r
3194 If Not wrd Is Nothing Then wrd.Quit (False)\r
3195 Set wrd = Nothing\r
3196 \r
3197 RunWordAnalysis = bSuccess\r
3198 Exit Function\r
3199 \r
3200 HandleErrors:\r
3201 On Error Resume Next\r
3202 \r
3203 bSuccess = False\r
3204 Set aDoc = Nothing\r
3205 Set wrd = Nothing\r
3206 \r
3207 Dim failedDoc As String\r
3208 \r
3209 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3210 \r
3211 failedDoc = GetDebug(CAPPNAME_WORD, CANALYZING)\r
3212 If failedDoc = "" Or failedDoc = CSTR_ANALYSIS_LOG_DONE Then\r
3213 str = ReplaceTopic2Tokens(GetResString(ERR_AUTOMATION_FAILURE), _\r
3214 TOPIC_STR, CAPPNAME_WORD, CR_STR, Chr(13))\r
3215 Else\r
3216 str = ReplaceTopic2Tokens(GetResString(ERR_WORD_DRIVER_CRASH), _\r
3217 TOPIC_STR, failedDoc, CR_STR, Chr(13))\r
3218 End If\r
3219 \r
3220 WriteDebug str\r
3221 MsgBox str, vbCritical\r
3222 \r
3223 Resume FinalExit\r
3224 End Function\r
3225 \r
3226 Function stripLastBackslash(inputStr As String) As String\r
3227 Const MIN_DIR_SIZE = 3\r
3228 On Error GoTo HandleErrors\r
3229 Dim currentFunctionName As String\r
3230 currentFunctionName = "stripLastBackslash"\r
3231 \r
3232 If Len(inputStr) > MIN_DIR_SIZE Then\r
3233 Dim lastStrChar As String\r
3234 lastStrChar = Right(inputStr, 1)\r
3235 If lastStrChar = "\" Then\r
3236 inputStr = Left(inputStr, Len(inputStr) - 1)\r
3237 End If\r
3238 End If\r
3239 stripLastBackslash = inputStr\r
3240 \r
3241 Exit Function\r
3242 \r
3243 HandleErrors:\r
3244 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3245 stripLastBackslash = inputStr\r
3246 End Function\r
3247 \r
3248 Function getInputDir() As String\r
3249 getInputDir = stripLastBackslash(txtInputDir.Text)\r
3250 End Function\r
3251 \r
3252 Function getOutputDir() As String\r
3253 Dim tmpStr As String\r
3254 \r
3255 tmpStr = stripLastBackslash(txtOutputDir.Text)\r
3256 \r
3257 'Bug when specifying C:\\r
3258 If tmpStr <> "" Then\r
3259 If Right(tmpStr, 1) = "\" Then\r
3260 tmpStr = Left(tmpStr, Len(tmpStr) - 1)\r
3261 End If\r
3262 End If\r
3263 getOutputDir = tmpStr\r
3264 End Function\r
3265 \r
3266 Function CheckCreateNewResultsFile(fsObject As FileSystemObject) As Boolean\r
3267 If Not fsObject.FileExists(getOutputDir & "\" & txtResultsName.Text) Then\r
3268 'No Results File - Create it\r
3269 CheckCreateNewResultsFile = True\r
3270 ElseIf rdbResultsAppend.value Then\r
3271 'Results File exists and user wants to append to it\r
3272 CheckCreateNewResultsFile = False\r
3273 Else\r
3274 'Results File exists and user has elected not to append\r
3275 CheckCreateNewResultsFile = True\r
3276 End If\r
3277 End Function\r
3278 \r
3279 Sub DeleteFile(file As String)\r
3280 On Error GoTo HandleErrors\r
3281 Dim currentFunctionName As String\r
3282 currentFunctionName = "DeleteFile"\r
3283 Dim fso As Scripting.FileSystemObject\r
3284 Set fso = New Scripting.FileSystemObject\r
3285 Dim filePath As String\r
3286 \r
3287 filePath = fso.GetAbsolutePathName(file)\r
3288 If fso.FileExists(filePath) Then\r
3289 fso.DeleteFile filePath, True\r
3290 End If\r
3291 \r
3292 FinalExit:\r
3293 Set fso = Nothing\r
3294 Exit Sub\r
3295 \r
3296 HandleErrors:\r
3297 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3298 Resume FinalExit\r
3299 End Sub\r
3300 \r
3301 Public Property Get Version() As String\r
3302 Version = app.Major & "." & app.Minor & "." & app.Revision\r
3303 End Property\r
3304 \r
3305 Function GetExcelInstance() As Excel.application\r
3306 Dim xl As Excel.application\r
3307 On Error Resume Next\r
3308 'Try and get an existing instance\r
3309 Set xl = GetObject(, "Excel.Application")\r
3310 If Err.Number = 429 Then\r
3311 Set xl = CreateObject("Excel.Application")\r
3312 ElseIf Err.Number <> 0 Then\r
3313 Set xl = Nothing\r
3314 MsgBox "Error: " & Err.Description\r
3315 Exit Function\r
3316 End If\r
3317 Set GetExcelInstance = xl\r
3318 Set xl = Nothing\r
3319 End Function\r
3320 \r
3321 Function CheckForAnalysisResultsWorkbook(analysisResultsName As String) As Boolean\r
3322 On Error GoTo HandleErrors\r
3323 Dim currentFunctionName As String\r
3324 currentFunctionName = "CheckForAnalysisResultsWorkbook"\r
3325 \r
3326 CheckForAnalysisResultsWorkbook = False\r
3327 \r
3328 Dim xl As Excel.application\r
3329 Set xl = GetExcelInstance\r
3330 \r
3331 Dim aWb As Excel.Workbook\r
3332 For Each aWb In xl.Workbooks\r
3333 \r
3334 If aWb.Name = analysisResultsName Then\r
3335 CheckForAnalysisResultsWorkbook = True\r
3336 Exit For\r
3337 End If\r
3338 Next aWb\r
3339 \r
3340 FinalExit:\r
3341 If Not xl Is Nothing Then\r
3342 If xl.Workbooks.count = 0 Then\r
3343 xl.Quit\r
3344 End If\r
3345 End If\r
3346 \r
3347 Set xl = Nothing\r
3348 \r
3349 Exit Function\r
3350 \r
3351 HandleErrors:\r
3352 Set xl = Nothing\r
3353 \r
3354 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3355 Resume FinalExit\r
3356 End Function\r
3357 \r
3358 Function CheckForExcel() As Boolean\r
3359 On Error GoTo HandleErrors\r
3360 Dim currentFunctionName As String\r
3361 currentFunctionName = "CheckForExcel"\r
3362 \r
3363 CheckForExcel = False\r
3364 \r
3365 Dim xl As Excel.application\r
3366 Set xl = GetExcelInstance\r
3367 \r
3368 \r
3369 If xl.Workbooks.count > 0 Then\r
3370 CheckForExcel = True\r
3371 End If\r
3372 \r
3373 FinalExit:\r
3374 If Not xl Is Nothing Then\r
3375 If xl.Workbooks.count = 0 Then\r
3376 xl.Quit\r
3377 End If\r
3378 End If\r
3379 \r
3380 Set xl = Nothing\r
3381 \r
3382 Exit Function\r
3383 \r
3384 HandleErrors:\r
3385 Set xl = Nothing\r
3386 \r
3387 WriteDebug currentFunctionName & " : " & Err.Number & " " & Err.Description & " " & Err.Source\r
3388 Resume FinalExit\r
3389 End Function\r
3390 \r
3391 Public Function GetIniSetting(key As String) As String\r
3392 \r
3393 If mIniFilePath = "" Or key = "" Then Exit Function\r
3394 \r
3395 GetIniSetting = ProfileGetItem(WIZARD_NAME, key, "", mIniFilePath)\r
3396 End Function\r
3397 \r
3398 Sub WriteIniSetting(key As String, value As String)\r
3399 \r
3400 If mIniFilePath = "" Or key = "" Then Exit Sub\r
3401 \r
3402 Call WritePrivateProfileString(WIZARD_NAME, key, value, mIniFilePath)\r
3403 End Sub\r
3404 \r
3405 Private Sub lblSetupComplete_Click(Index As Integer)\r
3406 \r
3407 End Sub\r
3408 \r
3409 Private Function CheckNeededFiles(missingFile As String) As Boolean\r
3410 \r
3411 Dim fso As New FileSystemObject\r
3412 Dim filePath As String\r
3413 \r
3414 CheckNeededFiles = False\r
3415 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CWORD_DRIVER_FILE)\r
3416 If Not fso.FileExists(filePath) Then\r
3417 missingFile = filePath\r
3418 Exit Function\r
3419 End If\r
3420 \r
3421 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CEXCEL_DRIVER_FILE)\r
3422 If Not fso.FileExists(filePath) Then\r
3423 missingFile = filePath\r
3424 Exit Function\r
3425 End If\r
3426 \r
3427 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CPP_DRIVER_FILE)\r
3428 If Not fso.FileExists(filePath) Then\r
3429 missingFile = filePath\r
3430 Exit Function\r
3431 End If\r
3432 \r
3433 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CLAUNCH_DRIVERS_EXE)\r
3434 If Not fso.FileExists(filePath) Then\r
3435 missingFile = filePath\r
3436 Exit Function\r
3437 End If\r
3438 \r
3439 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CMSO_KILL_EXE)\r
3440 If Not fso.FileExists(filePath) Then\r
3441 missingFile = filePath\r
3442 Exit Function\r
3443 End If\r
3444 \r
3445 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESULTS_TEMPLATE_FILE)\r
3446 If Not fso.FileExists(filePath) Then\r
3447 missingFile = filePath\r
3448 Exit Function\r
3449 End If\r
3450 \r
3451 filePath = fso.GetAbsolutePathName(CBASE_RESOURCE_DIR & "\" & CRESOURCE_DLL)\r
3452 If Not fso.FileExists(filePath) Then\r
3453 missingFile = filePath\r
3454 Exit Function\r
3455 End If\r
3456 \r
3457 CheckNeededFiles = True\r
3458 End Function\r