so far functional file skimmer

ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb

@@ -3,7 +3,7 @@
     Public Shared ComputerInfo(7) As String
     Public Shared IsFree As Boolean
     Public Shared OnceInfo(8) As String
-    Public Shared AvailableFeature(42) As String
+    Public Shared AvailableFeature(52) As String
     Public Shared CLIInterpreter As String
     Public Shared SaveFile As String
     Public Shared Achievement As String
@@ -97,6 +97,16 @@
     '40 = DuWM RGB Support [Adds RGB and its other variant support to DuWM] (default : 0)
     '41 = DuWM 16 Colors Support [Adds mix of RGB color support into ShiftOS] (default : 0)
     '42 = KI US States [Adds United States States category into the Knowledge Input] (default : 0)
+    '43 = DuWM Advanced Read and Write [Expands read and write support for DuWM] (default : 0)
+    '44 = File Skimmer [A file manager for ShiftOS] (default : 0)
+    '45 = File Skimmer Folder Support [Supports for reading and writing folder in File Skimmer] (default : 0)
+    '46 = File Skimmer File Support [Supports for reading and writing file in File Skimmer] (default : 0)
+    '47 = File Skimmer Delete Support [Adds file deletion function into ShiftOS] (default : 0)
+    '48 = File Skimmer ZIP Support [Adds ZIP compression function into ShiftOS] (default : 0)
+    '49 = File Skimmer Properties Pane [Adds a sidebar contains file/directory informations] (default : 0)
+    '50 = File Skimmer JobBar [Adds a top bar for actions on File Skimmer] (default : 0)
+    '51 = File Skimmer Small Icons [Adds small icons layout on File Skimmer] (default : 0)
+    '52 = File Skimmer List [Adds small icons layout on File Skimmer] (default : 0)
     '
     'Features bought hierarchy :
     '
@@ -147,11 +157,14 @@
     '>>>KI Animals (KI_ANIMALS) (300 CP)
     '>>>KI Fruits (KI_FRUITS) (300 CP)
     '>>>KI US States (KI_US) (300 CP)
-    '>>DuWM Read and Write support (250 CP)
+    '>>DuWM Advanced Read and Write support (DUWM_RW) (250 CP)
-    '>>>File Skimmer (300 CP)
+    '>>>File Skimmer (FILESKIMMER) (300 CP)
-    '>>>>FS Properties Pane (325 CP)
+    '>>>>FS Folder Support (FS_FOLDER) (325 CP)
-    '>>>>FS Small Images Layout (350 CP)
+    '>>>>>FS File Support (FS_FILE) (350 CP)
-    '>>>>FS List Layout (350 CP)
+    '>>>>>>FS Delete Support (FS_DELETE) (400 CP)
-    '>>>>FS Delete (350 CP)
+    '>>>>>>FS ZIP Support (FS_ZIP) (500 CP)
-    '>>>>FS ZIP support (400 CP)
+    '>>>>FS Properties Pane (FS_PPANE) (350 CP)
+    '>>>>FS JobBar (FS_JOBBAR) (400 CP)
+    '>>>>>FS Small Icons Layout (FS_SMALLICONS) (425 CP)
+    '>>>>>FS List Layout (FS_LIST) (425 CP)
 End Class

ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb

@@ -163,6 +163,12 @@
                     NewLine("(ki_us | 300 CP) KI US States")
                 End If
             End If
+            If Strings.AvailableFeature(43) = 0 Then
+                NewLine("(duwm_rw | 250 CP) DuWM Advanced Read and Write support")
+            Else
+                If Strings.AvailableFeature(44) = 0 Then
+                    NewLine("(fileskimmer | 300 CP) File Skimmer")
+                End If
             End If
     End Sub
 
@@ -553,6 +559,17 @@
                     NewLine(ManHeader(1))
                     NormalCommand()
                 End If
+            Case "duwm_rw"
+                If Strings.AvailableFeature(43) = 0 Then
+                    ManHeader(0) = "DuWM Advanced Read and Write support"
+                    ManHeader(1) = "250 CP"
+                    NewLine(ManHeader(0))
+                    NewLine(Nothing)
+                    NewLine("Adds US States category into Knowledge Input")
+                    NewLine(Nothing)
+                    NewLine(ManHeader(1))
+                    NormalCommand()
+                End If
             Case Else
                 NormalCommand()
                 Console.TextBox1.Text = Console.TextBox1.Text & Environment.NewLine & "Shiftorium: Bad command or not available"

ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb

@@ -113,6 +113,16 @@ Module SaveLoadSystem
                 Strings.AvailableFeature(41) = "2"
                 '0.2.8 Features
                 Strings.AvailableFeature(42) = "2"
+                Strings.AvailableFeature(43) = "2"
+                Strings.AvailableFeature(44) = "2"
+                Strings.AvailableFeature(45) = "2"
+                Strings.AvailableFeature(46) = "2"
+                Strings.AvailableFeature(47) = "2"
+                Strings.AvailableFeature(48) = "2"
+                Strings.AvailableFeature(49) = "2"
+                Strings.AvailableFeature(50) = "2"
+                Strings.AvailableFeature(51) = "2"
+                Strings.AvailableFeature(52) = "2"
         End Select
     End Sub
 
@@ -171,6 +181,16 @@ Module SaveLoadSystem
         Strings.AvailableFeature(41) = "1"
         '0.2.8 Features
         Strings.AvailableFeature(42) = "1"
+        Strings.AvailableFeature(43) = "1"
+        Strings.AvailableFeature(44) = "1"
+        Strings.AvailableFeature(45) = "1"
+        Strings.AvailableFeature(46) = "1"
+        Strings.AvailableFeature(47) = "1"
+        Strings.AvailableFeature(48) = "1"
+        Strings.AvailableFeature(49) = "1"
+        Strings.AvailableFeature(50) = "1"
+        Strings.AvailableFeature(51) = "1"
+        Strings.AvailableFeature(52) = "1"
     End Sub
 
     Public Sub GodMode()
@@ -226,6 +246,16 @@ Module SaveLoadSystem
         Strings.AvailableFeature(41) = "2"
         '0.2.8 Features
         Strings.AvailableFeature(42) = "2"
+        Strings.AvailableFeature(43) = "2"
+        Strings.AvailableFeature(44) = "2"
+        Strings.AvailableFeature(45) = "2"
+        Strings.AvailableFeature(46) = "2"
+        Strings.AvailableFeature(47) = "2"
+        Strings.AvailableFeature(48) = "2"
+        Strings.AvailableFeature(49) = "2"
+        Strings.AvailableFeature(50) = "2"
+        Strings.AvailableFeature(51) = "2"
+        Strings.AvailableFeature(52) = "2"
     End Sub
 
     Public Sub SaveGame()

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.Designer.vb

@@ -64,6 +64,16 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property ico_refresh() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_refresh", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>
@@ -73,5 +83,55 @@ Namespace My.Resources
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_compress() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_compress", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_deletefile() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_deletefile", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_rename() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_rename", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_uncompress() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_uncompress", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend Shared ReadOnly Property largeico_unknown() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("largeico_unknown", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Class
 End Namespace

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Icons/FileSkimmerFunctionIcons.resx

@@ -118,7 +118,25 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="ico_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\ico_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="ico_up1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\..\..\..\Resources\ico_up1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="largeico_compress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_compress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_deletefile" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\ico_deletefile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_rename" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_rename.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_uncompress" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\..\..\..\Resources\largeico_uncompress.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="largeico_unknown" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>ico_unknown.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.Designer.vb

@@ -29,18 +29,13 @@ Partial Class Uni_FileSkimmer
         Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.OptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.JobBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.pnl_Ribbon = New System.Windows.Forms.Panel()
+        Me.pnl_JobBar = New System.Windows.Forms.Panel()
         Me.cmb_Layout = New System.Windows.Forms.ComboBox()
-        Me.btn_Properties = New System.Windows.Forms.Button()
-        Me.btn_Rename = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.btn_Delete = New System.Windows.Forms.Button()
-        Me.btn_Compress = New System.Windows.Forms.Button()
-        Me.btn_NewFolder = New System.Windows.Forms.Button()
         Me.pnl_Properties = New System.Windows.Forms.Panel()
-        Me.pic_Icon = New System.Windows.Forms.PictureBox()
         Me.lbl_filesize = New System.Windows.Forms.Label()
         Me.lbl_filetype = New System.Windows.Forms.Label()
         Me.lbl_filename = New System.Windows.Forms.Label()
@@ -53,11 +48,21 @@ Partial Class Uni_FileSkimmer
         Me.lbl_Address = New System.Windows.Forms.Label()
         Me.lsv_Content = New System.Windows.Forms.ListView()
         Me.iml_smallicons = New System.Windows.Forms.ImageList(Me.components)
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.pic_Icon = New System.Windows.Forms.PictureBox()
+        Me.btn_CopyPath = New System.Windows.Forms.Button()
+        Me.btn_Rename = New System.Windows.Forms.Button()
+        Me.btn_Delete = New System.Windows.Forms.Button()
+        Me.btn_Compress = New System.Windows.Forms.Button()
+        Me.btn_NewFolder = New System.Windows.Forms.Button()
+        Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.CompressToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.msn_Options.SuspendLayout()
-        Me.pnl_Ribbon.SuspendLayout()
+        Me.pnl_JobBar.SuspendLayout()
         Me.pnl_Properties.SuspendLayout()
-        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnl_AddressBar.SuspendLayout()
+        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'msn_Options
@@ -73,7 +78,7 @@ Partial Class Uni_FileSkimmer
         '
         'FileToolStripMenuItem
         '
-        Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CloseToolStripMenuItem})
+        Me.FileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CompressToolStripMenuItem, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator1, Me.CloseToolStripMenuItem})
         Me.FileToolStripMenuItem.Name = "FileToolStripMenuItem"
         Me.FileToolStripMenuItem.Size = New System.Drawing.Size(41, 23)
         Me.FileToolStripMenuItem.Text = "File"
