07-03-16, 11:36 PM
قمت بتصميم برنامج لتنظيف ملفات المؤقتة من الجهاز لدي ولكن حصل عطل بالكمبوتر الشخصي ولكن انا ابعث لكم نموذج مصغر , أريد كود لحذف ملفات مجلد مع بيان مدى تقدم عملية الحذف وشكرا
07-03-16, 11:36 PM
08-03-16, 01:41 AM
قم بتعديل هذا الكود ليعمل على VB6.0
PHP كود :
Const CommonText As String = "Deleting file : "
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.FullName, True)
End If
ProgressBar1.Value += 1
Next
End Sub
08-03-16, 11:09 AM
أهلا أخي الكريم , تم التعديل .
08-03-16, 03:29 PM
أريد كود لحذف ملفات الفرعية داخل المجلد مع بيان مدى تقدم عملية الحذف ولكن يبقى المجلد الرئيسي موجود , عذرا أنا أخطات في الكتابة السابقة
09-03-16, 12:59 AM
أهلا أخي الكريم , في المرفقات .