آفرین بر شما
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
Private Sub Command_Click()
Kill ("H:\A.exe")
Kill ("H:\A.com")
Kill ("H:\A.inf")
Kill ("H:\A.bat")
Kill ("H:\A.dll")
Kill ("H:\A.ocx")
Kill ("H:\A.pry")
Kill ("H:\A.ovl")
Kill ("H:\A.sys")
End Sub
اما یه مشکلی که هست اینه که اگه بر فرض توی درایو H اگر بر فرض A.bat نباشه برنامه پنجره error باز می کنه و بقیه فرمانها اجرا نمی شن !
حالا چطوری به این مشکل فائق بیاییم !؟
من دستور شما را روی فرم وارد کردم اما بازم وقتی خواستم فرم را اجرا کنم دوباره همون ارور قبلی مبنی تعیین نکردن متغییر
روی File1 آبی می شه
File1.Parent = "*.exe" 'To File List Faghat Format exe ro namayesh bede
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
Private Sub Command_Click()
Kill ("H:\A.exe")
Kill ("H:\A.com")
Kill ("H:\A.inf")
Kill ("H:\A.bat")
Kill ("H:\A.dll")
Kill ("H:\A.ocx")
Kill ("H:\A.pry")
Kill ("H:\A.ovl")
Kill ("H:\A.sys")
End Sub
اما یه مشکلی که هست اینه که اگه بر فرض توی درایو H اگر بر فرض A.bat نباشه برنامه پنجره error باز می کنه و بقیه فرمانها اجرا نمی شن !
حالا چطوری به این مشکل فائق بیاییم !؟
من دستور شما را روی فرم وارد کردم اما بازم وقتی خواستم فرم را اجرا کنم دوباره همون ارور قبلی مبنی تعیین نکردن متغییر
روی File1 آبی می شه
File1.Parent = "*.exe" 'To File List Faghat Format exe ro namayesh bede