@@ -86,16 +91,23 @@ Partial Class Uni_FileSkimmer
         '
         'OptionsToolStripMenuItem
         '
-        Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PropertyPaneToolStripMenuItem})
+        Me.OptionsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.JobBarToolStripMenuItem, Me.PropertyPaneToolStripMenuItem})
         Me.OptionsToolStripMenuItem.Name = "OptionsToolStripMenuItem"
         Me.OptionsToolStripMenuItem.Size = New System.Drawing.Size(70, 23)
         Me.OptionsToolStripMenuItem.Text = "Options"
         '
+        'JobBarToolStripMenuItem
+        '
+        Me.JobBarToolStripMenuItem.CheckOnClick = True
+        Me.JobBarToolStripMenuItem.Name = "JobBarToolStripMenuItem"
+        Me.JobBarToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.JobBarToolStripMenuItem.Text = "JobBar"
+        '
         'PropertyPaneToolStripMenuItem
         '
         Me.PropertyPaneToolStripMenuItem.CheckOnClick = True
         Me.PropertyPaneToolStripMenuItem.Name = "PropertyPaneToolStripMenuItem"
-        Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(165, 24)
+        Me.PropertyPaneToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
         Me.PropertyPaneToolStripMenuItem.Text = "Property Pane"
         '
         'AboutToolStripMenuItem
@@ -104,21 +116,22 @@ Partial Class Uni_FileSkimmer
         Me.AboutToolStripMenuItem.Size = New System.Drawing.Size(59, 23)
         Me.AboutToolStripMenuItem.Text = "About"
         '
-        'pnl_Ribbon
+        'pnl_JobBar
         '
-        Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver
+        Me.pnl_JobBar.BackColor = System.Drawing.Color.Silver
-        Me.pnl_Ribbon.Controls.Add(Me.cmb_Layout)
+        Me.pnl_JobBar.Controls.Add(Me.cmb_Layout)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Properties)
+        Me.pnl_JobBar.Controls.Add(Me.Label1)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Rename)
+        Me.pnl_JobBar.Controls.Add(Me.Label2)
-        Me.pnl_Ribbon.Controls.Add(Me.Label1)
+        Me.pnl_JobBar.Controls.Add(Me.btn_CopyPath)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Delete)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Rename)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Compress)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Delete)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_NewFolder)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Compress)
-        Me.pnl_Ribbon.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl_JobBar.Controls.Add(Me.btn_NewFolder)
-        Me.pnl_Ribbon.Location = New System.Drawing.Point(0, 27)
+        Me.pnl_JobBar.Dock = System.Windows.Forms.DockStyle.Top
-        Me.pnl_Ribbon.Name = "pnl_Ribbon"
+        Me.pnl_JobBar.Location = New System.Drawing.Point(0, 27)
-        Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 70)
+        Me.pnl_JobBar.Name = "pnl_JobBar"
-        Me.pnl_Ribbon.TabIndex = 1
+        Me.pnl_JobBar.Size = New System.Drawing.Size(800, 70)
+        Me.pnl_JobBar.TabIndex = 1
         '
         'cmb_Layout
         '
