VBA حذف الملف | كيفية حذف الملفات في المجلد باستخدام كود فبا؟
في VBA ، يمكننا حذف أي ملف موجود على الكمبيوتر باستخدام أكواد VBA والرمز المستخدم لحذف أي ملف يعرف باسم Kill command ، وطريقة حذف أي ملف هي أولاً ، نحن نقدم مسار الملف الذي يعني أين الملف موجود في الكمبيوتر ثم نستخدم أمر Kill لحذف الملف.
كيفية حذف الملفات باستخدام كود فبا؟
VBA هو الشيء الصعب في البداية ولكن مع قضاء المزيد من الوقت مع VBA ، ستبدأ في حبه مثلي تمامًا. يمكننا فتح الملفات من مجلد آخر بجهاز الكمبيوتر ، ويمكننا العمل معهم ، والآن يمكننا حذف الملفات أيضًا باستخدام تشفير VBA. في هذه المقالة ، سنوضح لك كيف يمكنك حذف الملفات باستخدام VBA Code في المجلد المحدد.
عندما نعمل مع مشاريع كبيرة ، فإننا ننشئ عادةً الكثير من الملفات الوسيطة لدعم عمليتنا. بعد الانتهاء من كل العمل ، نحتاج إلى حذف هذه الملفات لتجنب أي نوع من الالتباس في المستقبل.
وأحد السيناريوهات هو عندما نتلقى عادةً بريدًا إلكترونيًا نحفظ المرفقات لعملنا المعتاد أو نريد فقط رؤية التقرير لتلك النقطة الزمنية وبعد ذلك قد نحتاج إلى حذف هذه الملفات.
سيستغرق حذف هذه الملفات يدويًا بعض الوقت أو قد ننسى الحفظ وسيشغل المساحة على جهاز الكمبيوتر الخاص بنا. سنوضح لك كيفية حذف هذه الملفات برموز VBA البسيطة.
طريقة القتل لحذف الملفات في مجلد باستخدام كود فبا
ستعمل وظيفة KILL البسيطة على حذف المجلد ، والملف المحدد ، وجميع ملفات Excel ، وما إلى ذلك. ألق نظرة على صيغة طريقة KILL في VBA. طريقة القتل لا يمكنها حذف ملفات القراءة فقط.
اسم المسار : اسم المسار ليس سوى مسار المجلد في الكمبيوتر لحذف الملفات.
ملاحظة: يمكن أن يتضمن اسم المسار أحرف البدل أيضًا. يمكننا استخدام علامة النجمة (*) وعلامات الاستفهام (؟) كأحرف بدل في Excel.
تعتبر علامة النجمة (*) مفيدة لمطابقة أي سلسلة بأي طول حتى يتم اعتبار الصفر.
علامة الاستفهام (؟) مفيدة لمطابقة حرف واحد فقط.
حذف اسم ملف معين
على سبيل المثال ، لدي مجلد مثل أدناه.
في هذا المجلد ، أريد حذف الملف المسمى "ملف 5". ابدأ الكود بوظيفة KILL.
رمز:
الفرعي Delete_Files () اقتل (PathName) End Sub
انسخ والصق مسار المجلد.
والصق بين علامتي اقتباس مزدوجتين.
اقتل "E: \ Excel Files"
الآن ضع شرطة مائلة أخرى للخلف (\) وأدخل اسم الملف بالملحق.
اقتل "E: \ Excel Files \ File5.xlsx"
عند تشغيل هذا الرمز ، سيتم حذف الملف المسمى "ملف 5.xlsx" في مسار المجلد المذكور.
احذف جميع ملفات Excel
لحذف جميع ملفات Excel في المجلد باستخدام VBA ، نحتاج إلى استخدام أحرف البدل مع وظيفة KILL. بعد ذكر مسار المجلد ، نحتاج إلى ذكر الملف كـ “* .xl *”
رمز:
اقتل "E: \ Excel Files \ *. xl *"
عند تشغيل هذا الرمز ، سيؤدي ذلك إلى حذف جميع ملفات Excel الموجودة في المجلد.
لقد رأينا كيف يمكننا حذف ملف Excel واحد وجميع ملفات Excel. ولكن إذا أردنا حذف جميع الملفات الموجودة في المجلد ، فكيف يمكننا حذفها. نظرًا لأننا نستخدم Excel VBA ، فهل يمكنه حذف الملفات الأخرى؟
الجواب نعم!!! استخدم الكود أدناه لحذف جميع الملفات الموجودة في المجلد.
رمز:
اقتل "E: \ Excel Files \ *. *"
حذف المجلد بأكمله فقط
هل من الممكن حذف المجلد بأكمله؟
نعم هذا ممكن.
للقيام بذلك ، فإن أول شيء يتعين علينا القيام به هو أننا بحاجة إلى حذف جميع الملفات الموجودة في المجلد باستخدام وظيفة KILL ، ثم لحذف المجلد ، نحتاج إلى استخدام وظيفة أخرى تسمى RmDir .
رمز:
RmDir "E: \ Excel Files \"
هنا سيحذف RmDir المجلد الفارغ فقط ، إذا كان هناك أي مجلد فرعي ، فلا يمكن حذفه.
احذف جميع الملفات النصية في المجلد
لحذف جميع الملفات النصية في المجلد ، استخدم الكود أدناه.
رمز:
اقتل "E: \ Excel Files \ *. txt"
حذف ملفات للقراءة فقط
كما قلت ، لا يمكن لوظيفة KILL حذف ملفات "للقراءة فقط" في المجلد. في مثل هذه الحالة ، نحتاج إلى استخدام الوظيفتين الأخريين "Dir $" و "SetAttr". يوجد أدناه مثال على الكود لحذف ملفات القراءة فقط أيضًا.
رمز:
Sub Delete_Files1 () Dim DeleteFile As String DeleteFile = "E: \ Excel Files \" If Len (Dir $ (DeleteFile))> 0 ثم SetAttr DeleteFile، vbNormal Kill DeleteFile End If End Sub
يمكنك تنزيل VBA Delete File Excel Template من هنا - VBA Delete File Excel Template
