निर्देशिका में निहित सभी फाइलों की सूची - वीबीए कोड उदाहरण

निर्देशिका में सभी फ़ाइल नामों की सूची बनाएं

निम्नलिखित कोड एक सबरूटीन है जो निर्देशिका पथ में मौजूद सभी फाइलों के नाम प्राप्त करेगा:

 उप List_All_The_Files_Within_Path () डिम Row_No इंटीजर डिम No_Of_Files के रूप में इंटीजर डिम kk25 के रूप में इंटीजर डिम File_Path स्ट्रिंग के रूप में File_Path = "C: My Documents" Row_No = 36 'एप्लिकेशन के साथ वर्तमान निर्देशिका में सभी फाइलों को सूचीबद्ध करता है। FileSearch .NewSearch .LookIn = File_Path.LookIn = .फ़ाइलनाम = "*.*" .SearchSubFolders = False .Execute No_Of_Files = .FoundFiles.Count for kk25 = 1 To No_Of_Files Worksheets("Sheet1"). Cells(kk25 + 5, 15).Value = .FoundFiles(kk25) Next kk25 अंत उप के साथ समाप्त 

यह कॉलम O में शीट 1 को फ़ाइल नाम लिखेगा - पंक्ति 36 . से शुरू
यहां एक्सेल फाइल डाउनलोड करें