دلاوران
جمعه 15 مرداد 1389, 12:12 عصر
این قطعه کد علاوه بر اینکه در خط اول با کد 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
تقدیم به وفاداران صلح و دوستی
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
تقدیم به وفاداران صلح و دوستی