Vba का उपयोग करके फ़ोल्डर कैसे हटाएं (उदाहरण के साथ)

आप फ़ोल्डरों को हटाने के लिए VBA में निम्नलिखित विधियों का उपयोग कर सकते हैं:

विधि 1: फ़ोल्डर की सभी फ़ाइलें हटाएँ

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

यह विशेष मैक्रो My_Data नामक फ़ोल्डर की सभी फ़ाइलों को हटा देगा।

विधि 2: संपूर्ण फ़ोल्डर हटाएँ

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

यह विशेष मैक्रो संपूर्ण My_Data फ़ोल्डर को हटा देगा ताकि यह अब मौजूद न रहे।

ऑन एरर रिज्यूम नेक्स्ट लाइन वीबीए को बताती है कि यदि कोई त्रुटि होती है और फ़ोल्डर नहीं मिलता है, तो कोई त्रुटि संदेश प्रदर्शित नहीं होना चाहिए।

फिर हम त्रुटि संदेशों को डिफ़ॉल्ट सेटिंग्स पर रीसेट करने के लिए On Error GoTo 0 का उपयोग करते हैं।

यदि आप फ़ोल्डर नहीं मिलने पर त्रुटि संदेश प्रदर्शित करना चाहते हैं, तो बस कोड से इन दो पंक्तियों को हटा दें।

निम्नलिखित उदाहरण दिखाते हैं कि My_Data नामक निम्नलिखित फ़ोल्डर के साथ व्यवहार में प्रत्येक विधि का उपयोग कैसे करें जिसमें तीन एक्सेल फ़ाइलें हैं:

उदाहरण 1: वीबीए का उपयोग करके फ़ोल्डर में सभी फ़ाइलें हटाएं

मान लीजिए कि हम My_Data नामक फ़ोल्डर से सभी फ़ाइलों को हटाने के लिए VBA का उपयोग करना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub DeleteFolderContents()
    
    On Error Resume Next
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    On Error GoTo 0

End Sub

एक बार जब हम इस मैक्रो को चलाते हैं और फ़ोल्डर को दोबारा खोलते हैं, तो हम देखेंगे कि सभी फ़ाइलें हटा दी गई हैं:

उदाहरण 2: वीबीए का उपयोग करके संपूर्ण फ़ोल्डर हटाएं

यदि आप My_Data नामक संपूर्ण फ़ोल्डर को हटाने के लिए VBA का उपयोग करना चाहते हैं ताकि यह अब मौजूद न रहे, तो आप निम्न मैक्रो बना सकते हैं:

 SubDeleteFolder ()
    
    On Error Resume Next
    
    'delete all files in folder
    Kill “ C:\Users\bobbi\Desktop\My_Data\*.* ”
    
    'delete empty folder
    RmDir " C:\Users\bobbi\Desktop\My_Data\ "
    
    On Error GoTo 0

End Sub

एक बार जब हम इस मैक्रो को चलाते हैं और फ़ाइल एक्सप्लोरर खोलते हैं, तो हम देखेंगे कि My_Data नामक फ़ोल्डर अब मौजूद नहीं है:

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: किसी कार्यपुस्तिका में शीटों की संख्या कैसे गिनें
वीबीए: किसी अन्य कार्यपुस्तिका से डेटा कैसे निकालें
वीबीए: यदि नाम में विशिष्ट पाठ है तो शीट को कैसे हटाएं