@@ -126,96 +139,21 @@ Partial Class Uni_FileSkimmer
         Me.cmb_Layout.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.cmb_Layout.FormattingEnabled = True
         Me.cmb_Layout.Items.AddRange(New Object() {"Large Icons", "Small Icons", "List"})
-        Me.cmb_Layout.Location = New System.Drawing.Point(335, 38)
+        Me.cmb_Layout.Location = New System.Drawing.Point(369, 36)
         Me.cmb_Layout.Name = "cmb_Layout"
         Me.cmb_Layout.Size = New System.Drawing.Size(121, 26)
         Me.cmb_Layout.TabIndex = 1
         '
-        'btn_Properties
-        '
-        Me.btn_Properties.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_Properties.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.btn_Properties.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.btn_Properties.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btn_Properties.Location = New System.Drawing.Point(142, 34)
-        Me.btn_Properties.Name = "btn_Properties"
-        Me.btn_Properties.Size = New System.Drawing.Size(116, 35)
-        Me.btn_Properties.TabIndex = 0
-        Me.btn_Properties.Text = "Properties"
-        Me.btn_Properties.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btn_Properties.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
-        Me.btn_Properties.UseVisualStyleBackColor = True
-        '
-        'btn_Rename
-        '
-        Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.btn_Rename.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
-        Me.btn_Rename.Name = "btn_Rename"
-        Me.btn_Rename.Size = New System.Drawing.Size(116, 35)
-        Me.btn_Rename.TabIndex = 0
-        Me.btn_Rename.Text = "Rename"
-        Me.btn_Rename.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
-        Me.btn_Rename.UseVisualStyleBackColor = True
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.Label1.Location = New System.Drawing.Point(331, 10)
+        Me.Label1.Location = New System.Drawing.Point(365, 10)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(51, 19)
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "Layout"
         '
-        'btn_Delete
-        '
-        Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
-        Me.btn_Delete.Name = "btn_Delete"
-        Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
-        Me.btn_Delete.TabIndex = 0
-        Me.btn_Delete.Text = "Delete"
-        Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
-        Me.btn_Delete.UseVisualStyleBackColor = True
-        '
-        'btn_Compress
-        '
-        Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btn_Compress.Location = New System.Drawing.Point(257, 0)
-        Me.btn_Compress.Name = "btn_Compress"
-        Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
-        Me.btn_Compress.TabIndex = 0
-        Me.btn_Compress.Text = "Compress"
-        Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
-        Me.btn_Compress.UseVisualStyleBackColor = True
-        '
-        'btn_NewFolder
-        '
-        Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
-        Me.btn_NewFolder.Name = "btn_NewFolder"
-        Me.btn_NewFolder.Size = New System.Drawing.Size(72, 70)
-        Me.btn_NewFolder.TabIndex = 0
-        Me.btn_NewFolder.Text = "New Folder"
-        Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
-        Me.btn_NewFolder.UseVisualStyleBackColor = True
-        '
         'pnl_Properties
         '
         Me.pnl_Properties.BackColor = System.Drawing.Color.Gray
@@ -231,20 +169,11 @@ Partial Class Uni_FileSkimmer
         Me.pnl_Properties.TabIndex = 2
         Me.pnl_Properties.Visible = False
         '
-        'pic_Icon
-        '
-        Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
-        Me.pic_Icon.Name = "pic_Icon"
-        Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
-        Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
-        Me.pic_Icon.TabIndex = 2
-        Me.pic_Icon.TabStop = False
-        '
         'lbl_filesize
         '
         Me.lbl_filesize.AutoSize = True
         Me.lbl_filesize.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.lbl_filesize.Location = New System.Drawing.Point(8, 155)
+        Me.lbl_filesize.Location = New System.Drawing.Point(8, 181)
         Me.lbl_filesize.Name = "lbl_filesize"
         Me.lbl_filesize.Size = New System.Drawing.Size(26, 13)
         Me.lbl_filesize.TabIndex = 1
@@ -254,7 +183,7 @@ Partial Class Uni_FileSkimmer
         '
         Me.lbl_filetype.AutoSize = True
         Me.lbl_filetype.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.lbl_filetype.Location = New System.Drawing.Point(9, 139)
+        Me.lbl_filetype.Location = New System.Drawing.Point(9, 165)
         Me.lbl_filetype.Name = "lbl_filetype"
         Me.lbl_filetype.Size = New System.Drawing.Size(45, 13)
         Me.lbl_filetype.TabIndex = 1
@@ -262,13 +191,13 @@ Partial Class Uni_FileSkimmer
         '
         'lbl_filename
         '
-        Me.lbl_filename.AutoSize = True
         Me.lbl_filename.Font = New System.Drawing.Font("Segoe UI", 11.0!)
         Me.lbl_filename.Location = New System.Drawing.Point(7, 117)
         Me.lbl_filename.Name = "lbl_filename"
-        Me.lbl_filename.Size = New System.Drawing.Size(67, 20)
+        Me.lbl_filename.Size = New System.Drawing.Size(181, 44)
         Me.lbl_filename.TabIndex = 1
         Me.lbl_filename.Text = "filename"
+        Me.lbl_filename.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
         'lbl_Properties
         '
@@ -378,6 +307,115 @@ Partial Class Uni_FileSkimmer
         Me.iml_smallicons.Images.SetKeyName(7, "ico_sfp.png")
         Me.iml_smallicons.Images.SetKeyName(8, "ico_exe.png")
         '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Tahoma", 30.0!)
+        Me.Label2.ForeColor = System.Drawing.Color.Gray
+        Me.Label2.Location = New System.Drawing.Point(567, 35)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(247, 48)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "File Skimmer"
+        '
+        'pic_Icon
+        '
+        Me.pic_Icon.Location = New System.Drawing.Point(10, 42)
+        Me.pic_Icon.Name = "pic_Icon"
+        Me.pic_Icon.Size = New System.Drawing.Size(64, 64)
+        Me.pic_Icon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
+        Me.pic_Icon.TabIndex = 2
+        Me.pic_Icon.TabStop = False
+        '
+        'btn_CopyPath
+        '
+        Me.btn_CopyPath.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_CopyPath.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_CopyPath.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_CopyPath.Location = New System.Drawing.Point(213, 0)
+        Me.btn_CopyPath.Name = "btn_CopyPath"
+        Me.btn_CopyPath.Size = New System.Drawing.Size(72, 70)
+        Me.btn_CopyPath.TabIndex = 0
+        Me.btn_CopyPath.Text = "Copy path"
+        Me.btn_CopyPath.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_CopyPath.UseVisualStyleBackColor = True
+        '
+        'btn_Rename
+        '
+        Me.btn_Rename.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Rename.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Rename.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Rename.Location = New System.Drawing.Point(142, 0)
+        Me.btn_Rename.Name = "btn_Rename"
+        Me.btn_Rename.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Rename.TabIndex = 0
+        Me.btn_Rename.Text = "Rename"
+        Me.btn_Rename.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Rename.UseVisualStyleBackColor = True
+        '
+        'btn_Delete
+        '
+        Me.btn_Delete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Delete.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Delete.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Delete.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_Delete.Location = New System.Drawing.Point(71, 0)
+        Me.btn_Delete.Name = "btn_Delete"
+        Me.btn_Delete.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Delete.TabIndex = 0
+        Me.btn_Delete.Text = "Delete"
+        Me.btn_Delete.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_Delete.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Delete.UseVisualStyleBackColor = True
+        '
+        'btn_Compress
+        '
+        Me.btn_Compress.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Compress.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_Compress.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_Compress.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_Compress.Location = New System.Drawing.Point(284, 0)
+        Me.btn_Compress.Name = "btn_Compress"
+        Me.btn_Compress.Size = New System.Drawing.Size(72, 70)
+        Me.btn_Compress.TabIndex = 0
+        Me.btn_Compress.Text = "Compress"
+        Me.btn_Compress.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_Compress.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_Compress.UseVisualStyleBackColor = True
+        '
+        'btn_NewFolder
+        '
+        Me.btn_NewFolder.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_NewFolder.Font = New System.Drawing.Font("Segoe UI", 7.0!)
+        Me.btn_NewFolder.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
+        Me.btn_NewFolder.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btn_NewFolder.Location = New System.Drawing.Point(0, 0)
+        Me.btn_NewFolder.Name = "btn_NewFolder"
+        Me.btn_NewFolder.Size = New System.Drawing.Size(72, 70)
+        Me.btn_NewFolder.TabIndex = 0
+        Me.btn_NewFolder.Text = "New Folder"
+        Me.btn_NewFolder.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btn_NewFolder.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btn_NewFolder.UseVisualStyleBackColor = True
+        '
+        'DeleteToolStripMenuItem
+        '
+        Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
+        Me.DeleteToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.DeleteToolStripMenuItem.Text = "Delete"
+        '
+        'CompressToolStripMenuItem
+        '
+        Me.CompressToolStripMenuItem.Name = "CompressToolStripMenuItem"
+        Me.CompressToolStripMenuItem.Size = New System.Drawing.Size(180, 24)
+        Me.CompressToolStripMenuItem.Text = "Compress"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        '
         'Uni_FileSkimmer
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -387,7 +425,7 @@ Partial Class Uni_FileSkimmer
         Me.Controls.Add(Me.lsv_Content)
         Me.Controls.Add(Me.pnl_Properties)
         Me.Controls.Add(Me.pnl_AddressBar)
