_src/TestByFCBatAuto/vbs_inc/test/T_vbsinc/T_SynErr2/vbslib/vbslib300/setting/vbs_inc_setting.vbs

   1 Option Explicit \r
   2 \r
   3 Dim  g_Vers\r
   4 \r
   5 Function  Setting_getIncludePathes( IncludeType )\r
   6   ReDim  pathes(2)\r
   7          pathes(0) = "sample_lib.vbs"\r
   8 \r
   9   If not IsEmpty(g_Vers) Then  IncludeType = g_Vers.Item( "IncludeType" )\r
  10 \r
  11   If not IsEmpty( IncludeType ) Then\r
  12     If IncludeType = "ex" Then\r
  13        pathes(1) = "test\sample_lib_ex.vbs"\r
  14     ElseIf IncludeType = "T_SynErr" Then\r
  15        pathes(1) = "test\sample_lib_synerr.vbs"\r
  16     ElseIf IncludeType = "T_IncErr2" Then\r
  17        pathes(1) = "test\sample_lib_inc_err.vbs"\r
  18     ElseIf IncludeType = "T_Vbslib" Then\r
  19        pathes(1) = "test\vbslib.vbs"\r
  20     ElseIf IncludeType = "T_Finalize" Then\r
  21        pathes(1) = "test\T_Finalize_lib1.vbs"\r
  22        pathes(2) = "test\T_Finalize_lib2.vbs"\r
  23     ElseIf IncludeType = "T_Finalize2" Then\r
  24        pathes(1) = "test\T_Finalize_lib2.vbs"\r
  25        pathes(2) = "test\T_Finalize_lib1.vbs"\r
  26     End If\r
  27   End If\r
  28 \r
  29   Setting_getIncludePathes = pathes\r
  30 End Sub\r
  31 \r
  32 \r
  33  \r