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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود لحذف ملفات مجلد (/showthread.php?tid=15025)



كود لحذف ملفات مجلد - عيسى ابو ارميس - 07-03-16

قمت بتصميم برنامج لتنظيف ملفات المؤقتة من الجهاز لدي ولكن حصل عطل بالكمبوتر الشخصي ولكن انا ابعث لكم نموذج مصغر , أريد كود لحذف ملفات مجلد مع بيان مدى تقدم عملية الحذف وشكرا


RE: كود لحذف ملفات مجلد - Fantastico - 08-03-16

قم بتعديل هذا الكود ليعمل على VB6.0

PHP كود :
Const CommonText As String "Deleting file : "

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Dim folder 
As String TextBox1.Text
        Dim items
() As String System.IO.Directory.GetFileSystemEntries(folder)
        
ProgressBar1.Maximum UBound(items) + 1
        ProgressBar1
.Value 0
        
For Each item As String In items
            Label1
.Text CommonText item
            Dim file 
As New System.IO.FileInfo(item)
            If 
item.Contains("."Then
                file
.Delete()
            Else
                
System.IO.Directory.Delete(file.FullNameTrue)
            
End If

            
ProgressBar1.Value += 1
        Next
End Sub 



RE: كود لحذف ملفات مجلد - Ahmed_Mansoor - 08-03-16

أهلا أخي الكريم , تم التعديل .


RE: كود لحذف ملفات مجلد - عيسى ابو ارميس - 08-03-16

أريد كود لحذف ملفات الفرعية داخل المجلد مع بيان مدى تقدم عملية الحذف ولكن يبقى المجلد الرئيسي موجود , عذرا أنا أخطات في الكتابة السابقة


RE: كود لحذف ملفات مجلد - Ahmed_Mansoor - 09-03-16

أهلا أخي الكريم , في المرفقات .