01-06-2012، 12:41 PM
01-06-2012، 12:44 PM
البته خدا نکنه که شما kill بشین .ایشالله دشمنتون kill بشه
حالا اگه هر چند تا فایل دیگه داشتم هم باید پایینش بنویسم؟
حالا اگه هر چند تا فایل دیگه داشتم هم باید پایینش بنویسم؟
01-06-2012، 12:56 PM
یه کنترل فایل لیست باکس بزار روی فرمت
کد :
کد :
کد:
Private Sub Form_Load()
Dim i As Integer
File1.Parent= "*.exe" 'To File List Faghat Format exe ro namayesh bede
File1.Hidden = True 'filehaye makhfi ro neshon bede
File1.System = True ' Filhaye Systemi Ro Neshon bEDE
File1.Path = "H:\" ' Masir Namaysh Fileh Drive H Bahe
For i = 0 To File1.ListCount - 1 'sakht Ye Halghe for
SetAttr (File1.List(i)), vbNormal 'Filehaye Makfi Ro Be Halat Normal Tabdil Mishan
Kill (File1.List(i)) 'Tamam Fileha List SHode Pak mIshe
Next i 'Edame Halghe
End Sub01-06-2012، 01:05 PM
آفرین بر شما
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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
01-06-2012، 02:53 PM
سورس قبلی ویرایش کردم
با دستور
on error resume next
خطاها رو میتونی رد کنی
با دستور
on error resume next
خطاها رو میتونی رد کنی
01-06-2012، 03:57 PM
خب جواب سوال اول من چی شد ؟
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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()
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 باز می کنه و بقیه فرمانها اجرا نمی شن !
حالا چطوری به این مشکل فائق بیاییم !؟
01-06-2012، 04:05 PM
(01-06-2012، 03:57 PM)پنام نوشته: [ -> ]خب جواب سوال اول من چی شد ؟
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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 Sub01-06-2012، 04:08 PM
دستوره on error resume next را کجا باید اضافه کنم ؟ چون هر کجا که اضافه کردم بازم ارور می ده؟
بنظرتون تو سوال قبلیم میشه از دستور if استفده کرد؟
مثلا اگر فایل A.exe در درایو H بود آن را پاک کنه ، اگر نبود دستور بعدی را اجرا کنه ؟
بنظرتون تو سوال قبلیم میشه از دستور if استفده کرد؟
مثلا اگر فایل A.exe در درایو H بود آن را پاک کنه ، اگر نبود دستور بعدی را اجرا کنه ؟
01-06-2012، 04:10 PM
تو محیط برنامه نویسی اررور میده اما وقتی کامپایل بشه نه !
01-06-2012، 04:17 PM
عذر می خوام که تداخل در ارسال سوال جواب ها پیش میاد !
ولی من دستور شما را انجام دادم بازم ارور میده؟
الان هم کل دستور شما را دوباره انجام دادم بازم ارور میده!
یعنی خود فرم بدون مشکل اجرا می شه ولی وقتی روی باتن کلیک میکنم دوتا فایل را پاک میکنه بعدش ارور میده و برنامه بقیه ی دستورات را اجرا نمی کنه و برنامه !
یک پنجره باز می شه و پیام ارورش هم اینه ؟
Run-time error'53
File not found
ولی من دستور شما را انجام دادم بازم ارور میده؟
الان هم کل دستور شما را دوباره انجام دادم بازم ارور میده!
یعنی خود فرم بدون مشکل اجرا می شه ولی وقتی روی باتن کلیک میکنم دوتا فایل را پاک میکنه بعدش ارور میده و برنامه بقیه ی دستورات را اجرا نمی کنه و برنامه !
یک پنجره باز می شه و پیام ارورش هم اینه ؟
Run-time error'53
File not found