डीआईआर विवरण
पहला फ़ाइल नाम देता है जो निर्दिष्ट पथनाम और विशेषताओं से मेल खाता है।
सरल डीआईआर उदाहरण
| 1 | MsgBox डिर ("") |
यह वर्तमान पथ पर पहला फ़ाइल नाम लौटाएगा।
डिर सिंटेक्स
वीबीए संपादक में, आप डिर फ़ंक्शन के लिए सिंटैक्स देखने के लिए "डीआईआर (" टाइप कर सकते हैं:
डिर फ़ंक्शन में 2 तर्क होते हैं:
पथनाम: [वैकल्पिक] एक निर्देशिका/फ़ोल्डर/ड्राइव का प्रतिनिधित्व करने वाला एक स्ट्रिंग अभिव्यक्ति।
गुण: [वैकल्पिक] फ़ाइल विशेषताएँ निर्दिष्ट करता है। यदि छोड़ा गया है, तो पथनाम से मेल खाने वाली फ़ाइलें लौटाता है लेकिन कोई विशेषता नहीं है।
NS गुण तर्क सेटिंग्स हैं:
| लगातार | मूल्य | विवरण |
|---|---|---|
| वीबीसामान्य | 0 | (डिफ़ॉल्ट) बिना विशेषता वाली फ़ाइलों को निर्दिष्ट करता है। |
| वीबीरीड ओनली | 1 | बिना विशेषता वाली फ़ाइलों के अलावा केवल-पढ़ने के लिए फ़ाइलें निर्दिष्ट करता है। |
| वीबीहिडन | 2 | बिना विशेषता वाली फाइलों के अलावा छिपी हुई फाइलों को निर्दिष्ट करता है। |
| वीबी सिस्टम | 4 | बिना विशेषता वाली फ़ाइलों के अतिरिक्त सिस्टम फ़ाइलें निर्दिष्ट करता है। Macintosh पर उपलब्ध नहीं है। |
| वीबीवॉल्यूम | 8 | वॉल्यूम लेबल निर्दिष्ट करता है; यदि कोई अन्य विशेषता निर्दिष्ट है,वीबीवॉल्यूम नजरअंदाज किया जाता है। Macintosh पर उपलब्ध नहीं है। |
| वीबीनिर्देशिका | 16 | बिना किसी विशेषता वाली फ़ाइलों के अतिरिक्त निर्देशिका या फ़ोल्डर निर्दिष्ट करता है। |
| vbAlias | 64 | निर्दिष्ट फ़ाइल नाम एक उपनाम है। केवल Macintosh पर उपलब्ध है। |
वीबीए प्रोग्रामिंग | कोड जेनरेटर आपके लिए काम करता है!
एक्सेल वीबीए डिर फंक्शन के उदाहरण
सी ड्राइव पर फ़ोल्डर्स और फाइलों को सूचीबद्ध करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं।
| 123456789101112131415161718192021222324 | उप Dir_Example ()मंद फ़ाइलनाम स्ट्रिंग के रूप मेंस्ट्रिंग के रूप में पूरा नाम मंद करेंरेंज के रूप में मंद rngडिम आई अस इंटीजरसेट आरएनजी = रेंज ("ए 1")फ़ाइल नाम = डीआईआर ("सी: \", vbDirectory)मैं = 1करनापूरा नाम = "सी:\" और फ़ाइल नामrng.Offset(i, 0) = fileNamerng.Offset(i, 1) = FileDateTime(fullName)rng.Offset(i, 2) = FileLen(fullName)rng.Offset(i, 3) = GetAttr(fullName)फ़ाइल का नाम = डिरअगर फ़ाइलनाम = "" तो बाहर निकलें Doमैं = मैं + 1कुंडलीअंत उप |
परिणाम निम्नलिखित के समान होगा।
एक्सेस वीबीए में वीबीए डिर फंक्शन
वीबीए डिर फ़ंक्शन एक्सेस वीबीए में उसी तरह काम करता है जैसे यह एक्सेल वीबीए में करता है।
| 123456789 | फ़ंक्शन CreateDirectory (स्ट्रिंग के रूप में strP) बूलियन के रूप मेंयदि लेन (Dir(strP, vbDirectory)) = 0 तबएमकेडीआईआर strPअगर अंतक्रिएट डायरेक्टरी = ट्रूसमारोह से बाहर निकलेंसमापन:CreateDirectory = गलतअंत समारोह |
