Preciso Criar um arquivo na pasta Windows

Question

Seguinte Tenho o seguinte Código 

IO.File.WriteAllBytes(My.Computer.FileSystem.SpecialDirectories.Temp & "\arquivo.exe", My.Resources.arquivo)
        Process.Start(My.Computer.FileSystem.SpecialDirectories.Temp  & "\arquivo.exe")

esse código envia meu arquivo do resources para a pasta Temp do Windows para que eu possa executalo

porem queria que esse arquivo fosse enviado para pasta windows mas se tento altera temp por Windows da erro e preciso de um código que envia o arquivo para pasta Windows sem que eu precisa especifica o Diretório tipo C:\Windows porque vai que o programa seja executado em um PC em que a partição esta instalado Windows seja Partição D ai meu Código daria erro por Isso preciso de um código que especifico Windows e ache a pasta em qualquer partição 

Answer 1

Boa noite, Bom usando my.computer vc esta dizendo ao software para estalar na partição que esta o windows no caso a onde vc executo o software, mais usando o caminho ex "c:\windows", vc esta mando ele pra partição c, vc falo que da erro quando muda temp por windows seria dessa forma.

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        IO.File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.Windows & "\arquivo.exe", My.Resources.arquivo)
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\arquivo.exe")
    End Sub
End Class

Mais lembrando que para se copiar para a pasta windows, vc tera que executar como admin seu software, pois e uma pasta do systema e requer como admin para poder funcionar. 

Answer 2

me deparo com esse problema quando coloco o seguinte código que você me passo tentei modificar ele mas mesmo assim dava problema tem como me ajuda a resolver

Answer 3

Aqui 

Imports System.IO
Imports System.Diagnostics

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        IO.File.WriteAllBytes(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\arquivo.exe", My.Resources.Teste_Ok)
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\arquivo.exe")
    End Sub
End Class