Private Sub Command2_Click()
On Error GoTo Error
a = Shell("C:\\Program Files\asd.exe", 1)
Error:
If Err.Number = 53 Then
a = MsgBox("Dosya Bulunamadi !.", , "Error")
End If
End Sub
Internette biraz arastirdim ve buttona dosya açtırma olayının bu şekilde olduğunu öğrendim ama Ne yaparsam yapıyım dosya bulunamadı hatası veriyor.If Dir$(App.Path & "\client.exe") = "" Then
Uyari.Label2.Caption = "Client dosyaları bulunamadi, download için yönlendiriliyorsunuz. Lütfen bekleyiniz.."
Uyari.Show
URL = Shell("explorer.exe https://www.client.com/client.rar")
Else
Shell (App.Path & "\client.exe")