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   ) 
 
 	 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 _ N e s t P o s 1 "   ) ) 
 
 	 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 
 
 	 P a s s 
 
 E n d   S u b 
 
 
 
 
 
   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 '     < < <   [ T _ N e s t P o s 1 ]   > > >   
 
 ' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 S u b     T _ N e s t P o s 1 (   O p t ,   A p p K e y   ) 
 
 	 E c h o T e s t S t a r t     " T _ N e s t P o s 1 " 
 
 
 
 	 D i m     p o s   :   S e t   p o s   =   n e w   N e s t P o s 
 
 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   0   )   ) 
 
 
 
 	 p o s . S t a r t 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   1 ,   0   )   ) 
 
 	 p o s . E n d _ 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   1   )   ) 
 
 
 
 	 p o s . S t a r t 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   2 ,   0   )   ) 
 
 	 p o s . S t a r t 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   2 ,   1 ,   0   )   ) 
 
 	 p o s . E n d _ 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   2 ,   1   )   ) 
 
 	 p o s . E n d _ 
 
 	 A s s e r t     I s S a m e A r r a y (   p o s . P o s A r r ,   A r r a y (   2   )   ) 
 
 
 
 E n d   S u b 
 
 
 
 
 
   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ' - - -   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   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
   
 
 