Selamın aleyküm arkadaşlar programımın sonuna geldim artık ufak bi sorunum var , şöyle anlatayım problemimi ;
Ben Resourcesten bi exe çıkartıyorum ve programım kapatılırken exe yi kapatıp siliyorum.Tıkır tıkır yapıyor herşeyi fakat şöyle bir sorunumuz var çıkışta silmesine rağmen şöyle bir .net hatası alıyorum :
"Access to the path "D:\Oyun\Programım\Program.exe" is denied" adında bi hata alıyorum quit de continue de desem exe siliyor güzel bir şey ama bunu nasıl düzeltebilirim ? Yani bu hatayı nasıl almamamı sağlıyabilirim ?
Ben Resourcesten bi exe çıkartıyorum ve programım kapatılırken exe yi kapatıp siliyorum.Tıkır tıkır yapıyor herşeyi fakat şöyle bir sorunumuz var çıkışta silmesine rağmen şöyle bir .net hatası alıyorum :
"Access to the path "D:\Oyun\Programım\Program.exe" is denied" adında bi hata alıyorum quit de continue de desem exe siliyor güzel bir şey ama bunu nasıl düzeltebilirim ? Yani bu hatayı nasıl almamamı sağlıyabilirim ?
Kod:
Sub kapat()
Dim processes As Process() = Process.GetProcessesByName("Program")
For Each process As Process In processes
process.Kill()
Next
End Sub
Sub sil()
Dim kod As String
kod = My.Application.Info.DirectoryPath
Kill(kod & "\Program.exe")
End Sub
Sub calistir()
Dim yol As String = Application.StartupPath & "\Program.exe"
IO.File.WriteAllBytes(yol, My.Resources.Program)
If IO.File.Exists(yol) Then Process.Start(yol)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
kapat()
sil()
Form2.Close()
End Sub
Son düzenleme:
