[Amin_Mansouri]

خب جواب سوال اول من چی شد ؟
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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 باز می کنه و بقیه فرمانها اجرا نمی شن !
حالا چطوری به این مشکل فائق بیاییم !؟

سلام
دوست عزیز توی پست قبلی جوابتون رو دادم اینطوری میشه :

کد:

Private Sub Command_Click()
On Error Resume Next
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