كيفية حذف مجلد بالكامل

اخي الفاضل

ماذا تعني بقتل مجلد

هل اخفائه ام حذفه ام قفله

حذفه الى الابد

الا تعرف

kill (path name)

انا جربت الكود واشتغل معايا لكن علي الملفات وليست المجلدات

بالشكل ده

Dim a
CD.ShowOpen
a = CD.FileName
Kill a

حيث cd هي CommonDialog

لكن مع مجلدات مش عارف اشغله

لما توصل يا ريت تفيدنا

بسم الله

دالة Kill لحذف الملفات فقط

لحذف مجلد استخدم

 RmDir (Path)

ولكن عيب هذه الدالة انه يجب ان يكون المجلد فارغ يعني ليس به ملفات

استخدم ذكائك للتعامل معها B)

اما اذا كان يوجد دوال API لحذف المجلدات فاكيد هذا هيكون افضل ولكني لا اعرفها

والله اعلم

مشكووور اخوي imer imam

اريد كود بحث مجلد او اي صيغة

حاولت اوصل لحل لكن ده الحل اللي وصلتله

Private Sub Command1_Click()
Kill "D:\a2\a2.doc"
RmDir "D:\a2"
End Sub

a2

هو اسم المجلد وهو برضه اسم الملف اللي جوه المجلد

بسم الله

الاخ tamer_kh_5251

كده انت ماشي في الطريق الصحيح وتفكيرك صحيح

بس هتحذف ملف ملف ؟ ؟ ؟

بس بالطريقة دي هتوصل ان شاء الله

شكرا لتشجعيك اخي الفاضل

في انتظار الحل بفضول شديد

السلام عليك اخي

تفضل ... مشروع مرفق

Ala2_VB___Delete_Folders.rar

الحمد لله كنت لسه هدرج مرفق فيه محاولة فاشلة وكان هيبقي شكلي وحشششششششششش اوي بالمقارنة بمرفق الاخ Ala2 vb

شكرا ala2 vb

وجزاك الله كل خير

بسم الله

اقتباس

وكان هيبقي شكلي وحشششششششششش

:lol: :lol: :lol:

يا عم وحش ايه بس هو حد اتعلم الا لما شكله بقى وحش ؟

خليها على الله

طريق اسهل

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Dim FolderName As String
FolderName = "c:\xx"
If fs.FolderExists(FolderName) Then
fs.DeleteFolder FolderName, True	'احذف المجلد مع وجود مجلدات به

End If

بسم الله

ياسلام عليك يا اخ طارق

ممكن بقى تشرح دالة CreateObject

وهذا حل اسهل واسهل

Private Sub Command1_Click()
Kill "C:\Documents and Settings\t.kalefa\Desktop\aa\*.*"
RmDir "C:\Documents and Settings\t.kalefa\Desktop\aa"
End Sub

ده برنامج عمتله حالا لنفس الغرض مع امكانية استعراض المجلدات

في انتظار ملاحظات الاخوة المحترفين

مع كامل الشكر والعرفان لصاحب العمل في الموديول

__________________________.rar

اقتباس

ممكن بقى تشرح دالة CreateObject

هذه الدالة بدل ما اعمل New وانا عشان الاختصار عملت هيك والمفروض اعمل

dim fs as Scripting.FileSystemObject

بدل

Dim fs As Object

و

set fs= new Scripting.FileSystemObject

بدل

Set fs = CreateObject("Scripting.FileSystemObject")

بالاضافة يجب ان نذهب الى references واضافة مرجع الى Microsoft Scripting runtime

اقتباس

Kill "C:\Documents and Settings\t.kalefa\Desktop\aa\*.*"

المشكلة في هذا الكود انه يحذف فقط ملفات اي اذا وجد مجلدات داخل المجلد سيفشل الحذف .

اقتباس

Dim fs As Object

Set fs = CreateObject("Scripting.FileSystemObject")

Dim FolderName As String

FolderName = "c:\xx"

If fs.FolderExists(FolderName) Then

fs.DeleteFolder FolderName, True 'احذف المجلد مع وجود مجلدات به

End If

مشكووووووور اخي طارق

اريد شرح مفصل جدا

Dim fs As Object

لا تقل بان object هو متغيير فانا لا افهم ما المقصود بذلك وارجو الشرح التفصيلي

يطلع خطا في كودك اخي طارق

وهو creatobject

إن التعليمة kill لا يمكن أن تحذف سوى ملفات وغير قادرة على إزالة المجلدات

ولكن يمكن إزالة مابداخل المجلد عن طريق كتابة التعليمة بالشكل kill "folder\*.*"

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

rmdir "folder"

ولكن اذا كان داخل الملف ملف اخر لا يقتله ولم يتم الحذف

بسم الله

الاخ طارق TareqVB

انا كان سؤالي اشرح دالة CreateObject مش قولي انت حاططها هنا ليه

لو سمحت اشرحها شرح مفصل شوية

كود الاخ طارق لا يعمل معي للاسف

الخطأ هو

creatobject

اتمنى من الاخ طارق الشرح مع وضع مرفق لان الكود لا يعمل معي