Add files via upload

Revan654 · Jan 20, 2019 · 6825991 · 6825991
1 parent 520c473
commit 6825991
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 35 deletions.
diff --git a/General/Extras.vb b/General/Extras.vb
@@ -235,26 +235,4 @@ Public Class MKVInfo
             MsgInfo("No HDR Metadata Key was Found")
         End If
     End Sub
-End Class
-'Public Class UpdateStaxRip
-'    Shared Sub Update()
-'        If Not Package.Update.VerifyOK(True) Then Exit Sub
-
-'        Dim UpdateCode As String
-'        Dim Path = Folder.Startup + "Update" + ".bat"
-
-'        UpdateCode += "@echo OFF" + BR
-'        UpdateCode += "pushd %~dp0" + BR
-'        UpdateCode += "if exist ""%~dp0\Apps\Support\Update\update.ps1"" (" + BR
-'        UpdateCode += "set update_script=""Apps\Support\Update\update.ps1""" + BR
-'        UpdateCode += ") else (" + BR
-'        UpdateCode += "set update_script=""Apps\Support\Update\update.ps1""" + BR
-'        UpdateCode += ")" + BR
-'        UpdateCode += "powershell -noprofile -nologo -noexit -executionpolicy bypass -File %update_script%" + BR
-'        UpdateCode += "@exit"
-
-'        File.WriteAllText(Path, UpdateCode, Encoding.Default)
-'        g.DefaultCommands.ExecuteCommandLine(Path, False, False, False)
-
-'    End Sub
-'End Class
+End Class
diff --git a/General/GlobalClass.vb b/General/GlobalClass.vb
@@ -590,20 +590,13 @@ Public Class GlobalClass
                     '    p.TempDir = p.SourceFile.Dir + base + "_temp\"
                 End If
             Catch ex As Exception
+                Dim base = p.SourceFile.Base
+                If base.Length > 30 Then base = base.Shorten(15) + "..."
+                p.TempDir = p.SourceFile.Dir + base + "_temp\"
                 MsgInfo(ex.Message)
-                'Only 
-                'Previous Versions of Windows(Below Windows 10)                     
-                'Also well if the Harddrive is not NTFS
-                'Requires Shorter Paths.           
+                'Only Previous Versions of Windows(Below Windows 10) Can't Handle Long Paths and HDD Must be NTFS.
+                ' This Should catch Older OS's.
             End Try
-            'Else
-            '    Try
-            '        Dim base = p.SourceFile.Base
-            '        base = base.Shorten(15) + "..."
-            '        p.TempDir = p.SourceFile.Dir + base + "_temp\"
-            '    Catch ex As Exception
-            '    End Try
-            'End If
 
             'Source Code Running Windows 7 & 8.1, Just incase Code needs to reverted Back: