Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

dio123

fechar app

Recommended Posts

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

Share this post


Link to post
Share on other sites
bioshock

Antes da condição, escreve:

MsgBox(a)

E vê se ele te está a devolver o caminho que pretendes.

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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.

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites
bioshock

O S de System tem de ser maiúsculo na comparação.

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.