Преглед садржаја
Наведите сва имена датотека у именику
Следећи код је потпрограм који ће добити имена свих датотека присутних на путањи директоријума:
Суб Лист_Алл_Тхе_Филес_Витхин_Патх () Дим Ров_Но Ас Интегер Дим Но_Оф_Филес Ас Интегер Дим кк25 Ас Интегер Дим Филе_Патх Ас Стринг Филе_Патх = "Ц: Моји документи" Ров_Но = 36 'Наводи све датотеке у тренутном директоријуму помоћу Апплицатион.ФилеСеарцх .НевСеарцх. .Филенаме = "*.*" .СеарцхСубФолдерс = Фалсе .Извршите Но_Оф_Филес = .ФоундФилес.Цоунт Фор кк25 = 1 То Но_Оф_Филес Ворксхеетс ("Схеет1"). Целлс (кк25 + 5, 15) .Вредност = ФоундФилес (кк25) Нект кк25 Енд Витх Енд Суб
Записаће имена датотека у Схеет1 у колону О - почевши од реда 36
Преузмите Екцел датотеку овде
