0

这是一个 winforms vb.net 应用程序。由于某些限制，我无法使用 VS 中提供的内置 clickOnce 更新。因此，为了处理我的应用程序的更新，我编写了一个更新应用程序。它会下载电子邮件附件并对其进行处理。一切都很好，包括从应用程序安装文件夹中删除旧文件，然后将更新的文件移动到该文件夹​​。

但是新文件似乎对应用程序没有任何影响。只是为了测试，我在应用程序表单加载事件中放置了一个 MessageBox.Show。当我调试时，该应用程序在 VS 中显示消息框。以及当我从 bin 文件夹运行应用程序时。当我的更新程序应用程序复制文件时，文件在那里但没有任何变化，并且在应用程序加载时没有消息框显示。进一步调查问题，我手动删除了应用程序文件夹中要替换的文件，然后将更新 zip 文件的内容解压缩到该文件夹​​。启动应用程序，现在显示一个消息框。如果我复制文件app 直接从 bin 文件夹到它显示的 app 文件夹。

这让我相信，在下面的函数中，幕后发生了一些我没有捕捉到的事情。任何想法为什么这会失败？？？

     Function ApplyUpdates(ByVal c As Integer, ByVal e As List(Of MessagePart))
    Dim xxxxState As Boolean = False
    Dim _path As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles\"
    Dim d As Integer = 20

    xxxxState = isProcessRunning("xxxx")
    If xxxxState = True Then
        KillxxxxTask()
    End If

    For Each _S In System.IO.Directory.GetFiles(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "XXXX\UpdateFiles")
        System.IO.File.Delete(_S)
    Next


    For Each att In e
        Dim y As Boolean = UnZip(att.FileName)
    Next

    For Each f In System.IO.Directory.GetFiles(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles")
        Dim y As String = Path.GetExtension(f)
        Dim _fNM As String = Path.GetFileNameWithoutExtension(f)
        If y.Contains("ex0") Then
            My.Computer.FileSystem.RenameFile(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles" + "\" + _fNM + y, _fNM + "." + "exe")
            f = f.Replace("ex0", "exe")
        End If
        If y.Contains("dl0") Then
            My.Computer.FileSystem.RenameFile(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles" + "\" + _fNM + y, _fNM + "." + "dll")
            f = f.Replace("dl0", "dll")
        End If
        updating(d, "Copying File : " + f)
        d += 10
        Dim fName As String = Path.GetFileName(f)
    Next

        For Each S In System.IO.Directory.GetFiles(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles")
            Dim _ofile As String = Path.GetFileName(S)
            If File.Exists("C:\XXXX\" + _ofile) Then
                File.Delete("C:\XXXX\" + _ofile)
            End If
            '  File.Copy(S, "C:\XXXX\" + _ofile, True)

        Next
        For Each S In System.IO.Directory.GetFiles(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) + "\XXXX\UpdateFiles")
            Dim _ofile As String = Path.GetFileName(S)
            File.Move(S, "C:\XXXX\" + _ofile)

        Next
        updating(100, "Update Completed")

    Return Nothing
End Function
4

1 回答 1

2

这听起来很像Windows 文件虚拟化。

搜索文件 C:\Documents and Settings\<userName>\Application Data和子​​文件夹，我怀疑你会在那里找到它们。

如果您的项目中没有包含 app.manifest，Windows 会这样做以保护您的程序不受自身影响。Windows 将假定您的应用程序是不支持 UAC 的旧的遗留应用程序，除非它具有 app.manifest。为了防止您的应用程序因文件访问被拒绝而崩溃，它允许执行文件操作，而是秘密地将文件操作映射到安全的本地文件夹。

只需添加一个app.Manifest：Project Add -> New Item -> Application Manifest File

那应该这样做。您可能会发现您需要请求提升的权限，但详细信息都在 app.manifest 文件中。

有关文件虚拟化的详细信息，请查看此说明。这是一篇大文章，但如果你 Ctrl-Find 'Virtualization process' 它将带你到相关部分。

有关 app.manifest 的更多详细信息，请参阅这篇 MSDN 文章。

于 2012-09-20T01:22:19.290 回答