GetAttr विवरण
एक पूर्णांक देता है जो किसी फ़ाइल, फ़ोल्डर या निर्देशिका की विशेषताओं का प्रतिनिधित्व करता है।
सरल GetAttr उदाहरण
12 | MsgBox GetAttr ("सी: \")MsgBox GetAttr ("D:\Test.txt") |
यह फ़ाइल/फ़ोल्डर/ड्राइव की सेटिंग के अनुसार कुछ पूर्णांक लौटाएगा।
यदि पथ का नाम मौजूद नहीं है, तो यह एक रन-टाइम त्रुटि '53' उत्पन्न होगी: फ़ाइल नहीं मिली।
GetAttr सिंटेक्स
VBA संपादक में, आप GetAttr फ़ंक्शन के सिंटैक्स को देखने के लिए "GetAttr(") टाइप कर सकते हैं:
GetAttr फ़ंक्शन में एक तर्क होता है:
पथनाम: फ़ाइल/फ़ोल्डर/ड्राइव का प्रतिनिधित्व करने वाली एक स्ट्रिंग अभिव्यक्ति।
वापसी मान
द्वारा लौटाया गया मानGetAttr निम्नलिखित विशेषता मानों का योग है:
लगातार | मूल्य | विवरण |
---|---|---|
वीबीसामान्य | 0 | सामान्य। |
वीबीरीड ओनली | 1 | सिफ़ पढ़िये। |
वीबीहिडन | 2 | छिपा हुआ। |
वीबी सिस्टम | 4 | सिस्टम फ़ाइल। Macintosh पर उपलब्ध नहीं है। |
वीबीनिर्देशिका | 16 | निर्देशिका या फ़ोल्डर। |
वीबीआर्काइव | 32 | पिछले बैकअप के बाद से फ़ाइल बदल गई है। Macintosh पर उपलब्ध नहीं है। |
vbAlias | 64 | निर्दिष्ट फ़ाइल नाम एक उपनाम है। केवल Macintosh पर उपलब्ध है। |
एक्सेल VBA GetAttr फंक्शन के उदाहरण
1 | MsgBox GetAttr ("सी: \ प्रोग्राम फ़ाइलें (x86)") |
1 | MsgBox GetAttr ("सी: \") |
विभिन्न फ़ोल्डर/फ़ाइल/ड्राइव के साथ परीक्षण करते समय, यह विभिन्न नंबरों जैसे 1, 2, 5, 22 और इसी तरह वापस करेगा।
उदाहरण के लिए, 22 के मामले में, इसका अर्थ है vbDirectory(16) + vbSystem(4) + vbHidden(2)।
प्रत्येक संख्या के अनुरूप विशेषता सेटिंग्स प्राप्त करने के लिए, आप निम्न फ़ंक्शन का उपयोग कर सकते हैं।
12345678910111213 | फ़ंक्शन GetAttribute सेटिंग्स (VbFileAttribute के रूप में attr) स्ट्रिंग के रूप में:स्ट्रिंग के रूप में मंद strSettingsस्ट्रसेटिंग्स = ""अगर (attr और vbDirectory) = vbDirectory तो strSettings = strSettings & "&Directory"अगर (attr और vbVolume) = vbVolume तो strSettings = strSettings & "&Volum"अगर (attr और vbAlias) = vbAlias तो strSettings = strSettings & "&Alias"अगर (attr और vbArchive) = vbArchive तो strSettings = strSettings & "&Archive"अगर (attr और vbHidden) = vbHidden तो strSettings = strSettings & "&Hidden"अगर (attr और vbReadOnly) = vbReadOnly तो strSettings = strSettings & "&ReadOnly"अगर (attr और vbSystem) = vbSystem फिर strSettings = strSettings & "&System"GetAttributeSettings = Mid(strSettings, 2)अंत समारोह |
1 | MsgBox GetAttribute सेटिंग्स(22) |
परिणाम: "निर्देशिका और छिपी और प्रणाली"