navigatable and proprtieable File Skimmer

2025-01-22 03:11:48 -05:00 · 2022-11-28 08:15:19 +07:00 · 2022-11-28 08:15:19 +07:00 · 22502171c2
commit 22502171c2
parent 23547b2d87
4 changed files with 264 additions and 37 deletions
--- a/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
+++ b/ShiftOS-TheRevival/Functions/InGame/ROMs/Strings.vb
@ -147,4 +147,11 @@
    '>>>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)
 End Class
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -24,7 +24,7 @@ Partial Class Uni_FileSkimmer
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Uni_FileSkimmer))
-        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0)
+        Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("test", 0)
        Me.msn_Options = New System.Windows.Forms.MenuStrip()
        Me.FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -32,8 +32,12 @@ Partial Class Uni_FileSkimmer
        Me.PropertyPaneToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl_Ribbon = New System.Windows.Forms.Panel()
-        Me.Button1 = New System.Windows.Forms.Button()
+        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()
@ -48,6 +52,7 @@ Partial Class Uni_FileSkimmer
        Me.txt_AddressBar = New System.Windows.Forms.TextBox()
        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.msn_Options.SuspendLayout()
        Me.pnl_Ribbon.SuspendLayout()
        Me.pnl_Properties.SuspendLayout()
@ -102,29 +107,69 @@ Partial Class Uni_FileSkimmer
        'pnl_Ribbon
        '
        Me.pnl_Ribbon.BackColor = System.Drawing.Color.Silver
-        Me.pnl_Ribbon.Controls.Add(Me.Button1)
+        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, 69)
+        Me.pnl_Ribbon.Size = New System.Drawing.Size(800, 70)
        Me.pnl_Ribbon.TabIndex = 1
        '
-        'Button1
+        'cmb_Layout
        '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Font = New System.Drawing.Font("Segoe UI", 7.0!)
-        Me.Button1.Image = Global.ShiftOS_TheRevival.My.Resources.Resources.ico_folder
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(142, 0)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(116, 26)
-        Me.Button1.TabIndex = 0
-        Me.Button1.Text = "Rename"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.cmb_Layout.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
+        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.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.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(51, 19)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Layout"
        '
        'btn_Delete
        '
@ -134,13 +179,28 @@ Partial Class Uni_FileSkimmer
        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, 69)
+        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
@ -149,7 +209,7 @@ Partial Class Uni_FileSkimmer
        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, 69)
+        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
@ -165,9 +225,9 @@ Partial Class Uni_FileSkimmer
        Me.pnl_Properties.Controls.Add(Me.lbl_filename)
        Me.pnl_Properties.Controls.Add(Me.lbl_Properties)
        Me.pnl_Properties.Dock = System.Windows.Forms.DockStyle.Right
-        Me.pnl_Properties.Location = New System.Drawing.Point(600, 132)
+        Me.pnl_Properties.Location = New System.Drawing.Point(600, 133)
        Me.pnl_Properties.Name = "pnl_Properties"
-        Me.pnl_Properties.Size = New System.Drawing.Size(200, 318)
+        Me.pnl_Properties.Size = New System.Drawing.Size(200, 317)
        Me.pnl_Properties.TabIndex = 2
        Me.pnl_Properties.Visible = False
        '
@ -241,7 +301,7 @@ Partial Class Uni_FileSkimmer
        Me.pnl_AddressBar.Controls.Add(Me.txt_AddressBar)
        Me.pnl_AddressBar.Controls.Add(Me.lbl_Address)
        Me.pnl_AddressBar.Dock = System.Windows.Forms.DockStyle.Top
-        Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 96)
+        Me.pnl_AddressBar.Location = New System.Drawing.Point(0, 97)
        Me.pnl_AddressBar.Name = "pnl_AddressBar"
        Me.pnl_AddressBar.Size = New System.Drawing.Size(800, 36)
        Me.pnl_AddressBar.TabIndex = 4
@ -293,16 +353,31 @@ Partial Class Uni_FileSkimmer
        Me.lsv_Content.Dock = System.Windows.Forms.DockStyle.Fill
        Me.lsv_Content.Font = New System.Drawing.Font("Segoe UI", 8.0!)
        Me.lsv_Content.HideSelection = False
-        Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})
+        Me.lsv_Content.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem2})
        Me.lsv_Content.LargeImageList = Me.iml_icons
-        Me.lsv_Content.Location = New System.Drawing.Point(0, 132)
+        Me.lsv_Content.Location = New System.Drawing.Point(0, 133)
        Me.lsv_Content.MultiSelect = False
        Me.lsv_Content.Name = "lsv_Content"
