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

السلام عليكم ورحمة الله وبركاته


اريد حذف كل هذه الفولدرات دفعة واحدة  ماعدا هذا الفولدر لا أحذفه

تحقق من الاسم قبل الحذف كمثال:

(15-06-19, 07:40 PM)سعود كتب : [ -> ]تحقق من الاسم قبل الحذف كمثال:

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dir As New DirectoryInfo(TextBox1.Text)
        For Each d As DirectoryInfo In dir.GetDirectories
            If d.Name.ToString.ToLower <> "default" Then
                d.Delete()
            End If
        Next
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            TextBox1.Text = fbd.SelectedPath
        End If
    End Sub 


الله يكرمك أخى سعود ويبارك بعمرك...
مش بيحذفهم كلهم فهناك ملفات وفولدرات بتظل داخل الفولدر ولا اعرف ما السبب

اعمل For على الملفات

(15-06-19, 07:59 PM)سعود كتب : [ -> ]اعمل For على الملفات

PHP كود :

For each fl as fileinfo in dir.getfiles("*.*") 


بالفعل حذف كل الملفات ماشاء الله عليك.......
لكن هناك مجلدات مش بتتحذف وانا اريد حذف كل الفولدرات ايضا ماعدا الفولدر السابق ذكره

إقتباس :لكن هناك مجلدات مش بتتحذف

ممكن تكون محمية مؤقتا او .... لاادري
الم تظهر رسالة خطأ بكون المجلد محمي او مستخدم من قبل عملية اخرى؟

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

(15-06-19, 08:51 PM)سعود كتب : [ -> ]

PHP كود :

d.Delete(True) 


الله يرضى عليك أخى سعود ويبارك بعمرك وصحتك ووقتك يارب فعلا نجحت.....
انا اسف طلب أخير لو تسمح
ازاى احذف بقى كل هذه الملفات والفولدرات المتعلم عليها داخل المجلد هذا واترك فقط بداخلة هذين الملفين ؟
اعتذر تعبتك معايا لكنه عشم فى كرمك ..

إقتباس :ازاى احذف بقى كل هذه الملفات والفولدرات المتعلم عليها داخل المجلد هذا واترك فقط بداخلة هذين الملفين ؟

بصراحة لا اعرف
لكن باذن الله ان ياتي احد لديه معرفة بالكود.
وسابحث ان شاء الله تعالى.
هل النظام ويندوز 10؟