إنشاء مجلد و حذفه بإستعمال الكود

[صالح حمادي]

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

أخوتي و أساتذتي الكرام حياكم الله.

هذا الكود يقوم بالإستكشاف عن هل الملف موجود أم لا في المسار المحدد و يطلع رسالة في حالة وجودة و في حالة عدم و جوده يقوم بإنشاءه

Dim curPath As String
curPath = "f:\1997"
If Dir(curPath) = "" Then
MkDir (curPath)
Else
MsgBox "المجلد موجود مسبقا"
End If

لكن المشكلة أن هذا الكود يقوم بتنفيذ الأمر الأول فقط إنشاء مجلد و عندما جربته على ملفات أخرى (xlxs) مثلا يعمل بشكل جيد

Kill (curPath)

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

أنا في إنتظار مساعدتكم جزاكم الله خير الجزاء

انشاء مجلد و حذفه.rar

[jjafferr]

السلام عليكم

 

الطريقة الصحيحة في استخدام الدالة Dir

https://www.techonthenet.com/access/functions/file/dir.php

ولكن من تجربتي ، فهذه الدالة بطيئة نوعا ما في البحث عن ملف/مجلد في الشبكة

 

الدالة Kill هي لحذف الملفات وليس المجلدات ،

بينما الدالة RmDir هي لحذف المجلدات الفارغة ، اما اذا كانت هناك ملفات في المجلد ، فيجب حذف الملفات قبل حذف المجلد ،

الرابط التالي فيه امثلة 

http://www.rondebruin.nl/win/s4/win004.htm

 

ولكن ، الملفات والمجلدات التي يتم حذفها بالدوال اعلاه ، تُحذف نهائيا ، ولكن اذا اردت حذفها الى سلة المهملات ، فاستخدم الوحدة النمطية في الرابط التالي:

http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.html

 

 

جعفر

[صالح حمادي]

شكرا جزيلا أستاذي القدير جعفر

لقد تمت الفائدة

بارك الله لك و عليك و جعل مثواك الجنة إن شاء الله أنت و جميع أعضاء هذا المنتدى الرائع

[jjafferr]