بستن فایلهای EXE ویندوز به صورت بهینه

[دلاوران]

این قطعه کد علاوه بر اینکه در خط اول با کد System.Environment.CurrentDirectory به مسیر ذخیره ی فایل اجرا شده ی ما اشاره می کند، می تواند فایلهای exe در حال اجرا در آن پوشه را که نامشان Life Program است را ببندد.


Dim dirInfo AsNew System.IO.DirectoryInfo(System.Environment.Current Directory)
Dim fsInfo As System.IO.FileSystemInfo
Dim p As System.Diagnostics.Process
ForEach fsInfo In dirInfo.GetFileSystemInfos
If Mid(fsInfo.ToString, fsInfo.ToString.Length - 2, 3) = "exe"Then
ForEach p In System.Diagnostics.Process.GetProcesses()
If p.ProcessName = Mid(fsInfo.ToString, 1, fsInfo.ToString.Length - 4) And p.ProcessName = "Life Program"Then
p.Kill()
EndIf
Next
EndIf
Next

تقدیم به وفاداران صلح و دوستی

[Saman_12]

کد جالبیه خیلیا دنبال اینچنین کدی می گردن خیلی ممنون!:تشویق:
فقط اگه یه توضیح بدید که چجوری اسم فایل ها رو از دیکتاتوری بدست میارید خیلی عالی میشه!:قلب:

[Reza1607]

با استفاده از اين دو خط


ForEach fsInfo In dirInfo.GetFileSystemInfos
If Mid(fsInfo.ToString, fsInfo.ToString.Length - 2, 3) = "exe"Then

به اين صورت كه با خط اول به ازاي هر فايل سيستمي نامشون رو داخل متغيير fsInfo مي ريزه
و در خط دوم پسوند اون رو با دستور mid جدا مي كنه و با exe مقايسه مي كنه