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

अभ्यास कार्यपुस्तिका डाउनलोड करें

निम्नलिखित अभ्यास कार्यपुस्तिका डाउनलोड करें। यह आपको विषय को बेहतर ढंग से समझने में मदद करेगा।

DIR Function का परिचय

सारांश:

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

सिंटैक्स:

तर्क स्पष्टीकरण:

कुछ पूर्व हैं-परिभाषित विशेषताएं हैं, वे हैं-

एक्सेल में VBA DIR फ़ंक्शन का उपयोग करने के 7 उदाहरण

विवरण से, आप समझ गए होंगे कि VBA DIR फ़ंक्शन प्रदान करता है प्रदान किए गए पथनाम से फ़ाइल नाम। इसे उदाहरण से समझते हैं। यहां हमने आपको विभिन्न उदाहरण दिखाने के लिए एक निर्देशिका Exceldemy_Folder बनाई है। इस फोल्डर में अलग-अलग छोटे फोल्डर और फाइलें हैं। फ़ाइल नाम पथ घोषित करना।

फ़ाइल का पथ कॉपी करने के बाद, आपको कोड चलाने की आवश्यकता है।

इस कारण से, डेवलपर टैब >> विजुअल बेसिक चुनें। इसके बाद इन्सर्ट टैब >> मॉड्यूल चुनें। सामान्य संवाद बॉक्स में, हम कोड लिखते हैं।

जैसा कि हमारा एजेंडा <1 को खोजना है> फ़ाइल का नाम पथनाम से, हम सेट करेंगेपूर्ण पथनाम (मूल से फ़ाइल तक) और हमारा कोड होगा

2996

यहाँ हमारे कोड के भीतर, हमने पथनाम को E:\Exceldemy\Sales_of_January के रूप में सेट किया है। xlsx

कोड ब्रेकडाउन:

• शुरुआत में, हमने FN<नामक एक स्ट्रिंग वेरिएबल घोषित किया 2>। और Dir फ़ंक्शन का आउटपुट इस वेरिएबल में सहेजा गया था।
• अगला, Dir फ़ंक्शन फ़ाइल का नाम खोजता है और उसे दिए गए पथ से लौटाता है।<29
• फिर MsgBox संदेश बॉक्स के माध्यम से आउटपुट सेट करता है। MsgBox संदेश बॉक्स का उपयोग करके आउटपुट लौटाता है।

• फिर, F5 कुंजी

आखिरकार, हमें Sales_of_January.xlsx नाम की फ़ाइल मिली है।

2. एक निर्देशिका के अस्तित्व की जाँच करें

हम निर्देशक फ़ंक्शन का उपयोग करके निर्देशिका के अस्तित्व की जांच कर सकते हैं। Exceldemy फ़ोल्डर मौजूद है या नहीं, यह जांचने के लिए कोड लिखें। निम्नलिखित कोड को सामान्य बॉक्स में लिखें और इसे F5 कुंजी

6134

कोड ब्रेकडाउन के साथ चलाएं। :

• हमने दो चर घोषित किए हैं; PN में हमारी चेकिंग डायरेक्टरी का पूरा पाथनेम शामिल है।
• यहां Dir फंक्शन के भीतर, हमने दो वैल्यू, पाथनेम और एट्रीब्यूट सेट किए हैं मूल्य vbDirectory के रूप में। यह विशेषता मान निर्देशिका का पता लगाने में मदद करेगा। और इस Function का Output इसमें Store होता है फाइल वेरिएबल।
• फिर हमने चेक किया कि वेरिएबल खाली है या नहीं। यदि हम पाते हैं कि चर नहीं है, तो एक संदेश बॉक्स के माध्यम से निर्देशिका के अस्तित्व की घोषणा करें, अन्यथा, वापसी मौजूद नहीं है।

यहाँ, Exceldemy<21 निर्देशिका मौजूद है, इसलिए हम पाएंगे " एक्सेलडेमी मौजूद है ", जहां एक्सेलडेमी फ़ोल्डर का नाम है।

3. ऐसा फोल्डर बनाएं जो मौजूद नहीं है

आप ऐसा फोल्डर बना सकते हैं जो आपके पीसी पर मौजूद नहीं है। इसके लिए आपको एक पाथनेम बनाना होगा जो आपके फोल्डर में मौजूद नहीं है। आइए कल्पना करें कि हम Exceldemy_1 नामक एक निर्देशिका बनाने जा रहे हैं। हम डायरेक्टरी बनाने के लिए MkDir कमांड का उपयोग करेंगे, लेकिन इससे पहले, हमें निम्नलिखित VBA कोड लिखना होगा।

