+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Python (http://parsicoders.com/forumdisplay.php?fid=46)
+--- موضوع: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور (/showthread.php?tid=1030)
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - Amin_Mansouri - 01-06-2012
درود
اینطوری پاک میکنیم
کد:
Kill ("H:\amin.exe")RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - پنام - 01-06-2012
البته خدا نکنه که شما kill بشین .ایشالله دشمنتون kill بشه
حالا اگه هر چند تا فایل دیگه داشتم هم باید پایینش بنویسم؟
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - Amin_Mansouri - 01-06-2012
یه کنترل فایل لیست باکس بزار روی فرمت
کد :
کد:
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 SubRE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - پنام - 01-06-2012
آفرین بر شما
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - Amin_Mansouri - 01-06-2012
سورس قبلی ویرایش کردم
با دستور
on error resume next
خطاها رو میتونی رد کنی
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - پنام - 01-06-2012
خب جواب سوال اول من چی شد ؟
من دستور زیر را نوشتم و اجرا کردم که خدا را شکر کار کرد !
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 باز می کنه و بقیه فرمانها اجرا نمی شن !
حالا چطوری به این مشکل فائق بیاییم !؟
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - Amin_Mansouri - 01-06-2012
(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 SubRE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - پنام - 01-06-2012
دستوره on error resume next را کجا باید اضافه کنم ؟ چون هر کجا که اضافه کردم بازم ارور می ده؟
بنظرتون تو سوال قبلیم میشه از دستور if استفده کرد؟
مثلا اگر فایل A.exe در درایو H بود آن را پاک کنه ، اگر نبود دستور بعدی را اجرا کنه ؟
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - Amin_Mansouri - 01-06-2012
تو محیط برنامه نویسی اررور میده اما وقتی کامپایل بشه نه !
RE: سورس کد باز کردن پوشه از طریق ویندوز اکسپلور - پنام - 01-06-2012
عذر می خوام که تداخل در ارسال سوال جواب ها پیش میاد !
ولی من دستور شما را انجام دادم بازم ارور میده؟
الان هم کل دستور شما را دوباره انجام دادم بازم ارور میده!
یعنی خود فرم بدون مشکل اجرا می شه ولی وقتی روی باتن کلیک میکنم دوتا فایل را پاک میکنه بعدش ارور میده و برنامه بقیه ی دستورات را اجرا نمی کنه و برنامه !
یک پنجره باز می شه و پیام ارورش هم اینه ؟
Run-time error'53
File not found