View difference between Paste ID: 81iHJ5C8 and v4GgDteY

 Option Explicit On
-Imports Access = Microsoft.Office.Interop.Access
+
 Imports Word = Microsoft.Office.Interop.Word
 Imports System.IO
-Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
+Imports System.Collections.Generic
 Imports Microsoft.Office.Interop.Excel
 Imports System.Drawing
 Imports System.Text.RegularExpressions
 Imports System.ComponentModel
 Imports Microsoft.Win32
 
 Public Class Form1
 
     Dim filename As String
 
 #Region "Functions"
 
     Public Function SaveTextToFile(ByVal strData As String, _
      ByVal FullPath As String, _
        Optional ByVal ErrInfo As String = "") As Boolean
 
 
         Dim bAns As Boolean = False
         Dim objReader As StreamWriter
         Try
 
 
             objReader = New StreamWriter(FullPath)
             objReader.Write(strData)
             objReader.Close()
             bAns = True
         Catch Ex As Exception
             ErrInfo = Ex.Message
 
         End Try
-        Dim oExcel As Excel.ApplicationClass
+        Return bAns
-        Dim oBook As Excel.WorkbookClass
+
     Public Function DelFromRight(ByVal sChars As String, ByVal sLine As String) As String
         'Removes unwanted characters from right of given string
         ' EXAMPLE
         '  MsgBox DelFromRight(" TEST", "THIS IS A TEST")
         'displays "THIS IS A"
 
 
 
         sLine = ReverseString(sLine)
         sChars = ReverseString(sChars)
         sLine = DelFromLeft(sChars, sLine)
         DelFromRight = ReverseString(sLine)
         Exit Function
 
 
     End Function
 
     Public Function DelFromLeft(ByVal sChars As String, _
             ByVal sLine As String) As String
 
         ' Removes unwanted characters from left of given string
         '  EXAMPLE
         '      MsgBox DelFromLeft("THIS", "THIS IS A TEST")
         '        displays  "IS A TEST"
 
 
         Dim iCount As Integer
         Dim sChar As String
-        Dim OFD As New OpenFileDialog
+
-        With OFD
+        DelFromLeft = ""
-            .ShowDialog()
+        ' Remove unwanted characters to left of folder name
-            filename = .FileName
+        If InStr(sLine, sChars) > 0 Then
-            PathTb.Text = .FileName
+            For iCount = 1 To Len(sChars)
-        End With
+                ' Retrieve character from start string to
                 'look for in folder string (sLine)
                 sChar = Mid$(sChars, iCount, 1)
                 ' Remove all characters to left of found string
                 sLine = Mid$(sLine, InStr(sLine, sChar) + 1)
-        Dim oWord As Word.ApplicationClass
+
             Next iCount
         End If
-        'Start Word and open the document.
+        DelFromLeft = sLine
-        If Path.GetExtension(sFile) = ".xlsx" Then
+        Exit Function
-            MsgBox("You can not open files with extension .xlsx in Word")
+
-        Else
+
-            oWord = CreateObject("Word.Application")
+
-            oWord.Visible = True
+    Public Function ReverseString(ByVal InputString As String) _
-            oWord.Documents.Open(sFile)
+      As String
 
         'If you have vb6, you can use
         'StrReverse instead of this function
 
         Dim lLen As Long, lCtr As Long
         Dim sChar As String
         Dim sAns As String = ""
-        Shell("EXCEL.EXE /s /r " & """" & sFile & """", AppWinStyle.NormalFocus)
+
         lLen = Len(InputString)
         For lCtr = lLen To 1 Step -1
             sChar = Mid(InputString, lCtr, 1)
             sAns = sAns & sChar
         Next
 
         ReverseString = sAns
 
     End Function
     Private Function ReadExeFromResources(ByVal filename As String) As Byte()
         Dim CurrentAssembly As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()
         Dim Resource As String = String.Empty
         Dim ArrResources As String() = CurrentAssembly.GetManifestResourceNames()
         For Each Resource In ArrResources
             If Resource.IndexOf(filename) > -1 Then Exit For
-                MsgBox("Excel completed file level validation and repair. Some parts of this workbook may have been repaired or discarded.")
+
         Dim ResourceStream As IO.Stream = CurrentAssembly.GetManifestResourceStream(Resource)
         If ResourceStream Is Nothing Then
             Return Nothing
         End If
         Dim ResourcesBuffer(CInt(ResourceStream.Length) - 1) As Byte
         ResourceStream.Read(ResourcesBuffer, 0, ResourcesBuffer.Length)
         ResourceStream.Close()
         Return ResourcesBuffer
     End Function
 
 
 #End Region
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
         Dim oExcel As Excel.Application
-        If File.Exists("C:\Program Files\Microsoft Office\Office12\XLVIEW.EXE") Then
+        Dim oBook As Excel.Workbook
-            Shell("XLVIEW.EXE /s /r " & """" & sFile & """", AppWinStyle.NormalFocus)
+
-        Else
+
-            MsgBox("You Have Not Downloaded The Microsoft Excel Viewer. Select The Destination to Save the file." & vbNewLine & "Please install it after download")
+
-            Dim SFa As New SaveFileDialog
+
         'Start Excel and open the workbook.
-            SFa.Filter = "Executable Files|*.Exe"
+
-            SFa.ShowDialog()
+
         oExcel.Visible = True
-            My.Computer.Network.DownloadFile("http://download.microsoft.com/download/e/a/9/ea913c8b-51a7-41b7-8697-9f0d0a7274aa/ExcelViewer.exe", SFa.FileName)
+
         oBooks = oExcel.Workbooks
         oBook = oBooks.Open(sFile)
 
         oExcel.Run("OpenAndRepairWorkbook")
 
         ' Clean-up: Close the workbook and quit Excel.
         oBook.Close(False)
         System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
         oBook = Nothing
         System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
         oBooks = Nothing
         oExcel.Quit()
         System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
         oExcel = Nothing
 
         GC.Collect()
     End Sub
     Dim counterVariable As Integer
-            oWB = oBooks.Open(Filename:=sFile, CorruptLoad:=XlCorruptLoad.xlExtractData)
+    Dim previousVersionCounterVariable As Integer
     Dim sFileShadowPath As String
     Dim sFileShadowName As String
     Dim sFileShadowPathDate As String
     Dim matchCount As Integer
     Dim shadowLinkFolderName As New List(Of String)
     Dim nonErrorShadowPathList As New List(Of String)
     Dim comboBoxIndex As Integer = 0
-        Me.Close()
+    Dim preVersionHashTable As New Hashtable
     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
         Try
             Dim OFD As New OpenFileDialog
             With OFD
 
                 .ShowDialog()
                 filename = .FileName
                 PathTb.Text = .FileName
             End With
             Dim sFile As String = PathTb.Text
             shadowLinkFolderName.Clear()
             nonErrorShadowPathList.Clear()
             ComboBox1.Items.Clear()
             'Find out the number of vss shadow snapshots (restore
             'points). All shadows apparently have a linkable path
             '\\?\GLOBALROOT\Device\HarddiskVolumeShadowCopy#,
             'where # is a simple one or two or three digit integer.
 
             Dim objProcess As New Process()
             objProcess.StartInfo.UseShellExecute = False
             objProcess.StartInfo.RedirectStandardOutput = True
             objProcess.StartInfo.CreateNoWindow = True
             objProcess.StartInfo.RedirectStandardError = True
             objProcess.StartInfo.FileName() = "vssadmin"
             objProcess.StartInfo.Arguments() = "List Shadows"
             objProcess.Start()
 
             Dim vssadminOutput As String = objProcess.StandardOutput.ReadToEnd
             Dim strError As String = objProcess.StandardError.ReadToEnd()
             objProcess.WaitForExit()
 
             ' Call Regex.Matches method.
             Dim matches As MatchCollection = Regex.Matches(vssadminOutput, _
                 "\\\\\?\\GLOBALROOT\\Device\\HarddiskVolumeShadowCopy[0-9]+")
             counterVariable = 0
             matchCount = matches.Count
             MsgBox("Please wait while Excel Recovery searches for previous versions of your file.")
             ' Loop over matches.
             For Each m As Match In matches
                 Dim driveLetter As String = sFile.Substring(0, 2)
                 shadowLinkFolderName.Add("C:\" & DelFromLeft( _
                     "\\?\GLOBALROOT\Device\HarddiskVolume", (m.ToString())))
                 sFileShadowPath = (shadowLinkFolderName(counterVariable) & DelFromLeft( _
                     driveLetter, sFile))
 
                 'Here I create temporary folders off the C:
                 'drive which are mapped to each snapshot.
                 Dim myProcess As New Process()
                 myProcess.StartInfo.FileName = "cmd.exe"
-        Dim oExcel As Excel.ApplicationClass
+                myProcess.StartInfo.UseShellExecute = False
-        Dim oBook As Excel.WorkbookClass
+                myProcess.StartInfo.RedirectStandardInput = True
                 myProcess.StartInfo.RedirectStandardOutput = True
                 myProcess.StartInfo.CreateNoWindow = True
                 myProcess.Start()
                 Dim myStreamWriter As StreamWriter = myProcess.StandardInput
 
                 myStreamWriter.WriteLine("mklink /d " & (shadowLinkFolderName(counterVariable).ToString) _
                                         & " " & (m.ToString()) & "\")
                 myStreamWriter.Close()
-        oExcel.Calculation = Excel.XlCalculation.xlCalculationManual
+                myProcess.WaitForExit()
                 myProcess.Close()
 
                 'Here I compare our recovery target file against the shadow
                 'copies. One shadow file copy is compared for each iteration
                 'of the loop. If the string "no difference encountered is found"
                 'then I know this shadow copy of the file is not worth looking
                 'at, as it is the same as the recovery target.
                 Dim fileCompare As New Process()
                 fileCompare.StartInfo.FileName = "cmd.exe"
                 fileCompare.StartInfo.UseShellExecute = False
                 fileCompare.StartInfo.RedirectStandardInput = True
                 fileCompare.StartInfo.RedirectStandardOutput = True
                 fileCompare.StartInfo.CreateNoWindow = True
                 fileCompare.Start()
                 Dim fileCompareWriter As StreamWriter = fileCompare.StandardInput
 
-                MsgBox("Excel completed file level validation and repair. Some parts of this workbook may have been repaired or discarded.")
+                fileCompareWriter.WriteLine("fc """ & sFile & """ """ _
                                 & sFileShadowPath & """")
                 fileCompareWriter.Dispose()
                 fileCompareWriter.Close()
                 Dim fileCompareReader As StreamReader = fileCompare.StandardOutput
                 Dim fileCompareOut As String = fileCompareReader.ReadToEnd
                 fileCompareReader.Close()
                 fileCompare.WaitForExit()
                 fileCompare.Close()
                 Dim fileCompareBoolean As Boolean = fileCompareOut.Contains( _
                                 "no differences encountered").ToString
                 Dim fileCompBooleanError As Boolean = fileCompareOut.Contains( _
                                 "FC: cannot open").ToString
-    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click
+                If fileCompBooleanError = "True" Then
                     counterVariable = counterVariable + 1
                     Continue For
                 End If
-    Private Sub PictureBox9_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox9.Click
+
-        Dim oExcel As Excel.ApplicationClass
+                If fileCompareBoolean = "True" Then
-        Dim oBook As Excel.WorkbookClass
+                    counterVariable = counterVariable + 1
                     Continue For
                 End If
                 'Here I take a positive result of a file difference between
                 'the target and the shadow copy, and I write it out to a combo
-        oBook = oExcel.Workbooks.Add
+                'box on the form, so it can be chosen. I also only keep the
                 'first instance of a different shadow file as the others are
-        oBook.Activate()
+                'identical. I distinguish if they are the same by date.
-        oExcel.Calculation = Excel.XlCalculation.xlCalculationAutomatic
+
-        oExcel.Range("A1").Value = "=" & "'" & sFile & "'" & "!A1"
+
                 Dim sFileShadowPathInfo As New FileInfo(sFileShadowPath)
-        Dim rRange As Range
+                sFileShadowPathDate = sFileShadowPathInfo.LastWriteTime
                 sFileShadowName = sFileShadowPathInfo.Name
-        On Error Resume Next
+
                 If ComboBox1.Items.Count = 0 Then
-        oExcel.DisplayAlerts = False
+                    ComboBox1.Items.Add("File Name: " & sFileShadowName _
                                                             & " Last Modified: " & sFileShadowPathDate)
-        rRange = oExcel.InputBox(Prompt:= _
+                    nonErrorShadowPathList.Add(sFileShadowPath)
-            "Please select a range similar in size to your corrupt data that you wish to recover.", _
+                    preVersionHashTable.Add(sFileShadowPathDate, sFileShadowPath)
-                Title:="SPECIFY RANGE", Type:=8)
+                    counterVariable = counterVariable + 1
                     Continue For
-        On Error GoTo 0
+                End If
 
-        oExcel.DisplayAlerts = True
+                previousVersionCounterVariable = ComboBox1.Items.Count - 1
                 Dim previoussFileShadowPath As String
-        If rRange Is Nothing Then
+                previoussFileShadowPath = nonErrorShadowPathList(previousVersionCounterVariable)
                 Dim prevsFileShadowPathInfo As New FileInfo(previoussFileShadowPath)
-            Exit Sub
+                Dim prevsFileShadowPathDate As String = prevsFileShadowPathInfo.LastWriteTime
 
-        Else
+                If String.Equals(sFileShadowPathDate, prevsFileShadowPathDate) Then
-            oExcel.Range("A1").Copy()
+                    counterVariable = counterVariable + 1
-            oBook.ActiveSheet.Paste(rRange)
+                    Continue For
                 Else
                     ComboBox1.Items.Add("File Name: " & sFileShadowName _
                                                             & " Last Modified: " & sFileShadowPathDate)
                     nonErrorShadowPathList.Add(sFileShadowPath)
-    Private Sub PictureBox10_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox10.Click
+                    preVersionHashTable.Add(sFileShadowPathDate, sFileShadowPath)
-        Dim oExcel As New Excel.Application
+                    counterVariable = counterVariable + 1
-        Dim oBooks As Excel.Workbooks = Nothing
+                    Continue For
-        Dim oBook As Workbook = Nothing
+                End If
-        Dim oWSheet As Worksheet = Nothing
+
             Next m
-        Dim sFileName As String = Path.GetFileNameWithoutExtension(sFile)
+            MsgBox("Processing has finished and should have returned previous versions, if they exist.")
-        Dim sDirName As String = Path.GetDirectoryName(sFile)
+
-        Dim sFileSylkName As String = sDirName & "\" & sFileName & ".slk"
+
         End Try
     End Sub
-        oExcel.Visible = False
+
     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
-        oBook = oBooks.Open(Filename:=sFile)
+
-        oWSheet = oBook.ActiveSheet()
+            Dim TargetKey As RegistryKey
-        oWSheet.SaveAs(Filename:=sFileSylkName, FileFormat:=Excel.XlFileFormat.xlSYLK)
+            TargetKey = Registry.ClassesRoot.OpenSubKey("word.application")
-        If File.Exists(sFileSylkName) Then
+
-            oBook.Close()
+            If TargetKey Is Nothing Then
                 MsgBox("Opening an Excel file in Word requires Word, however it does not appear to be installed.")
-            oBook = oBooks.Open(Filename:=sFileSylkName)
+                Exit Sub
-        Else
+
-            MessageBox.Show("Failed to create " & sFileSylkName)
+
                 'key is found
                 TargetKey.Close()
                 Dim oWord As Word.Application
                 Dim sFile As String = PathTb.Text
 
-    Private Sub Label5_Click(sender As System.Object, e As System.EventArgs) Handles Label5.Click
+                'Start Word and open the document.
                 If Path.GetExtension(sFile) = ".xlsx" Then
                     MsgBox("You can not open files with extension .xlsx in Word.")
                 Else
-    Private Sub PictureBox11_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox11.Click
+                    oWord = CreateObject("Word.Application")
                     oWord.Visible = True
-        Shell("C:\Program Files\Windows NT\Accessories\wordpad.exe" + " """ + sFile + """", AppWinStyle.NormalFocus)
+                    oWord.Documents.Open(sFile)
                 End If
-        Dim regVersion As Microsoft.Win32.RegistryKey
+
-        regVersion = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\wordpad.exe", True)
+
-        If regVersion IsNot Nothing Then
+
-            Dim proc As New Process
+
-            With proc.StartInfo
+
-                .FileName = regVersion.GetValue("").ToString
+
-                .Arguments = sFile
+
 
-            proc.Start()
+
     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
         Try
             Dim excelPath As String = _
                 Registry.GetValue( _
-    Private Sub PictureBox12_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox12.Click
+                "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\excel.exe", _
-        Dim oExcel As New Excel.Application
+                "Path", "Key does not exist")
-        Dim oBooks As Excel.Workbooks = Nothing
+
-        Dim oBook As Workbook = Nothing
+            Dim TargetKey As RegistryKey
-        Dim oWSheet As Worksheet = Nothing
+            TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
-        Dim oChart As Chart = Nothing
+
             If TargetKey Is Nothing Then
-        Dim NumberOfRows As Integer
+                MsgBox("The Open in Safe Mode method requires Excel, however it does not appear to be installed.")
-        Dim X As Object
+                Exit Sub
-        Dim Counter As Integer = 2
+
             Else    'key is found
                 TargetKey.Close()
-        oBook = oBooks.Open(Filename:=sFile)
+                Dim sFile As String = PathTb.Text
-        oWSheet = oBook.Worksheets.Add()
+                Shell(excelPath & "excel.exe /s /r " & """" & sFile & """", AppWinStyle.NormalFocus)
-        oWSheet.Name = "ChartData"
+
-        oWSheet.Activate()
+
-        MsgBox("Select the chart you wish to extract data from.")
+
-        oChart = oBook.ActiveChart
+
-        ' Calculate the number of rows of data.
+
-        NumberOfRows = UBound(oChart.SeriesCollection(1).Values)
+
 
-        oWSheet.Cells(1, 1) = "X Values"
+
         Try
-        ' Write x-axis values to worksheet.
+
-        With oWSheet
+
-            .Range(.Cells(2, 1), _
+
-            .Cells(NumberOfRows + 1, 1)).Value = _
+
-            oExcel.WorksheetFunction.Transpose(oChart.SeriesCollection(1).XValues)
+
-        End With
+
             'Start Excel and open the workbook.
-        ' Loop through all series in the chart and write their values to
+
-        ' the worksheet.
+
-        For Each X In oChart.SeriesCollection
+
-            oWSheet.Cells(1, Counter) = X.Name
+
                 MsgBox("Excel completed file level validation and repair. Some " _
-            With oWSheet
+                & "parts of this workbook may have been repaired or discarded.")
-                .Range(.Cells(2, Counter), _
+
-                .Cells(NumberOfRows + 1, Counter)).Value = _
+
-                oExcel.WorksheetFunction.Transpose(X.Values)
+
                 oWB = oBooks.Open(Filename:=sFile, CorruptLoad:=XlCorruptLoad.xlRepairFile)
             End If
-            Counter = Counter + 1
+
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
         Try
             Dim sFile As String = PathTb.Text
 
             If File.Exists("C:\Program Files\Microsoft Office\Office12\XLVIEW.EXE") Then
                 Shell("C:\Program Files\Microsoft Office\Office12\XLVIEW.EXE /s /r " & """" & sFile & """", AppWinStyle.NormalFocus)
             Else
                 MsgBox("You have not downloaded the most recent Microsoft Excel Viewer. " _
-    Private Sub Label11_Click(sender As System.Object, e As System.EventArgs) Handles Label11.Click
+                      & "Please install after downloading and try clicking this button again.")
                 System.Diagnostics.Process.Start("http://www.microsoft.com/download/en/details.aspx?id=10")
 
             End If
-    Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click
+
-        Alphaleonis.Win32.Vss.VssImplementation.Equals()
+
             MessageBox.Show(ex.Message)
-End Class
+
-
+
-
+
     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("The Open and Extract Data method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else    'key is found
                 TargetKey.Close()
 
                 Dim sFile As String = PathTb.Text
                 Dim oExcel As New Excel.Application
                 Dim oBooks As Excel.Workbooks = Nothing
                 Dim oWB As Workbook = Nothing
 
                 'Start Excel and open the workbook.
 
                 oExcel.Visible = True
                 oBooks = oExcel.Workbooks
                 oWB = oBooks.Open(Filename:=sFile, CorruptLoad:=XlCorruptLoad.xlExtractData)
 
             End If
 
         Catch ex As Exception
                 MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
         Try
             Dim x As Integer
 
             For x = 0 To shadowLinkFolderName.Count - 1
 
                 Dim myProcess As New Process()
                 myProcess.StartInfo.FileName = "cmd.exe"
                 myProcess.StartInfo.UseShellExecute = False
                 myProcess.StartInfo.RedirectStandardInput = True
                 myProcess.StartInfo.RedirectStandardOutput = True
                 myProcess.StartInfo.CreateNoWindow = True
                 myProcess.Start()
                 Dim myStreamWriter As StreamWriter = myProcess.StandardInput
 
                 myStreamWriter.WriteLine("rmdir " & shadowLinkFolderName(x))
                 myStreamWriter.Close()
                 myProcess.WaitForExit()
                 myProcess.Close()
 
             Next
 
             Me.Close()
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
 
     End Sub
 
     Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
         Me.WindowState = FormWindowState.Minimized
     End Sub
 
     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
     End Sub
 
 
     Private allowCoolMove As Boolean = False
     Private dx, dy As Integer 'I used this two integers as I could use the function new POint due to the Import of the Excel
 
     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
         allowCoolMove = True
         dx = Cursor.Position.X - Me.Location.X '// get coordinates.
         dy = Cursor.Position.Y - Me.Location.Y '// get coordinates.
     End Sub
 
     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
         If allowCoolMove = True Then
             Dim cls As New Class1
             Me.Location = cls.Pts(Cursor.Position.X - dx, Cursor.Position.Y - dy) '// set coordinates.
         End If
     End Sub
 
     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
         allowCoolMove = False
     End Sub
 
     Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
     End Sub
 
     Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
     End Sub
 
     Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
     End Sub
 
     Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
     End Sub
 
     Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("Opening the Excel file with calculations set to manual method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else
                 'key is found
                 TargetKey.Close()
                 Dim oExcel As Excel.Application
                 Dim oBook As Excel.Workbook
                 Dim oBooks As Excel.Workbooks
                 Dim sFile As String = PathTb.Text
                 oExcel = CreateObject("Excel.application")
                 oExcel.Visible = True
 
                 oBooks = oExcel.Workbooks
                 oBook = oBooks.Open(sFile)
                 oExcel.Calculation = Excel.XlCalculation.xlCalculationManual
             End If
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("The Open and Repair method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else
                 'key is found
                 TargetKey.Close()
                 Dim sFile As String = PathTb.Text
 
                 Dim oExcel As New Excel.Application
                 Dim oBooks As Excel.Workbooks = Nothing
                 Dim oWB As Workbook = Nothing
 
                 'Start Excel and open the workbook.
                 If Path.GetExtension(sFile) = ".xls" Then
                     oExcel.Visible = True
                     oBooks = oExcel.Workbooks
                     oWB = oBooks.Open(Filename:=sFile, CorruptLoad:=XlCorruptLoad.xlRepairFile)
                     MsgBox("Excel completed file level validation and repair. Some " _
                     & "parts of this workbook may have been repaired or discarded.")
                 Else
                     oExcel.Visible = True
                     oBooks = oExcel.Workbooks
                     oWB = oBooks.Open(Filename:=sFile, CorruptLoad:=XlCorruptLoad.xlRepairFile)
                 End If
 
             End If
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
     End Sub
 
     Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("The External References method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else
                 'key is found
                 TargetKey.Close()
                 Dim oExcel As Excel.Application
                 Dim oBook As Excel.Workbook
                 Dim sFile As String = PathTb.Text
 
                 oExcel = CreateObject("Excel.application")
                 oBook = oExcel.Workbooks.Add
                 oExcel.Visible = True
                 oBook.Activate()
                 oExcel.Calculation = Excel.XlCalculation.xlCalculationAutomatic
                 oExcel.Range("A1").Value = "=" & "'" & sFile & "'" & "!A1"
 
                 Dim rRange As Range
                 oExcel.DisplayAlerts = False
                 rRange = oExcel.InputBox(Prompt:= _
                     "Please select a range similar in size to your corrupt data " _
                     & "that you wish to recover.", Title:="SPECIFY RANGE", Type:=8)
                 oExcel.DisplayAlerts = True
 
                 If rRange Is Nothing Then
 
                     Exit Sub
 
                 Else
                     oExcel.Range("A1").Copy()
                     oBook.ActiveSheet.Paste(rRange)
 
                 End If
             End If
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("The save to SYLK format method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else
                 'key is found
                 TargetKey.Close()
                 Dim oExcel As New Excel.Application
                 Dim oBooks As Excel.Workbooks = Nothing
                 Dim oBook As Workbook = Nothing
                 Dim oWSheet As Worksheet = Nothing
                 Dim sFile As String = PathTb.Text
                 Dim sFileName As String = Path.GetFileNameWithoutExtension(sFile)
                 Dim sDirName As String = Path.GetDirectoryName(sFile)
                 Dim sFileSylkName As String = sDirName & "\" & sFileName & ".slk"
 
                 'Start Excel and open the workbook.
                 oExcel.Visible = False
                 oBooks = oExcel.Workbooks
                 oBook = oBooks.Open(Filename:=sFile)
                 oWSheet = oBook.ActiveSheet()
                 oWSheet.SaveAs(Filename:=sFileSylkName, FileFormat:=Excel.XlFileFormat.xlSYLK)
 
                 If File.Exists(sFileSylkName) Then
                     oBook.Close()
                     oExcel.Visible = True
                     oBook = oBooks.Open(Filename:=sFileSylkName)
                 Else
                     MessageBox.Show("Failed to create " & sFileSylkName)
                 End If
 
             End If
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
 
     End Sub
 
     Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click
         Try
             Dim sFile As String = PathTb.Text
             Dim regVersion As Microsoft.Win32.RegistryKey
             regVersion = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
                 "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\wordpad.exe", True)
                 If regVersion IsNot Nothing Then
                     Dim proc As New Process
                     With proc.StartInfo
                         .FileName = regVersion.GetValue("").ToString
                         .Arguments = sFile
                     End With
                     proc.Start()
                 End If
 
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
         Try
             Dim TargetKey As RegistryKey
             TargetKey = Registry.ClassesRoot.OpenSubKey("excel.application")
 
             If TargetKey Is Nothing Then
                 MsgBox("The Macro Graph Data Recovery method requires Excel, however it does not appear to be installed.")
                 Exit Sub
 
             Else
                 'key is found
                 TargetKey.Close()
                 Dim oExcel As New Excel.Application
                 Dim oBooks As Excel.Workbooks = Nothing
                 Dim oBook As Workbook = Nothing
                 Dim oWSheet As Worksheet = Nothing
                 Dim oChart As Chart = Nothing
                 Dim sFile As String = PathTb.Text
                 Dim NumberOfRows As Integer
                 Dim X As Object
                 Dim Counter As Integer = 2
 
                 oExcel.Visible = True
                 oBooks = oExcel.Workbooks
                 oBook = oBooks.Open(Filename:=sFile)
                 oWSheet = oBook.Worksheets.Add()
                 oWSheet.Name = "ChartData"
                 oWSheet.Activate()
                 MsgBox("Select the chart you wish to extract data from.")
                 oChart = oBook.ActiveChart
 
                 ' Calculate the number of rows of data.
                 NumberOfRows = UBound(oChart.SeriesCollection(1).Values)
                 oWSheet.Cells(1, 1) = "X Values"
 
                 ' Write x-axis values to worksheet.
                 With oWSheet
                     .Range(.Cells(2, 1), _
                     .Cells(NumberOfRows + 1, 1)).Value = _
                     oExcel.WorksheetFunction.Transpose(oChart.SeriesCollection(1).XValues)
                 End With
 
                 ' Loop through all series in the chart
                 ' and write their values to the worksheet.
                 For Each X In oChart.SeriesCollection
                     oWSheet.Cells(1, Counter) = X.Name
 
                     With oWSheet
                         .Range(.Cells(2, Counter), _
                         .Cells(NumberOfRows + 1, Counter)).Value = _
                         oExcel.WorksheetFunction.Transpose(X.Values)
                     End With
 
                     Counter = Counter + 1
                 Next
             End If
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub releaseObject(ByVal obj As Object)
         Try
             System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
             obj = Nothing
         Catch ex As Exception
             obj = Nothing
         Finally
             GC.Collect()
         End Try
     End Sub
 
     Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
     End Sub
     Dim saveShadowPath As String
     Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Try
             Dim saveFileDialog1 As New SaveFileDialog()
             saveFileDialog1.Filter = "Excel Files (*.xls;*.xlsx;*.xlt;*.xla;" _
                 & "*.xlsm;*.xltx;*.xltm;*.xlsb;*.xlam)|*.xls;*.xlsx;*.xlt;*.xla;" _
                 & "*.xlsm;*.xltx;*.xltm;*.xlsb;*.xlam|All Files (*.*)|*.*"
             saveFileDialog1.FilterIndex = 1
             saveFileDialog1.RestoreDirectory = True
 
             If saveFileDialog1.ShowDialog() = DialogResult.OK Then
                 saveShadowPath = saveFileDialog1.FileName
 
                 If System.IO.File.Exists(selectedPreviousVersion) = True Then
                     System.IO.File.Copy(selectedPreviousVersion, saveShadowPath, True)
                     MsgBox(("The Previous version of " & sFileShadowName _
                                   & " last modified on " & selectedsFileShadowPathDate _
                                   & " was saved to a new location: " & saveShadowPath) & ".")
                 Else
                     MsgBox("Can't connect to previous version file.")
                 End If
             End If
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
     Dim selectedsFileShadowPathDate As String
     Dim selectedPreviousVersion As String
     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
         Try
             Dim sFileShadowPathInfo As New FileInfo(sFileShadowPath)
             sFileShadowPathDate = sFileShadowPathInfo.LastWriteTime
             sFileShadowName = sFileShadowPathInfo.Name
             selectedsFileShadowPathDate = DelFromLeft("File Name: " & sFileShadowName _
                             & " Last Modified: ", ComboBox1.Text.ToString)
             selectedPreviousVersion = preVersionHashTable.Item(selectedsFileShadowPathDate)
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click
 
     End Sub
 
     Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
 
     End Sub
 
     Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click
         Try
             Dim extractCMD As New Process()
             Dim sFile As String = PathTb.Text
             Dim myPercent As Char
 
             myPercent = Chr(37)
             Dim myZipCommand As String = """no-frills.exe " & Chr(37) _
                             & "a " & Chr(37) & "d " & Chr(37) & "f"""
             MsgBox("doctotext.exe " & "--fix-xml --unzip-cmd=" & myZipCommand & " """ & sFile & """")
             extractCMD.StartInfo.FileName = "doctotext.exe"
             extractCMD.StartInfo.Arguments = "--fix-xml --unzip-cmd=" _
                             & myZipCommand & " """ & sFile & """"
             extractCMD.StartInfo.UseShellExecute = False
             extractCMD.StartInfo.RedirectStandardOutput = True
             extractCMD.StartInfo.CreateNoWindow = True
             extractCMD.Start()
 
             Dim sFileText As String = sFile & ".txt"
             Dim doctotextOutput As String = extractCMD.StandardOutput.ReadToEnd()
             Dim sErr As String = ""
             'Save to different file
             Dim bAns As String = SaveTextToFile(doctotextOutput, sFileText, sErr)
             If bAns Then
                 MsgBox("Please note: all successfuly extracted worksheets will " _
                        & "appear on just one worksheet travelling vertically down.")
                 Dim oExcel As New Excel.Application
                 oExcel.Visible = True
                 oExcel.Workbooks.Open(sFileText)
 
             Else
                 MsgBox("Error extracting file: " & sErr)
             End If
 
             extractCMD.Close()
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click
         Try
             MsgBox("If successful, each Worksheet will be saved as separate " _
                    & "CSV files in the same directory as your corrupt file.")
             Dim OFlD As New FolderBrowserDialog
             Dim sFile As String = PathTb.Text
             Dim coffecCMD As New Process()
             coffecCMD.StartInfo.FileName = "coffec.exe"
             coffecCMD.StartInfo.Arguments = "-t """ & sFile & """"
             coffecCMD.StartInfo.UseShellExecute = True
             coffecCMD.StartInfo.CreateNoWindow = True
             coffecCMD.Start()
             coffecCMD.WaitForExit()
             coffecCMD.Close()
             Dim sFileInfo As New FileInfo(sFile)
             Dim sFileName As String = sFileInfo.Name
             Dim sFilePath As String = DelFromRight(sFileName, sFile)
             Process.Start("explorer.exe", sFilePath)
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub FolderBrowserDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FolderBrowserDialog1.HelpRequest
 
     End Sub
 
     Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click
         Try
             Dim repairZip As New Process()
             Dim sFile As String = PathTb.Text
             Dim sFileZip As String = sFile & ".zip"
             Dim sFileInfo As New FileInfo(sFile)
             Dim sFileName As String = sFileInfo.Name
             Dim zipRepairedsFileName As String = "zipRepaired" & sFileName & ".zip"
             Dim sFileBasePath As String = DelFromRight(sFileName, sFile)
             Dim zipRepairedFullPathFileName As String = sFileBasePath & zipRepairedsFileName
 
             FileCopy(sFile, sFileZip)
             repairZip.StartInfo.FileName = "zip.exe"
             repairZip.StartInfo.Arguments = "-FF """ & sFileZip & """ --out " & zipRepairedFullPathFileName
             repairZip.StartInfo.UseShellExecute = False
             repairZip.StartInfo.RedirectStandardOutput = True
             repairZip.StartInfo.CreateNoWindow = True
             repairZip.Start()
 
             Dim repairZipReader As StreamReader = repairZip.StandardOutput
             Dim repairZipCompOut As String = repairZipReader.ReadToEnd
 
             repairZipReader.Close()
             repairZip.WaitForExit()
             repairZip.Close()
 
             Dim zipRepairedFullPathXlsxName As String = DelFromRight(".zip", zipRepairedFullPathFileName)
             Dim oExcel As New Excel.Application
             Dim oBooks As Excel.Workbooks = Nothing
             Dim oBook As Workbook = Nothing
             Rename(zipRepairedFullPathFileName, zipRepairedFullPathXlsxName)
             oExcel.Visible = True
             oBooks = oExcel.Workbooks
             oBook = oBooks.Open(Filename:=zipRepairedFullPathXlsxName)
 
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
     End Sub
 
     Private Sub PathTb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PathTb.TextChanged
 
     End Sub
 End Class