8479

यहां हमने अपने कोड के Else ब्लॉक से पाथनेम का उपयोग करके डायरेक्टरी बनाने के लिए एक कमांड लिखी है। कोड को F5 कुंजी से चलाएं ।

निर्देशिका बना दी गई है। आइए निर्देशिका फ़ोल्डर को देखें। Exceldemy_1 फ़ोल्डर अब आपके कंप्यूटर पर दिखाई दे रहा है।

समान रीडिंग:

• Excel में VBA में एक उप को कैसे कॉल करें (4 उदाहरण)
• VBA फ़ंक्शन में एक मान लौटाएं (सरणी और गैर-सरणी मान दोनों)<2
• Excel में VBA UCASE फ़ंक्शन का उपयोग करें (4 उदाहरण)
• इसमें TRIM फ़ंक्शन का उपयोग कैसे करेंएक्सेल में VBA (परिभाषा + VBA कोड)

4. किसी डायरेक्टरी से पहली फ़ाइल ढूँढें

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

आइए हमारे से पहली फ़ाइल ढूंढें एक्सेलडेमी निर्देशिका। हमारा कोड होगा

2843

आप मूल कोड देख सकते हैं; हमने पाथनेम को Dir फंक्शन में पास कर दिया है। अब F5 कुंजी के साथ कोड को चलाएं , आपको इस निर्देशिका में पहली फ़ाइल मिलेगी।

5. सभी का पता लगाएं निर्देशिका से फ़ाइलें

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

कोड निष्पादित करें, और आपको सभी फाइलें डायरेक्टरी में मिल जाएंगी, जैसा कि नीचे दी गई छवि में है।पिछले खंड में उल्लेख किया है कि सभी फाइलों को कहां खोजें। हम एक फोल्डर में सभी सब-फोल्डर भी ढूंढ सकते हैं। ऐसा करने के लिए, निम्न VBA कोड लिखें जिसे हमने नीचे संलग्न किया है।

6048

हमारे कोड में परिवर्तन केवल विशेषता पैरामीटर का उपयोग है। उस फील्ड में हमने vbDirectory का इस्तेमाल किया है। कोड को चलाएं और आपको Exceldemy_Folder की सभी फाइलें और सबफोल्डर मिल जाएंगे।

7 किसी विशिष्ट प्रकार की सभी फ़ाइलें खोजें

VBA Dir फ़ंक्शन का उपयोग करके, हम किसी विशेष प्रकार की फ़ाइल ढूंढ सकते हैं। आइए एक उदाहरण के साथ एक्सप्लोर करें।

हम अपनी निर्देशिका से .csv फ़ाइलें ढूंढने जा रहे हैं। हमारा कोड इस तरह होगा-

6760

हमें उम्मीद है कि आप कोड को समझ गए होंगे, जो फाइलों को खोजने के लिए एक समान तंत्र का उपयोग करता है। पथनाम में, हमने एक वाइल्डकार्ड ( * ) का उपयोग किया। यह तारक चिह्न (*) दर्शाता है कि कोई भी वर्ण किसी भी संख्या तक हो सकता है। वाइल्डकार्ड का उपयोग इस तरह से किया गया है कि फ़ाइल का नाम कुछ भी हो सकता है लेकिन .csv फ़ाइल होना चाहिए।

जब आप कोड चलाते हैं, तो यह वापस आ जाएगा। csv फ़ाइलें हमारी Exceldemy निर्देशिका से।

अभ्यास अनुभाग

हमने एक अभ्यास प्रदान किया है आपके अभ्यास के लिए दाईं ओर प्रत्येक शीट पर अनुभाग। कृपया इसे स्वयं करें।

निष्कर्ष

आज के सत्र के बारे में बस इतना ही। और ये कुछ आसान उदाहरण हैंएक्सेल में VBA Dir फंक्शन का। यदि आपके कोई प्रश्न या सुझाव हैं तो कृपया हमें टिप्पणी अनुभाग में बताएं। बेहतर समझ के लिए, कृपया अभ्यास पत्रक डाउनलोड करें। विभिन्न प्रकार के एक्सेल तरीकों के बारे में जानने के लिए हमारी वेबसाइट Exceldemy , एक-स्टॉप एक्सेल समाधान प्रदाता पर जाएँ। इस लेख को पढ़ने में आपके धैर्य के लिए धन्यवाद।