-        Me.Controls.Add(Me.pnl_Ribbon)
+        Me.Controls.Add(Me.pnl_JobBar)
         Me.Controls.Add(Me.msn_Options)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.MainMenuStrip = Me.msn_Options
@@ -397,13 +435,13 @@ Partial Class Uni_FileSkimmer
         Me.Text = "Uni_FileSkimmer"
         Me.msn_Options.ResumeLayout(False)
         Me.msn_Options.PerformLayout()
-        Me.pnl_Ribbon.ResumeLayout(False)
+        Me.pnl_JobBar.ResumeLayout(False)
-        Me.pnl_Ribbon.PerformLayout()
+        Me.pnl_JobBar.PerformLayout()
         Me.pnl_Properties.ResumeLayout(False)
         Me.pnl_Properties.PerformLayout()
-        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnl_AddressBar.ResumeLayout(False)
         Me.pnl_AddressBar.PerformLayout()
+        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -412,7 +450,7 @@ Partial Class Uni_FileSkimmer
     Friend WithEvents msn_Options As MenuStrip
     Friend WithEvents FileToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents AboutToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents pnl_Ribbon As Panel
+    Friend WithEvents pnl_JobBar As Panel
     Friend WithEvents pnl_Properties As Panel
     Friend WithEvents pnl_AddressBar As Panel
     Friend WithEvents lbl_Address As Label
@@ -432,9 +470,14 @@ Partial Class Uni_FileSkimmer
     Friend WithEvents btn_Refresh As Button
     Friend WithEvents btn_Delete As Button
     Friend WithEvents btn_Rename As Button
-    Friend WithEvents btn_Properties As Button
+    Friend WithEvents btn_CopyPath As Button
     Friend WithEvents btn_Compress As Button
     Friend WithEvents cmb_Layout As ComboBox
     Friend WithEvents Label1 As Label
     Friend WithEvents iml_smallicons As ImageList
+    Friend WithEvents JobBarToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Label2 As Label
+    Friend WithEvents CompressToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DeleteToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
 End Class

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.resx

@@ -128,7 +128,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACA
-        FwAAAk1TRnQBSQFMAgEBCQEAAVgBAAFYAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FwAAAk1TRnQBSQFMAgEBCQEAAagBAAGoAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
         AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
         AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@@ -239,7 +239,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC6
-        EgAAAk1TRnQBSQFMAgEBCQEAARABAAEQAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        EgAAAk1TRnQBSQFMAgEBCQEAAWABAAFgAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ShiftOS-TheRevival/MainForms/Applications/Universal/File Skimmer/Uni_FileSkimmer.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports System.IO.Compression
 
 Public Class Uni_FileSkimmer
     Public CurrentDir As String
@@ -7,8 +8,6 @@ Public Class Uni_FileSkimmer
 
     Private Sub Uni_FileSkimmer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         CheckAvailable()
