VBA डिलीट फाइल - VBA कोड का उपयोग करके फ़ोल्डर में फ़ाइलें कैसे हटाएं?

विषय - सूची

VBA कोड का उपयोग करके फाइलें कैसे हटाएं?

VBA में हम VBA कोड्स का उपयोग करके कंप्यूटर में मौजूद किसी भी फाइल को डिलीट कर सकते हैं और किसी भी फाइल को डिलीट करने के लिए उपयोग किए जाने वाले कोड को किल कमांड के रूप में जाना जाता है, किसी भी फाइल को डिलीट करने का तरीका यह है कि हम फाइल का रास्ता प्रदान करते हैं, जिसका अर्थ है फ़ाइल कंप्यूटर में स्थित है और फिर हम फ़ाइल को हटाने के लिए किल कमांड का उपयोग करते हैं।

VBA कोड का उपयोग करके फाइलें कैसे हटाएं?

VBA शुरुआत में एक कठिन चीज है, लेकिन जैसा कि आप VBA के साथ अधिक समय बिताते हैं, आप मेरी तरह इसे प्यार करना शुरू कर देंगे। हम एक कंप्यूटर के दूसरे फ़ोल्डर से फाइलें खोल सकते हैं, हम उनके साथ काम कर सकते हैं, और अब हम VBA कोडिंग का उपयोग करके फ़ाइलों को हटा सकते हैं। इस लेख में, हम आपको दिखाएंगे कि आप विशिष्ट फ़ोल्डर में VBA कोड का उपयोग करके फ़ाइलों को कैसे हटा सकते हैं।

जब हम बड़ी परियोजनाओं के साथ काम कर रहे होते हैं, तो हम आमतौर पर अपनी प्रक्रिया का समर्थन करने के लिए बहुत सारी मध्यवर्ती फाइलें बनाते हैं। सभी काम पूरा होने के बाद, हमें भविष्य में किसी भी तरह के भ्रम से बचने के लिए उन फ़ाइलों को हटाने की आवश्यकता है।

और एक परिदृश्य तब है जब हम आमतौर पर एक ईमेल प्राप्त करते हैं। हम अपने नियमित काम के लिए अटैचमेंट सहेजते हैं, या हम केवल उस समय के लिए रिपोर्ट देखना चाहते हैं, और बाद में हमें उन फ़ाइलों को हटाने की आवश्यकता हो सकती है।

उन फ़ाइलों को मैन्युअल रूप से हटाने में समय लगेगा, या हम सहेजना भूल सकते हैं, और यह हमारे कंप्यूटर पर स्थान पर कब्जा कर लेगा। हम आपको सरल VBA कोड वाली उन फ़ाइलों को हटाने का तरीका दिखाएंगे।

VBA कोड का उपयोग करके फ़ोल्डर में फ़ाइलों को हटाने के लिए विधि को मारें

एक साधारण KILL फ़ंक्शन फ़ोल्डर, विशिष्ट फ़ाइल, सभी एक्सेल फ़ाइलों आदि को हटा देगा, VBA में KILL पद्धति के सिंटैक्स पर एक नज़र डालें। मारने की विधि केवल-पढ़ने वाली फ़ाइलों को हटा नहीं सकती।

पथ का नाम: पथ नाम कुछ और नहीं बल्कि फाइलों को हटाने के लिए कंप्यूटर में फ़ोल्डर पथ है।

नोट: Pathname में वाइल्डकार्ड वर्ण भी शामिल हो सकते हैं। एक्सेल में वाइल्डकार्ड वर्णों के रूप में हम एक तारांकन चिह्न (*) और प्रश्न चिह्न (?) का उपयोग कर सकते हैं।

तारांकन (*) किसी भी लंबाई के किसी भी तार से मेल खाने के लिए उपयोगी है, यहां तक कि शून्य माना जाता है।

प्रश्न चिह्न (?) केवल एक वर्ण से मेल खाने के लिए उपयोगी है।

विशेष रूप से फ़ाइल नाम हटाएं

उदाहरण के लिए, मेरे पास नीचे की तरह एक फ़ोल्डर है।

