MENSAGEM COMANDO SHELL, ARQUIVO NAO ENCONTRADO

RAMIRESCG 27/02/2014 13:42:32
#435364
Boa tarde Pessoal,

Estou com uma aplicação, onde tenho que buscar um Atalho que fica na área de Trabalho, Porém gostaria que aparecesse uma mensagem quando esse aquivo não for encontrado...(Msgbox), estou usando o seguinte código :

Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click

Dim comando As String = [Ô]%USERPROFILE%\Desktop\Suporte.exe[Ô]
Try
Shell([Ô]cmd.exe /c[Ô] & comando, AppWinStyle.Hide)
Catch ex As Exception
MsgBox([Ô]Arquivo não encontrado, Favor Contactar o Suporte ![Ô])
End Try

End Sub

Desse jeito, a Msgbox não esta aparecendo....

CRACKER 27/02/2014 19:07:38
#435383 Resposta escolhida
Tenta assim:

Dim comando As String = [Ô]%USERPROFILE%\Desktop\Suporte.exe[Ô]
Try
Shell([Ô]cmd.exe /c[Ô] & comando, AppWinStyle.Hide)

If(File.Exists(comando) then
MsgBox([Ô]Arquivo encontrado,Tudo OK![Ô])
Else
MsgBox([Ô]Arquivo não encontrado, Favor Contactar o Suporte ![Ô])
Catch ex As Exception

End Try

End Sub


Tens de verificar se o ficheiro existe ou não, e só depois mostrar a MsgBox com a informação.
RAMIRESCG 28/02/2014 15:07:52
#435406
Valeu Cracker....

100% ..... Só fiz uma Mudança e funcionou.... Abrass

Dim comando As String = [Ô]c:\Users\Administrador\Desktop\Suporte.exe[Ô]
Try
Shell([Ô]cmd.exe /c[Ô] & comando, AppWinStyle.Hide)

If(File.Exists(comando) then
MsgBox([Ô]Arquivo encontrado,Tudo OK![Ô])
Else
MsgBox([Ô]Arquivo não encontrado, Favor Contactar o Suporte ![Ô])
Catch ex As Exception

End Try

End Sub

Show de Bola.....
Tópico encerrado , respostas não são mais permitidas
Voltar