تمت الإجابة حذف جميع الملفات داخل المجلد باكثر من مسار بسطر واحد

تم تحميل الصفحة في 1,9761727 ثانية
حذف جميع الملفات داخل المجلد باكثر من مسار بسطر واحد
الحالة
مغلق و غير مفتوح للمزيد من الردود.

FuuRy

Beginner Developer
rank
إنضم
20 مارس 2018
المشاركات
143
الإعجابات
98
النقاط
28
العمر
31
السلام عليكم ورحمه الله وبركاته

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

Dim dir As New DirectoryInfo("C:\Users\Fuury\Desktop\test")
For Each fn As FileInfo In dir.GetFiles
File.Delete(fn.FullName)
Next


================================

المقصد من هذا السطر

Dim dir As New DirectoryInfo("C:\Users\Fuury\Desktop\test")
أريد اضيف اكثر من مسار بسطر وأحد

ودمتو سالمين
 

[ZeR0]

Web Scraping Professional
rankrankrank
إنضم
26 مارس 2013
المشاركات
601
الإعجابات
704
النقاط
93
العمر
28
الإقامة
egYpt
تفضل هذا الحل البسبط

C#:
Dim dirs() As DirectoryInfo = {New DirectoryInfo("PATH1"), New DirectoryInfo("PATH2"), New DirectoryInfo("PATH3")}
        For Each dr In dirs
            For Each fn As FileInfo In dr.GetFiles
                File.Delete(fn.FullName)
            Next
        Next
 
الإعجابات: FuuRy

FuuRy

Beginner Developer
rank
إنضم
20 مارس 2018
المشاركات
143
الإعجابات
98
النقاط
28
العمر
31
تفضل هذا الحل البسبط

C#:
Dim dirs() As DirectoryInfo = {New DirectoryInfo("PATH1"), New DirectoryInfo("PATH2"), New DirectoryInfo("PATH3")}
        For Each dr In dirs
            For Each fn As FileInfo In dr.GetFiles
                File.Delete(fn.FullName)
            Next
        Next

لم يحذف الا مجلد وأحد
 

FuuRy

Beginner Developer
rank
إنضم
20 مارس 2018
المشاركات
143
الإعجابات
98
النقاط
28
العمر
31
تم الحل

If CheckBox1.Checked = True Then
Dim txtFilesArray As String() = IO.Directory.GetFiles("مسار", "*.*")

For Each p In txtFilesArray
Try
IO.File.Delete(p)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next

End If

If CheckBox2.Checked = True Then
Dim txtFilesArray1 As String() = IO.Directory.GetFiles("مسار ", "*.*")

For Each p In txtFilesArray1
Try
IO.File.Delete(p)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Next
End If
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل