[Adeeb alghamdi]

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

[Adeeb alghamdi]

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

[3amo]

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

[Adeeb alghamdi]

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

[3amo]

إقتباس :بس ممكن الكود الي يحذف داخل ملف

لم أعرف ماذا تقصد بالظبط
ولاكن على مافهمت تريد كود حذف ملف

كود :

Kill  "c:\ test.txt"

اتمنى لك التوفيق
اخي Adeeb alghamdi
المرجوا الانتباه الى ماكتبته في توقيعك
لا إله إلا الله وحد لا شريك له . وليس لا شريط له .المرجوا تصحيحها
وجزاك الله خيرا

[VB_Coder]

السلام عليكم

- يبدو أن الأخ أديب يقصد حذف الملفات الموجودة داخل مجلد معين . هذا كود يحذف جميع الملفات التي بداخل المجلد الذي ستحدد مساره على جهازك . غير المسار الموجود في الكود إلى مسار المجلد عندك :

كود :

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]

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