so far functional file skimmer

2025-01-22 03:11:48 -05:00 · 2022-12-03 07:10:41 +07:00 · 2022-12-03 07:10:41 +07:00 · 245fadfa72
commit 245fadfa72
parent 22502171c2
14 changed files with 480 additions and 144 deletions
--- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
+++ b/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)
-    '>>>File Skimmer (300 CP)
-    '>>>>FS Properties Pane (325 CP)
-    '>>>>FS Small Images Layout (350 CP)
-    '>>>>FS List Layout (350 CP)
-    '>>>>FS Delete (350 CP)
-    '>>>>FS ZIP support (400 CP)
+    '>>DuWM Advanced Read and Write support (DUWM_RW) (250 CP)
+    '>>>File Skimmer (FILESKIMMER) (300 CP)
+    '>>>>FS Folder Support (FS_FOLDER) (325 CP)
+    '>>>>>FS File Support (FS_FILE) (350 CP)
+    '>>>>>>FS Delete Support (FS_DELETE) (400 CP)
+    '>>>>>>FS ZIP Support (FS_ZIP) (500 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
--- a/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/StoreManager/Shiftoriums.vb
@ -150,7 +150,7 @@
                    End If
                End If
            End If
-                If Strings.AvailableFeature(37) = 0 Then
+            If Strings.AvailableFeature(37) = 0 Then
                NewLine("(knowledge | 275 CP) Knowledge Input")
            Else
                If Strings.AvailableFeature(38) = 0 Then
@ -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"
--- a/ShiftOS-TheRevival/Functions/OutGame/SaveLoadSystem.vb
+++ b/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()
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -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
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -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>
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -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_Ribbon.Controls.Add(Me.cmb_Layout)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Properties)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Rename)
-        Me.pnl_Ribbon.Controls.Add(Me.Label1)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Delete)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_Compress)
-        Me.pnl_Ribbon.Controls.Add(Me.btn_NewFolder)
-        Me.pnl_Ribbon.Dock = System.Windows.Forms.DockStyle.Top
-        Me.pnl_Ribbon.Location = New System.Drawing.Point(0, 27)
-        Me.pnl_Ribbon.Name = "pnl_Ribbon"
-        Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 70)
-        Me.pnl_Ribbon.TabIndex = 1
+        Me.pnl_JobBar.BackColor = System.Drawing.Color.Silver
+        Me.pnl_JobBar.Controls.Add(Me.cmb_Layout)
+        Me.pnl_JobBar.Controls.Add(Me.Label1)
+        Me.pnl_JobBar.Controls.Add(Me.Label2)
+        Me.pnl_JobBar.Controls.Add(Me.btn_CopyPath)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Rename)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Delete)
+        Me.pnl_JobBar.Controls.Add(Me.btn_Compress)
+        Me.pnl_JobBar.Controls.Add(Me.btn_NewFolder)
+        Me.pnl_JobBar.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnl_JobBar.Location = New System.Drawing.Point(0, 27)
+        Me.pnl_JobBar.Name = "pnl_JobBar"
+        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_Ribbon.PerformLayout()
+        Me.pnl_JobBar.ResumeLayout(False)
+        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
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -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
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -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 = "???"
-        'btn_NewFolder.Image = Nothing
+        If Strings.AvailableFeature(47) = 1 Then
+            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,7 +184,11 @@ Public Class Uni_FileSkimmer
                        ShowContent()
                    End If
                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
-            lsv_Content.Items.Add(FolderName, 0)
+            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)
-
-            lsv_Content.Items.Add(filename, FileType)
+            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
-        DeleteFile(CurrentDir & lsv_Content.SelectedItems(0).Text)
+    Private Sub FS_Compression()
+        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
--- a/ShiftOS-TheRevival/Resources/ico_deletefile.png
+++ b/ShiftOS-TheRevival/Resources/ico_deletefile.png
--- a/ShiftOS-TheRevival/Resources/ico_refresh.png
+++ b/ShiftOS-TheRevival/Resources/ico_refresh.png
--- a/ShiftOS-TheRevival/Resources/largeico_compress.png
+++ b/ShiftOS-TheRevival/Resources/largeico_compress.png
--- a/ShiftOS-TheRevival/Resources/largeico_rename.png
+++ b/ShiftOS-TheRevival/Resources/largeico_rename.png
--- a/ShiftOS-TheRevival/Resources/largeico_uncompress.png
+++ b/ShiftOS-TheRevival/Resources/largeico_uncompress.png
--- a/ShiftOS-TheRevival/ShiftOS-TheRevival.vbproj
+++ b/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" />