[KSAm3lm]

السلام عليكم

لدي ملف ولا أريد حذفه

بل أريد حذف مافي داخله

مع تخطي الملفات اللتي لا تحذف ...

... وشكرا

[سعود]

هل تقصد حذف محتويات مجلد؟؟

[KSAm3lm]

(12-05-16, 09:21 PM)سعود كتب : هل تقصد  حذف محتويات مجلد؟؟

نعم
وتخطي الملفات اللتي لا تحذف

[سعود]

PHP كود :

           Dim dir As New DirectoryInfo(path to folder)
             For Each fl As FileInfo In dir.GetFiles
                Try
                    fl.Delete()
                    msgbox("Done")
                Catch ex As Exception
                   error message here
                End Try
            Next 


[KSAm3lm]

(12-05-16, 10:24 PM)سعود كتب :

PHP كود :

           Dim dir As New DirectoryInfo(path to folder)
             For Each fl As FileInfo In dir.GetFiles
                Try
                    fl.Delete()
                    msgbox("Done")
                Catch ex As Exception
                   error message here
                End Try
            Next 


اخي في 3 أخطاء
الاول

كود :

For Each fl As Fileinfo In dir.GetFiles

Fileinfo
فيها خطأ

كود :

Dim dir As New DirectoryInfo()

DirectoryInfo
والخطأ الثالث

كود :

error message here

اذا مسحت كلمة 
here
يروح الخطأ الثالث
اتمنى تحل الأخطاء واكون شاكرلك

[سعود]

اخي الكريم كتبت الحل على السريع
الخطا الثالث خله بمسج بوكس
msgbox("خطا")

اللي غيرها ليست اخطاء وانما يتوجب استدعاء فضاء الاسماء Imports System.IO

[KSAm3lm]

راحت الاخطاء كلها وجاني خطأ واحد اللي هو كلمة
Dir
في الكود
يقول
Overload resolution Failed Because no accessible 'New' accepts this number if arguments

سؤال اخر اين يتم تعيين مسار المجلد

---

اخي عندما اكتب في
patch to folder
علامتين التنصيص
""
تروح الاخطاء
اعتقد انه هذا هو مكان تعيين مسار المجلد المراد حذف محتوياته

---

وعندما اريد ان احذف محتويات مجلد اخر
تغير كلمة dir

---

شكرا على الشرح

[سعود]

patch to folder
اكتب مكانه مسار المجلد المراد حذف محتوياته

[bidaya]

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

[سعود]

PHP كود :

System.IO.File.WriteAllText(Path, "")