split source files

47-dotnet_Microsoft.VisualBasic.vbproj

@@ -946,6 +946,7 @@
     <Compile Include="ApplicationServices\ServerModule.vb" />
     <Compile Include="ApplicationServices\Debugger\VisualStudioPreviews.vb" />
     <Compile Include="ApplicationServices\Debugger\Exception\ExceptionData.vb" />
+    <Compile Include="ApplicationServices\Tools\Zip\Options.vb" />
     <Compile Include="ApplicationServices\VBDev\AssemblyInfo.vb" />
     <Compile Include="ApplicationServices\VBDev\NamespaceDoc.vb" />
     <Compile Include="ApplicationServices\VBDev\Ngen\Registry.vb" />
@@ -1551,7 +1552,7 @@
     <Compile Include="ApplicationServices\VBDev\XmlDoc\Serialization\Models\Member.vb" />
     <Compile Include="ApplicationServices\VBDev\XmlDoc\Serialization\Models\Doc.vb" />
     <Compile Include="ApplicationServices\VBDev\XmlDoc\Serialization\APIExtensions.vb" />
-    <Compile Include="ApplicationServices\Tools\ZipLib.vb" />
+    <Compile Include="ApplicationServices\Tools\Zip\ZipLib.vb" />
     <Compile Include="ComponentModel\DataSource\DataFramework.vb" />
     <Compile Include="ApplicationServices\Terminal\Utility\CBusyIndicator.vb" />
     <Compile Include="Extensions\Doc\LargeTextFile.vb" />

ApplicationServices/Tools/Zip/Options.vb

@@ -0,0 +1,24 @@
+Namespace ApplicationServices.Zip
+
+    ''' <summary>
+    ''' Used to specify what our overwrite policy
+    ''' is for files we are extracting.
+    ''' </summary>
+    Public Enum Overwrite
+        Always
+        IfNewer
+        Never
+    End Enum
+
+    ''' <summary>
+    ''' Used to identify what we will do if we are
+    ''' trying to create a zip file and it already
+    ''' exists.
+    ''' </summary>
+    Public Enum ArchiveAction
+        Merge
+        Replace
+        [Error]
+        Ignore
+    End Enum
+End Namespace

ApplicationServices/Tools/Zip/ZipLib.vb

@@ -69,7 +69,7 @@ Imports Microsoft.VisualBasic.Language
 Imports Microsoft.VisualBasic.Language.UnixBash
 Imports Microsoft.VisualBasic.Scripting.MetaData
 
-Namespace ApplicationServices
+Namespace ApplicationServices.Zip
 
 #If NET_40 = 0 Then
 
@@ -86,28 +86,6 @@ Namespace ApplicationServices
          Url:="http://www.codeproject.com/Articles/381661/Creating-Zip-Files-Easily-in-NET")>
     Public Module ZipLib
 
-        ''' <summary>
-        ''' Used to specify what our overwrite policy
-        ''' is for files we are extracting.
-        ''' </summary>
-        Public Enum Overwrite
-            Always
-            IfNewer
-            Never
-        End Enum
-
-        ''' <summary>
-        ''' Used to identify what we will do if we are
-        ''' trying to create a zip file and it already
-        ''' exists.
-        ''' </summary>
-        Public Enum ArchiveAction
-            Merge
-            Replace
-            [Error]
-            Ignore
-        End Enum
-
         ''' <summary>
         ''' Unzips the specified file to the given folder in a safe
         ''' manner.  This plans for missing paths and existing files