[elgokr]

مرحباً DK-x

اليك الكود الصحيح لاتمام عمل المطلوب

الكود المدرج يحتوى على الشرح [ C:\Users\name\AppData\Local\Temp  ]

كود :

       ' كود جلب جميع الملفات بامتداد exe
       Dim fileEntries As String() = System.IO.Directory.GetFiles(System.IO.Path.GetTempPath(), "*.exe")
       ' كود عرض جميع الملفات التى تم جلبها
       For Each fileName In fileEntries
           ' اضافة اسم الملف الذى تم جلبه
           ListBox1.Items.Add(fileName.Split("\")(6))
           ' كود عرض جميع البرامج التى تعمل على الجهاز
           For Each fileRun As Process In Process.GetProcesses
               ' كود التحقق اذا كان احد البرامج التى تعمل هى نفس البرنامج الذى تم جلبه من المجلد
               If fileRun.ProcessName = fileName.Split("\")(6).Split(".")(0) Then
                   ' عند التحقق يقوم باغلاق البرنامج حتى لا يعمل
                   fileRun.Kill()
               End If
           Next
           ' وبالنهاية بعد انهاء كود اغلاق البرانج يوقم بحذفه
           File.Delete(fileName)
       Next

الكود الثاني يمكنك استخدامه اسفل الكود بالاعلى

وهو يخص مسار [ C:\Windows\Temp ] 

ولكن تذكر حتى يعمل هذا الكود

ستحتاج الى تشغيل البرنامج Run Administrator

الكود هو نفسه الكود بالاعلى ولكن يختلف المسار فقط

كود :

       ' كود جلب جميع الملفات بامتداد exe
       Dim fileEntries2 As String() = System.IO.Directory.GetFiles("C:\Windows\Temp", "*.exe")
       ' كود عرض جميع الملفات التى تم جلبها
       For Each fileName In fileEntries2
           ' اضافة اسم الملف الذى تم جلبه
           ListBox1.Items.Add(fileName.Split("\")(6))
           ' كود عرض جميع البرامج التى تعمل على الجهاز
           For Each fileRun As Process In Process.GetProcesses
               ' كود التحقق اذا كان احد البرامج التى تعمل هى نفس البرنامج الذى تم جلبه من المجلد
               If fileRun.ProcessName = fileName.Split("\")(6).Split(".")(0) Then
                   ' عند التحقق يقوم باغلاق البرنامج حتى لا يعمل
                   fileRun.Kill()
               End If
           Next
           ' وبالنهاية بعد انهاء كود اغلاق البرانج يوقم بحذفه
           File.Delete(fileName)
       Next

تحياتى لك

وتمنياتى لك التوفيق