VB.Net：如何显示文件的先前卷影副本版本以允许用户选择一个

Question

我正在使用 VB.Net 编写一个 Excel 文件恢复程序，试图成为一个方便的地方来收集和访问 Microsoft 推荐的方法。如果您对我可能笨拙、充满错误且缺乏足够的清理代码感兴趣，请访问：http://pastebin.com/v4GgDteY< /a>.尽管我还没有测试图形宏表恢复，但基本功能似乎可以工作。

我突然想到，如果卷影复制服务已打开并且存在以前的副本，Vista 和 Windows 7 用户可以受益于在我的应用程序中提供该文件以前版本的列表。我该怎么做？

我浏览了很多网页，但没有找到容易抄袭的代码。我猜想的一种可能性是通过 shell 使用 vssadmin，但这非常麻烦。我只想显示一个类似于“以前版本”属性表的对话框，并允许用户选择以前的版本之一。我想我可以通过以编程方式调用上下文菜单和“恢复以前的版本选项”来通过外壳显示以前版本的属性表，但是我也希望能够为不这样做的 Vista Home Basic 和 Premium 用户提供列表尽管显然以前的版本仍然存在，但无法访问该选项卡。另外，如果可能的话，我想为 XP 用户提供相同的功能，尽管我很确定 XP 只有系统文件位于卷影副本中。

我查看了有关卷影复制服务的 MSDN 并浏览了所有页面，还查看了 AlphaVSS 和 AlphaFS 以及所有评论。我猜测我需要使用 AlphaVss 和 AlphFS 并执行以下操作？

1. 找出计算机上存在的快照/还原点列表。
2. 安装这些快照。
3. 在已安装的卷中导航到用户想要恢复的 Excel 文件并列出这些路径。
4. 有了方便的路径列表，就可以与某种 diff 程序进行比较，将文件的卷影副本与原始文件进行比较。
5. 取出那些与恢复目标不同的卷影副本的最新或最旧版本（我认为这并不重要）。
6. 列出发现不同的文件的版本。

这看起来既麻烦又缓慢，但也许是最快的方法。我只需要一些确认，这就是现在要走的路。

Answer 1

我最终决定继续开始编码。请提出有关加快代码速度或如何处理发现与恢复文件目标不同的文件的建议。有没有更简单的方法来使用 AlphaVSS 和 AlphaFS 来做到这一点？

Private Sub Button1_Click_2(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    '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, 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 burp As String = objProcess.StandardOutput.ReadToEnd
    Dim strError As String = objProcess.StandardError.ReadToEnd()
    objProcess.WaitForExit()
    Dim xnum As Integer = 0
    Dim counterVariable As Integer = 1
    ' Call Regex.Matches method.
    Dim matches As MatchCollection = Regex.Matches(burp, _
                            "HarddiskVolumeShadowCopy")
    ' Loop over matches.
    For Each m As Match In matches
        xnum = xnum + 1
        'At the max xnum + 1 is the number of shadows that exist
    Next
    objProcess.Close()

    Do
        'Here we make symbolic links to all the shadows, one at a time 
        'and loop through until all shadows are exposed as folders in C:\.
        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("mklink /d C:\shadow" & counterVariable _
            & " \\?\GLOBALROOT\Device\HarddiskVolumeShadowCopy" _
            & counterVariable & "\")
        myStreamWriter.Close()
        myProcess.WaitForExit()
        myProcess.Close()

        ' Here I compare our recovery target file against the shadow copies
        Dim sFile As String = PathTb.Text
        Dim sFileShadowPath As String = "C:\shadow" & _
            counterVariable & DelFromLeft("C:", sFile)
        Dim jingle As New Process()
        jingle.StartInfo.FileName = "cmd.exe"
        jingle.StartInfo.UseShellExecute = False
        jingle.StartInfo.RedirectStandardInput = True
        jingle.StartInfo.RedirectStandardOutput = True
        jingle.StartInfo.CreateNoWindow = True
        jingle.Start()
        Dim jingleWriter As StreamWriter = jingle.StandardInput
        jingleWriter.WriteLine("fc """ & sFile & """ """ _
                               & sFileShadowPath & """")
        jingleWriter.Close()
        jingle.WaitForExit()
        Dim jingleReader As StreamReader = jingle.StandardOutput
        Dim JingleCompOut As String = jingleReader.ReadToEnd
        jingleReader.Close()
        jingle.WaitForExit()
        jingle.Close()
        Dim jingleBoolean As Boolean = JingleCompOut.Contains( _
            "no differences encountered").ToString
        If jingleBoolean = "True" Then
            MsgBox(jingleBoolean)
        Else
            'I haven't decided what to do with the paths of 
            'files that are different from the recovery target.
            MsgBox("No")
        End If

        counterVariable = counterVariable + 1
    Loop Until counterVariable = xnum + 1

End Sub