VBA-VB6 - सभी निर्देशिका फ़ाइलों को पढ़ें

Scripting.FileSystemObject फ़ंक्शन Application.FileSearch को बदलता है जो अब Office 2007 से उपलब्ध नहीं है

एक निर्देशिका में सभी छवि फ़ाइलों को संग्रहीत करने के तरीके पर एक उदाहरण।

एक मॉड्यूल में चिपकाएँ:

 विकल्प स्पष्ट डिम डेटा () डिम NBdata As Integer 'Optenir tout les fichiers d'un répertoir et éventuellement des sous-répertoirs' Si SousRep = true 'Le' लेटेपरोइट स्रोत doit être dans Rep Public Function LireRpertoir (VV Repal Asal) बूलियन) इंटेगर डिम ओज के रूप में, रेपप, एफ, एस, एसएफ, एफ 1, एफ्सीस डिम आईज एंग्जर, एक्सट्रीम एज़ स्ट्रींग डिम केम स्ट्रिंगिंग डिम टी ऐज डबल 'ऍप्लिकेशन। पतिपॉइंट = 13' पॉज़ वीबी 6 सेट ओब्ज = क्रेटऑब्जेक्ट ("स्क्रिप्टिंग) .FileSystemObject ") सेट RepP = Obj.Getfolder (प्रतिनिधि) Chem = Rep: यदि राइट (Chem, 1)" \ "तो Chem = Chem &" \ "Set sf = RepP.subfolder सेट F = RepP.Files GoSub RempliData 'सेट करें लेस फिशियर्स डु रैपरटोइर प्रिंसिपल अगर सॉसेप तो 'लेस फिशर्स डेस सूस-रेपरॉइटिर्स फॉर ए फैस इन ए प्रफुल्स इन एसएफ सेट रेपेस = फसी सेट एफ = रेप.फिल्स गोसुब स्टॉपिडाटा नेक्स्ट फसी एंड एग्जिट फंक्शन' ************* ************************************************** ********* रेप्लिडेटाटा: एफ 1 में प्रत्येक एक्स के लिए = एलसीज़ (राइट (F1.Name, 3)) यदि एक्स्ट = "bmp" या एक्सटी = "जेपीजी" तो 'हद' n एड एडाप्टर रीमिड प्रोटेक्ट डेटा (5, NBdata) डेटा (0, NBdata) = F1.Name Data (1, NBdata) = F1.ParentFolder और "\" & F1.Name Data (2, NBdata) = F1.DateCreated डेटा (3, NBdata) = F1.DateLastAccessed Data (4, NBdata) = F1.DateLastModified T = F1.Size यदि T <99999 है तो डेटा (5, NBdata) = T & B / ElseIf T <999999 फिर डेटा (5) एनबेटा) = राउंड (टी / 1000, 1) और "को" एल्स डेटा (5, एनबीडीटा) = राउंड (टी / 1000000, 1) और "मो" एंड अगर एनबेटा = एनबेटा + 1 एंड अगर अगला एफ 1 एंड एंड फंक्शन 

• यह फाइलों के बारे में जानकारी भी स्टोर कर सकता है।
• आवश्यकतानुसार अनुकूलित होना।