O p t i o n   E x p l i c i t   
 
 
 
 S u b     M a i n (   O p t ,   A p p K e y   ) 
 
 	 g _ V e r s ( " C u t P r o p e r t y M " )   =   T r u e 
 
 	 D i m     o   :   S e t   o   =   n e w   I n p u t C o m m a n d O p t 
 
 	 	 S e t   o . C o m m a n d R e p l a c e   =   D i c t ( A r r a y (   " 1 " , " T _ A r r 1 " ,   " 2 " , " T _ A r r C l a s s " , _ 
 
 	 	 	 " 3 " , " T _ A r r I t e r " ,   " 4 " , " T _ A d d N e w O b j " ,   " 5 " , " T _ A r r a y D i c 1 " ,   " 6 " , " T _ A r r a y C u s t o m "   ) ) 
 
 	 I n p u t C o m m a n d     o ,   E m p t y ,   O p t ,   A p p K e y 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A r r 1 ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A r r 1 (   O p t ,   A p p K e y   ) 
 
 	 D i m     a 
 
 
 
 	 E c h o T e s t S t a r t     " T _ A r r 1 " 
 
 
 
 	 ' / / = = = 
 
 	 S e t   a   =   n e w   A r r a y C l a s s 
 
 	 W S c r i p t . E c h o   " c o u n t   =   "   &   a . C o u n t 
 
 	 a . A d d   1 
 
 	 a . A d d   2 
 
 	 W S c r i p t . E c h o     " c o u n t   =   "   &   a . C o u n t 
 
 	 W S c r i p t . E c h o     G e t E c h o S t r (   a   ) 
 
 	 e c h o     a 
 
 	 e c h o     a ( 0 ) 
 
 	 a ( 0 )   =   3 
 
 	 e c h o     a ( 0 ) 
 
 
 
 	 ' / / = = = 
 
 	 e c h o     A r r a y (   4 ,   8   ) 
 
 
 
 	 R e D i m     a ( 0 )   :   a ( 0 )   =   2 
 
 	 A d d A r r E l e m     a ,   A r r a y (   3 ,   4   ) 
 
 	 e c h o     a 
 
 
 
 	 ' / / = = = 
 
 	 S e t   a   =   n e w   A r r a y C l a s s 
 
 	 a . p u s h     3 
 
 	 a . A d d E l e m s     A r r a y (   4 ,   5   ) 
 
 	 e c h o     a 
 
 
 
 	 ' / / = = =   T e s t   o f   s e t   o b j e c t 
 
 	 S e t   a ( 0 )   =   n e w   A r r a y C l a s s 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A r r C l a s s ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A r r C l a s s (   O p t ,   A p p K e y   ) 
 
 	 D i m     a r r ,   e l e m ,   o b j 
 
 
 
 	 E c h o T e s t S t a r t     " T _ A r r C l a s s " 
 
 
 
 	 S e t   a r r   =   n e w   A r r a y C l a s s 
 
 	 W S c r i p t . E c h o   " c o u n t   =   "   &   a r r . C o u n t 
 
 	 S e t   e l e m   =   n e w   T e s t E l e m 
 
 	 e l e m . N u m 1   =   1 1 
 
 	 e l e m . N u m 2   =   1 2 
 
 	 a r r . A d d   e l e m 
 
 	 e l e m . N u m 1   =   2 1 
 
 	 e l e m . N u m 2   =   2 2 
 
 	 a r r . A d d   e l e m 
 
 	 W S c r i p t . E c h o   " c o u n t   =   "   &   a r r . C o u n t 
 
 	 e c h o     a r r 
 
 
 
 	 S e t   a r r   =   n e w   A r r a y C l a s s 
 
 	 a r r . R e D i m _   3 
 
 	 A s s e r t     U B o u n d (   a r r . I t e m s   )   =   3 
 
 	 A s s e r t     a r r . U B o u n d _   =   3 
 
 
 
 
 
 	 ' / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 E c h o T e s t S t a r t     " T _ A r r C l a s s _ R e m o v e " 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   0 ,   1 ,   2 ,   3 ,   4 ,   5 ,   6   )   ) 
 
 	 a r r . R e m o v e     1 ,   2 
 
 	 A s s e r t     I s S a m e A r r a y (   a r r . I t e m s ,   A r r a y (   0 ,   3 ,   4 ,   5 ,   6   )   ) 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   0 ,   1 ,   2 ,   3 ,   4 ,   5 ,   6   )   ) 
 
 	 a r r . R e m o v e     0 ,   4 
 
 	 A s s e r t     I s S a m e A r r a y (   a r r . I t e m s ,   A r r a y (   4 ,   5 ,   6   )   ) 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   0 ,   1 ,   2 ,   3 ,   4 ,   5 ,   6   )   ) 
 
 	 a r r . R e m o v e     5 ,   2 
 
 	 A s s e r t     I s S a m e A r r a y (   a r r . I t e m s ,   A r r a y (   0 ,   1 ,   2 ,   3 ,   4   )   ) 
 
 
 
 
 
 	 ' / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 E c h o T e s t S t a r t     " T _ A r r C l a s s _ R e m o v e E m p t y " 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   0 ,   E m p t y ,   2 ,   E m p t y ,   E m p t y ,   5   )   ) 
 
 	 a r r . R e m o v e E m p t y 
 
 	 A s s e r t     I s S a m e A r r a y (   a r r . I t e m s ,   A r r a y (   0 ,   2 ,   5   )   ) 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   E m p t y ,   E m p t y ,   E m p t y   )   ) 
 
 	 a r r . R e m o v e E m p t y 
 
 	 A s s e r t     a r r . C o u n t   =   0 
 
 
 
 	 S e t   o b j   =   C r e a t e O b j e c t (   " S c r i p t i n g . D i c t i o n a r y "   ) 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   0 ,   E m p t y ,   2 ,   E m p t y ,   E m p t y ,   o b j   )   ) 
 
 	 a r r . R e m o v e E m p t y 
 
 	 A s s e r t     a r r ( 0 )   =   0 
 
 	 A s s e r t     a r r ( 1 )   =   2 
 
 	 A s s e r t     a r r ( 2 )   I s   o b j 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A r r I t e r ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A r r I t e r (   O p t ,   A p p K e y   ) 
 
 	 D i m     a ,   e l e m ,   i t e r ,   i t e r 1 ,   i t e r 2 ,   s e n t i n e l 
 
 
 
 	 E c h o T e s t S t a r t     " T _ A r r I t e r " 
 
 
 
 	 S e t   a   =   n e w   A r r a y C l a s s 
 
 	 T _ A r r I t e r _ s u b     a 
 
 
 
 	 S e t   e l e m   =   n e w   T e s t E l e m   :   e l e m . N u m 1   =   1   :   a . A d d   e l e m 
 
 	 T _ A r r I t e r _ s u b     a 
 
 
 
 	 S e t   e l e m   =   n e w   T e s t E l e m   :   e l e m . N u m 1   =   2   :   a . A d d   e l e m 
 
 	 T _ A r r I t e r _ s u b     a 
 
 
 
 	 S e t   s e n t i n e l   =   n e w   T e s t E l e m   :   s e n t i n e l . N u m 1   =   - 1 
 
 
 
 
 
 	 ' / / = = =   S e n t i n e l 
 
 	 S e t   i t e r   =   a . N e w I t e r a t o r ( ) 
 
 	 e c h o     " - - - " 
 
 	 W h i l e   i t e r . H a s N e x t ( ) 
 
 	 	 e c h o     i t e r . G e t N e x t O r S e n t i n e l (   s e n t i n e l   ) . N u m 1 
 
 	 W E n d 
 
 	 e c h o     i t e r . G e t N e x t O r S e n t i n e l (   s e n t i n e l   ) . N u m 1 
 
 	 e c h o     " - - - " 
 
 
 
 
 
 
 
 	 ' / / = = =   D o u b l e   i t e r a t o r s 
 
 	 S e t   i t e r 1   =   a . N e w I t e r a t o r ( ) 
 
 	 S e t   i t e r 2   =   a . N e w I t e r a t o r ( ) 
 
 	 e c h o     " - - - " 
 
 	 W h i l e   i t e r 1 . H a s N e x t ( ) 
 
 	 	 e c h o     i t e r 1 . G e t N e x t ( ) . N u m 1   & " ,   " &   i t e r 2 . G e t N e x t ( ) . N u m 1 
 
 	 W E n d 
 
 	 e c h o     " - - - " 
 
 
 
 
 
 	 ' / / = = =   E l e m e t   i s   n o t   O b j e c t 
 
 	 S e t   a   =   n e w   A r r a y C l a s s 
 
 	 a . A d d   1 
 
 	 e c h o     " - - - " 
 
 	 S e t   i t e r   =   a . N e w I t e r a t o r ( ) 
 
 	 W h i l e   i t e r . H a s N e x t 
 
 	 	 e c h o     i t e r . G e t N e x t ( ) 
 
 	 W E n d 
 
 	 e c h o     " - - - " 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
 S u b     T _ A r r I t e r _ s u b (   a   ) 
 
 	 D i m     i t e r ,   e l e m 
 
 
 
 	 e c h o     " - - - " 
 
 	 S e t   i t e r   =   a . N e w I t e r a t o r ( ) 
 
 	 W h i l e   i t e r . H a s N e x t 
 
 	 	 S e t   e l e m   =   i t e r . G e t N e x t ( ) 
 
 	 	 e c h o     e l e m . N u m 1 
 
 	 W E n d 
 
 	 e c h o     " - - - " 
 
 E n d   S u b 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A d d N e w O b j ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A d d N e w O b j (   O p t ,   A p p K e y   ) 
 
 	 D i m   a r r ,   o ,   o 2 ,   r 
 
 	 S e t   a r r   =   n e w   A r r a y C l a s s 
 
 
 
 	 S e t   o   =   a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " O b j e c t A "   ) 
 
 	 o . P a r a m   =   1 
 
 
 
 	 S e t   o   =   a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " O b j e c t B "   ) 
 
 	 o . P a r a m   =   2 
 
 	 S e t   o 2   =   o 
 
 
 
 	 I f   a r r . C o u n t   < >   2   T h e n     F a i l 
 
 	 I f   a r r ( 0 ) . P a r a m   < >   1   T h e n     F a i l 
 
 	 I f   a r r ( 1 ) . P a r a m   < >   2   T h e n     F a i l 
 
 
 
 	 S e t   o   =   a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " O b j e c t C "   ) 
 
 	 o . P a r a m   =   3 
 
 
 
 	 S e t   o   =   a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " O b j e c t D "   ) 
 
 	 o . P a r a m   =   4 
 
 
 
 	 S e t   r   =   a r r . R e m o v e O b j e c t (   o 2   ) 
 
 
 
 	 A s s e r t     a r r . C o u n t   =   3 
 
 	 A s s e r t     a r r ( 0 ) . P a r a m   =   1 
 
 	 A s s e r t     a r r ( 1 ) . P a r a m   =   3 
 
 	 A s s e r t     a r r ( 2 ) . P a r a m   =   4 
 
 	 A s s e r t     r   i s   o 2 
 
 
 
 	 S e t   r   =   a r r . R e m o v e O b j e c t (   o 2   ) 
 
 
 
 	 A s s e r t     a r r . C o u n t   =   3 
 
 	 A s s e r t     a r r ( 0 ) . P a r a m   =   1 
 
 	 A s s e r t     a r r ( 1 ) . P a r a m   =   3 
 
 	 A s s e r t     a r r ( 2 ) . P a r a m   =   4 
 
 	 A s s e r t     r   i s   N o t h i n g 
 
 
 
 
 
 	 ' / / = = = = = = = = = = = = = = = 
 
 
 
 	 S e t   a r r   =   n e w _ A r r a y C l a s s (   A r r a y (   1 ,   2 ,   3   )   ) 
 
 	 A s s e r t     a r r . C o u n t   =   3 
 
 	 A s s e r t     a r r ( 0 )   =   1 
 
 	 A s s e r t     a r r ( 1 )   =   2 
 
 	 A s s e r t     a r r ( 2 )   =   3 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A r r a y D i c 1 ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A r r a y D i c 1 (   O p t ,   A p p K e y   ) 
 
 	 D i m     d i c ,   i , j 
 
 
 
 	 E c h o T e s t S t a r t     " T _ A r r a y D i c 1 " 
 
 
 
 	 ' / / = = =   a d d   i t e m s   b y   d u p l i c a t e d   k e y 
 
 	 S e t   d i c   =   N e w   A r r a y D i c t i o n a r y 
 
 	 d i c . A d d     " k e y 1 " ,   " i t e m 1 1 " 
 
 	 d i c . A d d     " k e y 1 " ,   " i t e m 1 2 " 
 
 	 d i c . A d d     " k e y 1 " ,   " i t e m 1 3 " 
 
 	 d i c . A d d     " k e y 2 " ,   " i t e m 2 1 " 
 
 	 d i c . E c h o 
 
 
 
 	 W S c r i p t . E c h o     " c o u n t   =   "   &   d i c . C o u n t 
 
 	 F o r   E a c h   j   i n   d i c . m _ D i c . I t e m s ( )   :   F o r   E a c h   i   i n   j . I t e m s 
 
 	 	 W S c r i p t . E c h o     i 
 
 	 N e x t   :   N e x t 
 
 	 W S c r i p t . E c h o     " " 
 
 
 
 
 
 	 ' / / = = =   e m p t y 
 
 	 d i c . T o E m p t y 
 
 	 d i c . A d d     " k e y 1 " ,   " i t e m 1 1 " 
 
 
 
 	 W S c r i p t . E c h o     " c o u n t   =   "   &   d i c . C o u n t 
 
 	 F o r   E a c h   j   i n   d i c . m _ D i c . I t e m s ( )   :   F o r   E a c h   i   i n   j . I t e m s 
 
 	 	 W S c r i p t . E c h o     i 
 
 	 N e x t   :   N e x t 
 
 	 W S c r i p t . E c h o     " " 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ A r r a y C u s t o m ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ A r r a y C u s t o m (   O p t ,   A p p K e y   ) 
 
 	 D i m     a r r   :   S e t   a r r   =   n e w   A r r a y C l a s s 
 
 
 
 	 a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " A "   ) . P a r a m   =   1 0 
 
 	 a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " B "   ) . P a r a m   =   2 0 
 
 	 a r r . A d d N e w O b j e c t (   " C l a s s A " ,   " C "   ) . P a r a m   =   3 0 
 
 
 
 	 S e t   a r r . I t e m F u n c   =   G e t R e f (   " C l a s s A _ g e t I t e m "   ) 
 
 
 
 	 A s s e r t     a r r (   " A "   ) . P a r a m   =   1 0 
 
 	 A s s e r t     a r r (   " B "   ) . P a r a m   =   2 0 
 
 	 A s s e r t     a r r (   0   ) . P a r a m   =   1 0 
 
 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '   # # #   < < < <   [ C l a s s A ]   C l a s s   > > > >   
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 C l a s s   C l a s s A 
 
 	 P u b l i c     N a m e 
 
 	 P u b l i c     P a r a m 
 
 E n d   C l a s s 
 
 
 
 F u n c t i o n     n e w _ C l a s s A ( )   :   S e t   n e w _ C l a s s A   =   n e w   C l a s s A   :   E n d   F u n c t i o n 
 
 
 
 F u n c t i o n     C l a s s A _ g e t I t e m (   I t e m s ,   N a m e   ) 
 
 	 D i m     s 
 
 	 I f   I s N u m e r i c (   N a m e   )   T h e n 
 
 	 	 S e t   C l a s s A _ g e t I t e m   =   I t e m s (   N a m e   ) 
 
 	 E l s e 
 
 	 	 F o r   E a c h   s     I n   I t e m s 
 
 	 	 	 I f   s . N a m e   =   N a m e   T h e n     S e t   C l a s s A _ g e t I t e m   =   s   :   E x i t   F u n c t i o n 
 
 	 	 N e x t 
 
 	 E n d   I f 
 
 E n d   F u n c t i o n 
 
 
 
 
 
   
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '   # # #   < < < <   [ T e s t E l e m ]   C l a s s   > > > >   
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 C l a s s   T e s t E l e m 
 
 	 P u b l i c     N u m 1 
 
 	 P u b l i c     N u m 2 
 
 	 P u b l i c   P r o p e r t y   G e t     x m l ( ) : x m l = x m l _ s u b ( 0 ) : C u t L a s t O f   x m l , v b C R L F , E m p t y : E n d   P r o p e r t y 
 
 	 P u b l i c   F u n c t i o n     x m l _ s u b (   L e v e l   ) 
 
 	 	 x m l _ s u b   =   " < T e s t E l e m   N u m 1 = " " "   &   M e . N u m 1   &   " " "   N u m 2 = " " "   &   M e . N u m 2   & " " " / > " 
 
 	 E n d   F u n c t i o n 
 
 
 
 E n d   C l a s s 
 
 
 
 
 
   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ' - - -   s t a r t   o f   v b s l i b   i n c l u d e   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 
 
 ' / /   S0S0n0QK00  M a i n   pe0|Ts0QW0f0D0~0Y00
 
 ' / /   ~0_00s c r i p t l i b   000000cW0f00v b s l i b   0000000W0f0D0~0Y0
 
 
 
 ' / /   v b s l i b   i s   p r o v i d e d   u n d e r   3 - c l a u s e   B S D   l i c e n s e . 
 
 ' / /   C o p y r i g h t   ( C )   2 0 0 7 - 2 0 1 1   S o f r w a r e   D e s i g n   G a l l e r y   " S a g e   P l a i s i r   2 1 "   A l l   R i g h t s   R e s e r v e d . 
 
 
 
 D i m     g _ V e r s   :   I f   I s E m p t y (   g _ V e r s   )   T h e n 
 
 S e t     g _ V e r s   =   C r e a t e O b j e c t ( " S c r i p t i n g . D i c t i o n a r y " )   :   g _ V e r s . A d d   " v b s l i b " ,   4 . 0 
 
 D i m     g _ d e b u g ,   g _ d e b u g _ p a r a m s ,   g _ a d m i n ,   g _ v b s l i b _ p a t h ,   g _ C o m m a n d P r o m p t ,   g _ f s ,   g _ s h ,   g _ A p p K e y 
 
 D i m     g _ M a i n P a t h ,   g _ S r c P a t h ,   g _ f ,   g _ i n c l u d e _ p a t h ,   i ,   g _ d e b u g _ t r e e ,   g _ d e b u g _ p r o c e s s ,   g _ i s _ c o m p i l e _ d e b u g 
 
 g _ S r c P a t h   =   W S c r i p t . S c r i p t F u l l N a m e   :   g _ M a i n P a t h   =   g _ S r c P a t h 
 
 S e t u p V b s l i b P a r a m e t e r s 
 
 S e t     g _ f s   =   C r e a t e O b j e c t (   " S c r i p t i n g . F i l e S y s t e m O b j e c t "   ) 
 
 S e t     g _ s h   =   W S c r i p t . C r e a t e O b j e c t ( " W S c r i p t . S h e l l " )   :   g _ f   =   g _ s h . C u r r e n t D i r e c t o r y 
 
 g _ s h . C u r r e n t D i r e c t o r y   =   g _ f s . G e t P a r e n t F o l d e r N a m e (   W S c r i p t . S c r i p t F u l l N a m e   ) 
 
 F o r   i   =   2 0   T o   1   S t e p   - 1   :   I f   g _ f s . F i l e E x i s t s ( g _ v b s l i b _ p a t h )   T h e n     E x i t   F o r 
 
 g _ v b s l i b _ p a t h   =   " . . \ "   +   g _ v b s l i b _ p a t h     :   N e x t 
 
 I f   g _ f s . F i l e E x i s t s ( g _ v b s l i b _ p a t h )   T h e n     g _ v b s l i b _ p a t h   =   g _ f s . G e t A b s o l u t e P a t h N a m e (   g _ v b s l i b _ p a t h   ) 
 
 g _ s h . C u r r e n t D i r e c t o r y   =   g _ f 
 
 I f   i = 0   T h e n   W S c r i p t . E c h o   " N o t   f o u n d   "   +   g _ f s . G e t F i l e N a m e (   g _ v b s l i b _ p a t h   )   + v b C R + v b L F + _ 
 
 	 " L e t ' s   d o w n l o a d   v b s l i b   " & g _ V e r s . I t e m ( " v b s l i b " ) & "   a n d   C o p y   s c r i p t l i b   f o l d e r . "   :   S t o p   :   W S c r i p t . Q u i t   1 
 
 S e t   g _ f   =   g _ f s . O p e n T e x t F i l e (   g _ v b s l i b _ p a t h , , , - 2   ) :   E x e c u t e   g _ f . R e a d A l l ( )   :   g _ f   =   E m p t y 
 
 I f   R e s u m e P u s h   T h e n     O n   E r r o r   R e s u m e   N e x t 
 
 	 C a l l M a i n F r o m V b s L i b 
 
 R e s u m e P o p   :   O n   E r r o r   G o T o   0 
 
 E n d   I f 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 S u b     S e t u p D e b u g T o o l s ( ) 
 
 	 s e t _ i n p u t     " " 
 
 	 S e t B r e a k B y F N a m e     E m p t y 
 
 	 S e t S t a r t S e c t i o n T r e e     " " 
 
 E n d   S u b 
 
 
 
 S u b     S e t u p V b s l i b P a r a m e t e r s ( ) 
 
 	 ' - - -   s t a r t   o f   p a r a m e t e r s   f o r   v b s l i b   i n c l u d e   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 ' / /   g _ V e r s ( " O l d M a i n " )   =   1 
 
 	 g _ v b s l i b _ p a t h   =   " s c r i p t l i b \ v b s _ i n c . v b s " 
 
 	 g _ C o m m a n d P r o m p t   =   2 
 
 
 
 	 g _ d e b u g   =   0       ' / /   r e l e a s e : 0 ,   d e b u g : 9 9 ,   - 1 : c a l l   S e t u p D e b u g T o o l s 
 
 	 	 	 	 	 	 	 	 ' / /   -30000000000L0B00p00g _ d e b u g   0  1   N
Nk0Y00h000000L0OH0~0Y00
 
 	 	 	 	 	 	 	 	 ' / /   0000[L0YY004X@b00	Ypen0$P0xW0_0D04X@bk00S t o p   }TN0W0f0O0`0U0D00
 
 
 
 	 ' - - -   e n d   o f   p a r a m e t e r s   f o r   v b s l i b   i n c l u d e   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 E n d   S u b 
 
 ' - - -   e n d   o f   v b s l i b   i n c l u d e   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
   
 
 