-        'Sets icons for buttons in here, for some reason
-        btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
         'End thingy
         CurrentDir = Strings.OnceInfo(1)
         txt_AddressBar.Text = CurrentDir.Replace(Strings.OnceInfo(1), "!\")
@@ -17,8 +16,55 @@ Public Class Uni_FileSkimmer
     End Sub
 
     Private Sub CheckAvailable()
-        'btn_NewFolder.Text = "???"
+        If Strings.AvailableFeature(47) = 1 Then
-        'btn_NewFolder.Image = Nothing
+            btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_deletefile
+            DeleteToolStripMenuItem.Visible = True
+        Else
+            btn_Delete.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+            btn_Delete.Text = "???"
+            DeleteToolStripMenuItem.Visible = False
+        End If
+        If Strings.AvailableFeature(48) = 1 Then
+            btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+            CompressToolStripMenuItem.Visible = True
+        Else
+            btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+            btn_Compress.Text = "???"
+            CompressToolStripMenuItem.Visible = False
+        End If
+        If Strings.AvailableFeature(49) = 1 Then
+            PropertyPaneToolStripMenuItem.Checked = True
+            pnl_Properties.Visible = True
+        Else
+            PropertyPaneToolStripMenuItem.Checked = False
+            PropertyPaneToolStripMenuItem.Visible = False
+            pnl_Properties.Visible = False
+        End If
+        If Strings.AvailableFeature(50) = 1 Then
+            JobBarToolStripMenuItem.Checked = True
+            pnl_JobBar.Visible = True
+        Else
+            JobBarToolStripMenuItem.Checked = False
+            JobBarToolStripMenuItem.Visible = False
+            pnl_JobBar.Visible = False
+        End If
+        'Sets icons for buttons in here, for some reason
+        btn_NewFolder.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_NewFolder.Text = "???"
+        btn_Rename.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_Rename.Text = "???"
+        btn_CopyPath.Image = My.Resources.FileSkimmerFunctionIcons.largeico_unknown
+        btn_CopyPath.Text = "???"
+        If Strings.AvailableFeature(51) = 1 Then
+        Else
+            cmb_Layout.Items.Remove("Small Icons")
+        End If
+        If Strings.AvailableFeature(52) = 1 Then
+        Else
+            cmb_Layout.Items.Remove("List")
+        End If
+        btn_Up.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_up1
+        btn_Refresh.BackgroundImage = My.Resources.FileSkimmerFunctionIcons.ico_refresh
     End Sub
 
     Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click
@@ -29,10 +75,40 @@ Public Class Uni_FileSkimmer
         End If
     End Sub
 
+    Private Sub JobBarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JobBarToolStripMenuItem.Click
+        If JobBarToolStripMenuItem.CheckState = False Then
+            pnl_JobBar.Visible = False
+        Else
+            pnl_JobBar.Visible = True
+        End If
+    End Sub
+
+    Private Sub CompressToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CompressToolStripMenuItem.Click
+        If Strings.AvailableFeature(48) = 1 Then
+            FS_Compression()
+        End If
+    End Sub
+
+    Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
+        FS_Delete()
+    End Sub
+
     Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click
         Dispose()
     End Sub
 
+    Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
+        FS_Delete()
+    End Sub
+
+    Private Sub btn_Compress_Click(sender As Object, e As EventArgs) Handles btn_Compress.Click
+        If Strings.AvailableFeature(48) = 1 Then
+            FS_Compression()
+        Else
+
+        End If
+    End Sub
+
     Private Sub cmb_Layout_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmb_Layout.SelectedIndexChanged
         Select Case cmb_Layout.SelectedItem.ToString
             Case "Large Icons"
@@ -108,6 +184,10 @@ Public Class Uni_FileSkimmer
                         ShowContent()
                     End If
                 End If
+            Else
+                txt_AddressBar.Text = "!\"
+                CurrentDir = Strings.OnceInfo(1)
+                ShowContent()
             End If
         End If
     End Sub
@@ -123,6 +203,10 @@ Public Class Uni_FileSkimmer
     Private Sub lsv_Content_MouseClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseClick
         Select Case e.Button
             Case MouseButtons.Left
+                Dim IsCompressed As Boolean = False
+                If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+                    IsCompressed = True
+                End If
                 If pnl_Properties.Visible = True Then
                     Dim IsFile As Boolean = False
                     If lsv_Content.SelectedItems(0).Text = Nothing Then
@@ -137,6 +221,9 @@ Public Class Uni_FileSkimmer
                             pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
                             lbl_filetype.Text = "Text File"
                             IsFile = True
+                        ElseIf lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+                            lbl_filetype.Text = "Compressed ZIP File"
+                            IsFile = True
                         ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
                             pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_unknown
                             lbl_filetype.Text = "Unknown File Type"
@@ -171,6 +258,17 @@ Public Class Uni_FileSkimmer
                         lbl_filename.Text = lsv_Content.SelectedItems(0).Text
                     End If
                 End If
+                If Strings.AvailableFeature(48) = 1 Then
+                    If IsCompressed = True Then
+                        btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_uncompress
+                        btn_Compress.Text = "Extract"
+                        CompressToolStripMenuItem.Text = "Extract"
+                    Else
+                        btn_Compress.Image = My.Resources.FileSkimmerFunctionIcons.largeico_compress
+                        btn_Compress.Text = "Compress"
+                        CompressToolStripMenuItem.Text = "Compress"
+                    End If
+                End If
         End Select
     End Sub
 
@@ -207,16 +305,22 @@ Public Class Uni_FileSkimmer
 
         For Each Folder In Folders
             Dim FolderName As String = Folder.Name
+            If Strings.AvailableFeature(45) = 1 Then
                 lsv_Content.Items.Add(FolderName, 0)
+            Else
+                lsv_Content.Items.Add("???", 2)
+            End If
         Next
 
         For Each File In Files
             Dim filename As String = File.Name
             Dim fileex As String = File.Extension
-
             FileType = GetFileType(fileex)(0)
-
+            If Strings.AvailableFeature(46) = 1 Then
                 lsv_Content.Items.Add(filename, FileType)
+            Else
+                lsv_Content.Items.Add("???", 2)
+            End If
         Next
     End Sub
 
@@ -299,7 +403,53 @@ Public Class Uni_FileSkimmer
         End If
     End Function
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
+    Private Sub FS_Compression()
-        DeleteFile(CurrentDir & lsv_Content.SelectedItems(0).Text)
+        Dim NothingIn As Boolean = True
+        Dim ZipRandomInt As Integer
+        Dim ZipRandom As New Random
+        Dim UnzipRandomInt As Integer
+        Dim UnzipRandom As New Random
+        If lsv_Content.SelectedItems(0).Text Like "*.zip" Then
+            UnzipRandomInt = UnzipRandom.Next(1, 1000000)
+            Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+            ZipFile.ExtractToDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt)
+            Directory.CreateDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace(".zip", ""))
+            CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text.Replace("zip", ""))
+            Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\UNZIP" & UnzipRandomInt, True)
+        ElseIf lsv_Content.SelectedItems(0).Text Like "*.*" Then
+            ZipRandomInt = ZipRandom.Next(1, 1000000)
+            Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt)
+            File.Copy(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt & "\" & lsv_Content.SelectedItems(0).Text)
+            Dim Numbering As String = lsv_Content.SelectedItems(0).Text.Length
+            Dim TheNaming As String = lsv_Content.SelectedItems(0).Text.Substring(0, Numbering - 3) & "zip"
+            ZipFile.CreateFromDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, CurrentDir & "\" & TheNaming)
+            Directory.Delete(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\SysShiftFS\ZIP" & ZipRandomInt, True)
+            NothingIn = False
+        ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+            If Directory.Exists(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text) = True Then
+                ZipFile.CreateFromDirectory(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text, CurrentDir & "\" & lsv_Content.SelectedItems(0).Text & ".zip")
+                NothingIn = False
+            Else
+
+            End If
+        End If
+        ShowContent()
+    End Sub
+
+    Private Sub FS_Delete()
+        If Strings.AvailableFeature(47) = 0 Then
+
+        Else
+            Try
+                If lsv_Content.SelectedItems(0).Text Like "*.*" Then
+                    File.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+                ElseIf lsv_Content.SelectedItems(0).Text Like "*" Then
+                    Directory.Delete(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
+                End If
+                ShowContent()
+            Catch ex As Exception
+
+            End Try
+        End If
     End Sub
 End Class

ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj

@@ -396,6 +396,11 @@
     <Content Include="MainForms\Applications\Universal\Knowledge Input\Contents\US_States.txt" />
     <Content Include="MainForms\rev.txt" />
     <None Include="Resources\ico_up1.png" />
+    <None Include="Resources\ico_refresh.png" />
+    <None Include="Resources\ico_deletefile.png" />
+    <None Include="Resources\largeico_compress.png" />
+    <None Include="Resources\largeico_uncompress.png" />
+    <None Include="Resources\largeico_rename.png" />
     <Content Include="Resources\man Manuals\zip.txt" />
     <Content Include="Resources\man Manuals\textpad.txt" />
     <Content Include="Resources\Fortunes.txt" />