-        Me.lsv_Content.Size = New System.Drawing.Size(600, 318)
+        Me.lsv_Content.Size = New System.Drawing.Size(600, 317)
+        Me.lsv_Content.SmallImageList = Me.iml_smallicons
        Me.lsv_Content.Sorting = System.Windows.Forms.SortOrder.Ascending
        Me.lsv_Content.TabIndex = 5
        Me.lsv_Content.UseCompatibleStateImageBehavior = False
        '
+        'iml_smallicons
+        '
+        Me.iml_smallicons.ImageStream = CType(resources.GetObject("iml_smallicons.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.iml_smallicons.TransparentColor = System.Drawing.Color.Transparent
+        Me.iml_smallicons.Images.SetKeyName(0, "ico_folder.bmp")
+        Me.iml_smallicons.Images.SetKeyName(1, "ico_textfile.bmp")
+        Me.iml_smallicons.Images.SetKeyName(2, "ico_unknown.bmp")
+        Me.iml_smallicons.Images.SetKeyName(3, "ico_picture.bmp")
+        Me.iml_smallicons.Images.SetKeyName(4, "ico_up.bmp")
+        Me.iml_smallicons.Images.SetKeyName(5, "ico_url.bmp")
+        Me.iml_smallicons.Images.SetKeyName(6, "ico_video.bmp")
+        Me.iml_smallicons.Images.SetKeyName(7, "ico_sfp.png")
+        Me.iml_smallicons.Images.SetKeyName(8, "ico_exe.png")
+        '
        'Uni_FileSkimmer
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -323,6 +398,7 @@ Partial Class Uni_FileSkimmer
        Me.msn_Options.ResumeLayout(False)
        Me.msn_Options.PerformLayout()
        Me.pnl_Ribbon.ResumeLayout(False)
+        Me.pnl_Ribbon.PerformLayout()
        Me.pnl_Properties.ResumeLayout(False)
        Me.pnl_Properties.PerformLayout()
        CType(Me.pic_Icon, System.ComponentModel.ISupportInitialize).EndInit()
@ -355,5 +431,10 @@ Partial Class Uni_FileSkimmer
    Friend WithEvents btn_Up As Button
    Friend WithEvents btn_Refresh As Button
    Friend WithEvents btn_Delete As Button
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btn_Rename As Button
+    Friend WithEvents btn_Properties 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
 End Class
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -128,7 +128,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACA
-        FwAAAk1TRnQBSQFMAgEBCQEAAUABAAFAAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FwAAAk1TRnQBSQFMAgEBCQEAAVgBAAFYAQABKgEAASoBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABqAMAAX4DAAEBAQABCAUAAbABUhgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
        AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
        AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@ -229,6 +229,96 @@
        AX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcDQABPAQAAX8EAAEcCgABfwL/AfwEAAF/BAABHAoA
        A/8B/AQAAX8EAAEcCQABAQP/AfwEAAF/BAABHwX/AwAF/wH8BAABfwQAAR8F/wMABf8B/AQAAX8EAAEf
        Bf8DAAX/AfwEAAF/BAABHwX/AwAL
+</value>
+  </data>
+  <metadata name="iml_smallicons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>250, 17</value>
+  </metadata>
+  <data name="iml_smallicons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC6
+        EgAAAk1TRnQBSQFMAgEBCQEAARABAAEQAQABGAEAARgBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        AwABYAMAAUgDAAEBAQABCAYAARsYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/8IAAfQV80oAAe8U/wEH
+        SgAB7xT/AQdKAAHvFP8BB0oAAe8U/wEHSgAB7xT/AQdKAAHvFP8BB0oAAe8U/wEHSgAB7xT/AQdKAAHv
+        FP8BB0oAAe8U/wEHSgAB7xT/AQcB70kAAe8U/wEHAfJJAAHvFP8BBwHySQAB7xT/AQcB8kkAAe8Q7AEU
+        AesBFAESAW0B8kkAAe8Q7AEQAW0BEAEVARIB8ksAAfMT/wHySwAB8xP/AfJLAAHzD+wBFAHsARQBbQES
+        SwAB8w/sARAB7AEQARIBFcUABQcBbQb/ARMBBwHsNAAY7wUABf8B7Ab/ARQCBx4AAe8WAAjsBm0I7AFt
+        BQAE/wFtAf8BvAX/ARQCBx4AAe8WAAjsARAE/wnsAW0FAAT/AQcB7AEUAf8BBwHsAf8BAAEUAgceAAHv
+        AQAQ/wUACOwBEAT/CewBbQUABP8BvAHwARQB/wEHAewB/wEAAeoB9AEHBQAW/wEHAgAB7wEAEP8FAAjs
+        ARAE/wnsAW0FAAb/ARQB/wJtAewBBwL/AQcFABb/AQcCAAHvAQAQ/wUACOwBEAT/CewBbQUABv8BFAH/
+        AW0F/wEHBQAI/wEUAfEM/wEHAgAB7wEAEP8FAAjsARAE/wnsAW0FAAb/ARQB/wFtBf8BBwUACP8BFAEA
+        DP8BBwIAAe8BABD/BQAI7AEQBP8J7AFtBQAB/wXIARQB/wFtBf8BBwUACP8BFAEAAQ4L/wEHAgAB7wEA
+        EP8FAAjsARAE/wnsAW0FAAH/Ad0C1gH/Ad0B8QHsAd0F/wEHBQAI/wEUAwAB8Qn/AQcCAAHvAQAQ/wUA
+        COwBEAT/CewBbQUAAf8B1gL/Ad0B1gL/Ad0F/wEHBQAI/wEUBAAB8Qj/AQcCAAHvAQAQ/wUACOwBEAT/
+        CewBbQUAAf8B1gL/Ad0B/AL/Ad0F/wEHBQAI/wEUBQAI/wEHAgAB7wEAEP8FAAXsARQDBwT/AfEDBwEU
+        BOwBbQUAAf8B1gL/Ad0BGQHdAf8B3QX/AQcFAAj/ARQEAAFtCP8BBwIAAe8BABD/BQAG7AESCf8BEgXs
+        AW0FAAH/AdYC/wHdA/8B3QX/AQcFAAj/ARQDAAFtCf8BBwIAAe8BABDsBQAH7AEQAfMF/wHzARAG7AFt
+        BQAB/wHWAv8B3QP/Ad0F/wEHBQAI/wEUAgABFAr/AQcCAAHvFgAI7AEQBf8BEAfsAW0FAA7/AQcFAAj/
+        ARQBAAEUC/8BBwIAAe8WAAnsARID/wESCOwBbQUADv8BBwUACP8BFAFtDP8BBwIAAe8DAAHsB/8B9wIU
+        Af8HAArsARIB/wESCewBbQUADv8BBwUACP8B9w3/AQcCAAHvAwAB7Af/AewCAAH/BwAL7AEQCuwBbQUA
+        Dv8BBwUAFv8BBwIAAe8DAAHsB/8B7AIAAf8DAAESAwAW7AFtBQAO/wEHBQAW/wEHAgAB7wMAAewH/wHs
+        AgAB/wcACG0BDw7yBQAL/wEAAQcBbQESBAAY8gIAAe8DAAHsC/8HAAgUAfQTAAv/AQAB7QHsUgAL/wEA
+        AW2wAAHvEwcB7wMAAe8TBwHvGQAY7wIAAe8T/wHvAwAB7xP/Ae8BABjvAQAW7AFtAgAB7wL/AQcO9wL/
+        Ae8DAAHvE/8B7wIAFuwBbQEAFuwBbQIAAe8T/wHvAwAB7wj/AuwB8gj/Ae8CABbsAW0BABbsAW0CAAHv
+        Av8O8gHzAv8B7wMAAe8I/wLsAfII/wHvAgAW7AFtAQAW7AFtAgAB7wL/AfAOBwL/Ae8DAAHvCP8CBwH0
+        CP8B7wIAFOwB7wEHAe0BABbsAW0CAAHvE/8B7wMAAe8T/wHvAgAC9wGSDuwB7QEHA/8BBwEAFuwBbQIA
+        Ae8C/w7sAfcC/wHvAwAB7wj/Ae0B7AHyCP8B7wIABP8B9wzsA/8B8gH/AQcBABbsAW0CAAHvE/8B7wMA
+        Ae8I/wHtAewB8Aj/Ae8CAAj/AfMF8gHzAv8B8AL/AZIB/wEHAQAW7AFtAgAB7wL/AfAOBwL/Ae8DAAHv
+        CP8BBwHsAfcI/wHvAgAN/wEHAfAC/wH3AfAB/wHwAgcBABbsAW0CAAHvAv8O8gHzAv8B7wMAAe8I/wHy
+        AuwBvAf/Ae8CAA7/AZID/wH3Av8CBwEAFuwBbQIAAe8T/wHvAwAB7wn/AbwC7AEHBv8B7wIADv8B8gHs
+        Av8B9wL/AewBBwEAFuwBbQIAAe8C/wEHDvcC/wHvAwAB7wr/AbwC7AHvBf8B7wIAC/8B8gGSAfAB/wHy
+        Ae8E/wH0AQcBABbsAW0CAAHvE/8B7wMAAe8L/wHwAuwB8QT/Ae8CAA3/AfcD/wHyAe8D7AHtAQAW7AFt
+        AgAB7wL/DvcBBwL/Ae8DAAHvDP8BBwHsAZIE/wHvAgAJ/wHvAfMC/wHwAZIB/wHzBewBbQEAFuwBbQIA
+        Ae8T/wHvAwAB7wP/AfQB7wHsAfMF/wHyAuwE/wHvAgAK/wLsBP8G7AFtAQAW7AFtAgAB7wL/AfMO8gL/
+        Ae8DAAHvBP8C7AHwBf8B8ALsBP8B7wIAC/8B8gGSAv8B9wbsAW0BABbsAW0CAAHvAv8OBwHwAv8B7wMA
+        Ae8E/wEHAewB7QHzA/8B8wHtAewBBwT/Ae8CAAf/AgcB9wL/AfABBwH/B+wBbQEAFuwBbQIAAe8T/wHv
+        AwAB7wT/AfQB7QLsAbwB8gG8AuwB7QH0BP8B7wIACf8BBwTyAf8H7AFtAQAW7AFtAgAB7wL/AfcO7AL/
+        Ae8DAAHvBv8BkgXsAZIG/wHvAgAP/wfsAW0BAAhtAQ8O8gIAAe8T/wHvAwAB7wf/AfMD8gHzB/8B7wIA
+        EP8G7AFtAQAIFAH0EAAB7wL/DgcB8AL/Ae8DAAHvE/8B7wEAGO8aAAHvE/8B7wMAAe8T/wHvMwAB7xMA
+        Ae8DAAHvEwAB7xkAAUIBTQE+BwABPgMAASgDAAFgAwABSAMAAQEBAAEBBQABYAEDFgAD/wEAA/8JAAP/
+        CQABgAEAAQEJAAGAAQABAQkAAYABAAEBCQABgAEAAQEJAAGAAQABAQkAAYABAAEBCQABgAEAAQEJAAGA
+        AQABAQkAAYABAAEBCQABgAEAAQEJAAGAAQABAQkAAYALAAGACwABgAsAAYALAAGACwABgAsAAeALAAHg
+        CwAB4AsAAeALAAP/CQAD/wHwAQABDwb/AwAB8AEAAQ8D/wHAAQABAwMAAfABAAEPA/8BwAEAAQMDAAHw
+        AQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAED
+        AwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHA
+        AQABAwMAAfABAAEPAwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEP
+        AwABwAEAAQMDAAHwAQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABAwMAAfABAAEPAwABwAEAAQMDAAHw
+        AQABDwMAAcABAAEDAwAB8AEAAQ8DAAHAAQABBwMAAfABAAEPAwABwAEAAQ8BAAE/Af8B8AEAAR8J/wHw
+        AQABPwn/AfABAAF/Cf8BwAEAAQEBwAEAAQED/wMAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHA
+        AQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEB
+        AcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEA
+        AQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYA
+        AcABAAEBAcABAAEBBgABwAEAAQEBwAEAAQEGAAHAAQABAQHAAQABAQYAAcABAAEBAcABAAEBBgABwAEA
+        AQEBwAEAAQEEAAE/Af8BwAEAAQEBwAEAAQEDAAP/AcABAAEBAcABAAEBBv8BwAEAAQEBwAEAAQED/ws=
 </value>
  </data>
 </root>
--- a/ShiftOS-TheRevival/MainForms/Applications/Universal/File
+++ b/ShiftOS-TheRevival/MainForms/Applications/Universal/File
@ -17,8 +17,8 @@ Public Class Uni_FileSkimmer
    End Sub

    Private Sub CheckAvailable()
-        btn_NewFolder.Text = "???"
-        btn_NewFolder.Image = Nothing
+        'btn_NewFolder.Text = "???"
+        'btn_NewFolder.Image = Nothing
    End Sub

    Private Sub PropertyPaneToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PropertyPaneToolStripMenuItem.Click
@ -33,15 +33,36 @@ Public Class Uni_FileSkimmer
        Dispose()
    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"
+                lsv_Content.View = View.LargeIcon
+            Case "Small Icons"
+                lsv_Content.View = View.SmallIcon
+            Case "List"
+                lsv_Content.View = View.List
+        End Select
+    End Sub
+
+    Private Sub cmb_Layout_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cmb_Layout.DrawItem
+        e.DrawBackground()
+        If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
+            e.Graphics.FillRectangle(Brushes.Black, e.Bounds)
+        End If
+        Dim sf As New StringFormat
+        Using b As New SolidBrush(e.ForeColor)
+            e.Graphics.DrawString(cmb_Layout.GetItemText(cmb_Layout.Items(e.Index)), e.Font, b, e.Bounds, sf)
+        End Using
+        e.DrawFocusRectangle()
+    End Sub
+
    Private Sub btn_Up_Click(sender As Object, e As EventArgs) Handles btn_Up.Click
        Try
-            If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!\" Then
+            If txt_AddressBar.Text = "!\" Or txt_AddressBar.Text = "!" Then

            Else
                Dim directoryInfo As System.IO.DirectoryInfo
-                MsgBox(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\"))
                directoryInfo = System.IO.Directory.GetParent(CurrentDir.Replace("!\", Strings.OnceInfo(1) & "\"))
-                MsgBox(directoryInfo.FullName)

                'Dim endloop As Boolean = False
                'lbllocation.Text = lbllocation.Text.Substring(0, lbllocation.Text.Length - 1)
@ -60,7 +81,7 @@ Public Class Uni_FileSkimmer
                '    End Try
                'End While
                Dim DirFullName As String = directoryInfo.FullName
-                txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!\")
+                txt_AddressBar.Text = DirFullName.Replace(Strings.OnceInfo(1), "!")
                CurrentDir = DirFullName
                ShowContent()
            End If
@ -73,6 +94,24 @@ Public Class Uni_FileSkimmer
        ShowContent()
    End Sub

+    Private Sub txt_AddressBar_TextChanged(sender As Object, e As KeyEventArgs) Handles txt_AddressBar.KeyDown
+        If e.KeyCode = Keys.Enter Then
+            If txt_AddressBar.Text Like "!*" Then
+                Dim BackupCurrentDir As String = txt_AddressBar.Text
+                BackupCurrentDir = BackupCurrentDir.Replace("!", Strings.OnceInfo(1))
+                If BackupCurrentDir Like "*.*" Then
+
+                Else
+                    If Directory.Exists(BackupCurrentDir) = True Then
+                        txt_AddressBar.Text = BackupCurrentDir.Replace(Strings.OnceInfo(1), "!")
+                        CurrentDir = BackupCurrentDir
+                        ShowContent()
+                    End If
+                End If
+                End If
+        End If
+    End Sub
+
    Private Sub lsv_Content_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles lsv_Content.MouseDoubleClick
        If txt_AddressBar.Text Like "*\" Then
        Else
@ -87,16 +126,25 @@ Public Class Uni_FileSkimmer
                If pnl_Properties.Visible = True Then
                    Dim IsFile As Boolean = False
                    If lsv_Content.SelectedItems(0).Text = Nothing Then
-
+                        pic_Icon.Image = Nothing
+                        lbl_filename.Visible = False
+                        lbl_filetype.Visible = False
+                        lbl_filesize.Visible = False
                    Else
+                        lbl_filename.Visible = True
+                        lbl_filetype.Visible = True
                        If lsv_Content.SelectedItems(0).Text Like "*.txt" Then
                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_textfile
                            lbl_filetype.Text = "Text 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"
+                            IsFile = True
                        End If
                        If IsFile = True Then
-                            lbl_filesize.Visible = False
-                            Dim filinf As New IO.FileInfo(CurrentDir & lsv_Content.SelectedItems(0).Text)
+                            lbl_filesize.Visible = True
+                            Dim filinf As New IO.FileInfo(CurrentDir & "\" & lsv_Content.SelectedItems(0).Text)
                            Dim filsize As Long = filinf.Length / 1024
                            Dim thesize As Integer = 1
                            Do
@ -116,6 +164,7 @@ Public Class Uni_FileSkimmer
                                    lbl_filesize.Text = filsize & " GB"
                            End Select
                        Else
+                            pic_Icon.Image = My.Resources.FileSkimmerFileIcons.ico_folder
                            lbl_filetype.Text = "Folder"
                            lbl_filesize.Visible = False
                        End If
@ -250,7 +299,7 @@ Public Class Uni_FileSkimmer
        End If
    End Function

-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click, Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
        DeleteFile(CurrentDir & lsv_Content.SelectedItems(0).Text)
    End Sub
 End Class