none
Preciso Criar um arquivo na pasta Windows RRS feed

  • Pergunta

  • 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 

    sábado, 9 de abril de 2016 23:29

Respostas

  • 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


    domingo, 10 de abril de 2016 13:06

Todas as Respostas

  • 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. 

    • Marcado como Resposta V1CT0R M4TO5 domingo, 10 de abril de 2016 11:04
    • Não Marcado como Resposta V1CT0R M4TO5 domingo, 10 de abril de 2016 13:00
    domingo, 10 de abril de 2016 00:03
  • 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
    domingo, 10 de abril de 2016 11:16
  • 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


    domingo, 10 de abril de 2016 13:06