Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

dio123

fechar app

Mensagens Recomendadas

dio123

Boa noite,

Tenho um programa que quando é aberto pela 1 vez faz uma copia para c:\windows\system  depois fecha e volta abri o programa pelo o que está em c:\windows\system

O problema é que o programa fica sempre abrir e fechar e não estou a ver porque.

 
antes o codigo que copia o ficheiro para c:\windows\system


Dim a As String
        a = (System.Reflection.Assembly.GetExecutingAssembly().Location)
        If a <> "C:\Windows\system\xx.exe" Then
            Process.Start("C:\Windows\System\xx.exe")
            application.exit()
        Else
            MsgBox("bem vindo")
        End If

    End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
dio123

Boa noite,

A primeira vez dá-me mensagem com caminho do projecto c:\users\documentos\visual..... clico em ok ele fecha volta a abrir e

aparece a segunda mensagem com  caminho c:\windows\system clico em ok e fica sempre a repetir a mensagem  com caminho c:\windows\system

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

Pronto. Se bem percebi, tu só estás apanhar o caminho C:\Windows\System, mas queres apanhar C:\Windows\System\xx.exe, correcto?

Se sim:

If a & "\xx.exe" <> "C:\Windows\system\xx.exe" Then

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
dio123

Eu  apanho C:\Windows\System\xx.exe

Não percebo é porque é que o continua a fechar aplicação se  a =  C:\Windows\System\xx.exe

Deveria ir para a msg bem vindo, mas não vai.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
bioshock

Disseste-me que apanhavas C:\Windows\System, agora dizes que apanhas a localização correcta? Decide-te. O problema está na comparação.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
dio123

Eu apanho a localização correcta  O MsgBox(a)  diz : C:\Windows\System\xx.exe

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.FileSystem.FileExists("c:\Windows\System\xx.exe") Then
        Else
            Dim folder2 As String
            Dim fileCheck As String = "\hosting.exe"
            Dim sourcePath As String = System.Windows.Forms.Application.StartupPath & fileCheck
            folder2 = "c:\Windows\System"
            If IO.File.Exists(folder2) = False Then
                IO.File.Copy(sourcePath, folder2 & "\xx.exe")
            End If
        End If
        Dim a As String
        a = (System.Reflection.Assembly.GetExecutingAssembly().Location)
        MsgBox(a) 
        If a <> "C:\Windows\system\xx.exe" Then
            Process.Start("C:\Windows\System\xx.exe")
            Me.Close()
        Else
            MsgBox("bem vindo")
        End If

    End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.