इस फ़ोल्डर में, मैं "फ़ाइल 5" नाम की फ़ाइल को हटाना चाहता हूं। कोड को KILL फ़ंक्शन से प्रारंभ करें।

कोड:

सब डिलीट_फाइल्स () किल (पाथनाम) एंड सब

फ़ोल्डर पथ को कॉपी और पेस्ट करें।

और डबल-कोट्स में पेस्ट करें।

मार "ई: एक्सेल फ़ाइलें"

अब एक और बैकवर्ड स्लैश () डालें और एक्सटेंशन के साथ फाइल का नाम डालें।

मार "ई: एक्सेल फ़ाइलें File5.xlsx"

जब आप इस कोड को चलाते हैं, तो यह उल्लेखित फ़ोल्डर पथ में "फ़ाइल 5.xlsx" नामक फ़ाइल को हटा देगा।

सभी एक्सेल फाइलें डिलीट करें

VBA का उपयोग करके फ़ोल्डर में सभी एक्सेल फ़ाइलों को हटाने के लिए, हमें KILL फ़ंक्शन के साथ वाइल्डकार्ड वर्णों का उपयोग करने की आवश्यकता है। फ़ोल्डर पथ का उल्लेख करने के बाद, हमें फ़ाइल को "* .xl *" के रूप में उल्लेख करना होगा।

कोड:

"E: Excel Files *। Xl *" को मारें

जब आप इस कोड को चलाते हैं, तो यह फ़ोल्डर की सभी एक्सेल फाइल को हटा देगा।

हमने देखा है कि कैसे हम एक एकल एक्सेल फाइल और सभी एक्सेल फाइल को हटा सकते हैं। लेकिन अगर हम फ़ोल्डर की सभी फाइलों को हटाना चाहते हैं, तो हम इसे कैसे हटा सकते हैं। चूंकि हम एक्सेल VBA का उपयोग कर रहे हैं, क्या यह अन्य फ़ाइलों को हटा सकता है?

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

कोड:

मार "ई: एक्सेल फ़ाइलें *।"

केवल संपूर्ण फ़ोल्डर हटाएं

क्या पूरे फ़ोल्डर को स्वयं हटाना संभव है?

हाँ यह संभव है।

ऐसा करने के लिए, पहली चीज जो हमें करने की आवश्यकता है, वह है कि हमें KILL फ़ंक्शन का उपयोग करके और फिर फ़ोल्डर को हटाने के लिए फ़ोल्डर की सभी फ़ाइलों को हटाने की आवश्यकता है, और हमें RmDir नामक एक और फ़ंक्शन का उपयोग करने की आवश्यकता है ।

कोड:

RmDir "E: Excel फ़ाइलें "

यहां RmDir केवल खाली फ़ोल्डर को हटा देगा यदि कोई सबफ़ोल्डर वह है जहां यह उन्हें हटा नहीं सकता है।

फ़ोल्डर में सभी पाठ फ़ाइलें हटाएँ

फ़ोल्डर में सभी पाठ फ़ाइलों को हटाने के लिए, नीचे दिए गए कोड का उपयोग करें।

कोड:

"E: Excel Files * txt" को मारें

केवल पढ़ने के लिए फ़ाइलें हटाएँ

जैसा कि मैंने बताया KILL फ़ंक्शन फ़ोल्डर में "केवल पढ़ने के लिए" फ़ाइलें हटा नहीं सकता है। ऐसी स्थिति में, हमें अन्य दो फ़ंक्शंस "Dir $" और "SetAttr" फ़ंक्शंस का उपयोग करने की आवश्यकता है। नीचे केवल-पढ़ने के लिए फ़ाइलों को हटाने के लिए उदाहरण कोड है।

कोड:

सब Delete_Files1 () डिलीट डिलीट के रूप में डिम डिलीटफाइल = "E: Excel Files " यदि लेन (डीआर $ (डिलीट फ़ाइल))> 0 फिर सेटएट्रिट डिलीट, vbNormal Kill DeleteFile अंत यदि सब