منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

كود :

Kill  "c:\ test.txt"

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

السلام عليكم

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

كود :

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

Adeeb alghamdi

3amo

Adeeb alghamdi

3amo

VB_Coder

Adeeb alghamdi