منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في عمل برنامج منظف للجهاز - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة في عمل برنامج منظف للجهاز (/showthread.php?tid=8373)

مساعدة في عمل برنامج منظف للجهاز - Adeeb alghamdi - 07-04-13

السلآم عليكم ورحمت الله وبركآته
آبغا كود
اليْ هو
مقلآ لو سويت " butten' اظن اسمه كذا
وضغطت عليه
ينمسح ملف انا محدده
اكود زي مثلا اكتب فيه مسار ملف ينمسح
بس مو ينمسح الملف نفسه ينمسح الي بداخله
مثلا ابي انظف الجهاز حقي
اروح امسح الي بداخل ملف " temp " صح؟
ايييه زي كذا
انا ابي اسوي برنامج منظف للجهاز
يمسح الملفات الزائده
ابي الكود الي احدد وش ينمسح
الله يوفقك وينجح من جآب لي الكود والله لا يهينكم
ما ابغا اتعبكم قدنيْ جديد بالمنتدى
وانا ما ودي اول موضوع يكون مساعده لي
اعذروننيْ !
والسلام عليكم
آخوكم .. أديب الغامدي Cool


مساعدة في عمل برنامج منظف للجهاز - Adeeb alghamdi - 08-04-13

افا والله ضروري ي شباب

مساعدة في عمل برنامج منظف للجهاز - 3amo - 08-04-13

السلام عليكم ورحمة الله
ارجوا ان يفيدك هذا المثال بالمرفقات:oلمسح مخلفات الجهاز
بالتوفيق

مساعدة في عمل برنامج منظف للجهاز - Adeeb alghamdi - 09-04-13

الله يعطيك ألف عافيه
بس ممكن الكود الي يحذف داخل ملف

مساعدة في عمل برنامج منظف للجهاز - 3amo - 09-04-13

إقتباس :بس ممكن الكود الي يحذف داخل ملف
لم أعرف ماذا تقصد بالظبط
ولاكن على مافهمت تريد كود حذف ملف
كود :
Kill  "c:\ test.txt"
اتمنى لك التوفيق
اخي Adeeb alghamdi
المرجوا الانتباه الى ماكتبته في توقيعك
لا إله إلا الله وحد لا شريك له . وليس لا شريط له .المرجوا تصحيحها
وجزاك الله خيرا

مساعدة في عمل برنامج منظف للجهاز - VB_Coder - 09-04-13

السلام عليكم

- يبدو أن الأخ أديب يقصد حذف الملفات الموجودة داخل مجلد معين . هذا كود يحذف جميع الملفات التي بداخل المجلد الذي ستحدد مساره على جهازك . غير المسار الموجود في الكود إلى مسار المجلد عندك :
كود :
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Command1_Click()

Dim Files As String

Files = Dir$("D:\AA\*.*")
DoEvents

Do While Len(Files)
              
   DeleteFile "D:\AA\" & Trim$(Files)
   DoEvents
                  
   Files = Dir$
   DoEvents
          
Loop

End Sub

- تحياتي .

مساعدة في عمل برنامج منظف للجهاز - Adeeb alghamdi - 10-04-13

يعطيك ألف ألف عافيه