ВБА - Добијање свих информација о датотеци
Прелиминариес
- Отворите нову радну свеску
- Додајте модул
Ин модуле
'Декларишите променљиве за чаробњака. Публиц баллоон1 Ас Баллоон Публиц баллоон2 Као Балон Публиц баллоон3 Као Балон 'Могуће је користити таблицу умјесто' вишеструке изјаве, изабрао сам вишеструку опцију за 'код да буде експлицитнији' Публиц БаллоонМултипл (3) као балон 'Публиц Титле Као Стринг Јавна Порука Као Стринг Суб опенМессаге () 'Декларисати променљиве. Дим ВизардНаме Ас Стринг Дим ИсВисибле Ас Боолеан Дим Резултат као бајт 'Постави грешке као јасне Он Еррор Ресуме Нект Ерр.Цлеар' Меморисање тренутног имена чаробњака. ВизардНаме = Визард.Наме 'Ако чаробњак није видљив, поставите га као видљив Ако Визард.Висибле = Фалсе Тхен Визард.Висибле = Труе ИсВисибле = Фалсе Елсе ИсВисибле = Труе Енд ако' створите Визард балон. Сет баллоон2 = Визард.НевБаллоон Са баллоон2 'ставите наслов и питања. .Хеадинг = Наслов .Тект = Порука 'Поставља својства чаробњака. .БаллоонТипе = мсоБаллоонТипеБуттонс 'модални мод, као дефаулт. .Моде = мсоМодеМодал 'додели опцију Отказано на дугме, ОК је подразумевано. .Буттон = мсоБуттонСетОК Заврши са 'чекањем на избор До' Одабрано учињено Резултат = баллоон2.Схов 'Ако је дугме одабрано, заврши макро. Ако је Ерр 0 онда ако је ИсВисибле = Фалсе онда Визард.Висибле = Фалсе Енд Ако Енд Енд Ако Лооп Енд Суб Суб ДисплаиИнфоАццессФиле (спецфиле) 'Потребна нам је да је радна књига већ на хард диску. '------------------------------------------------- --- Дим фс, ф, с Постави фс = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт") Постави ф = фс.ГетФиле (спецфиле) с = УЦасе (спецфиле) & вбЦрЛф с = с & "Креирао:" & ф.ДатеЦреатед & вбЦрЛф с = с & "Ласт ацесс:" & ф.ДатеЛастАццессед & вбЦрЛф с = с & "Задња измјена:" & ф.ДатеЛастМодифиед & вбЦрЛф с = с & "Величина" & ф. & вбЦрЛф с = с & "Погон" & ф.Дриве & вбЦрЛф с = с & "Именик" & ф.ПарентФолдер Наслов = "Информације о датотеци:" & спецфиле Порука = с опенМессаге Енд Суб Ин схеет1 модуле
Привате Суб Ворксхеет_Ацтивате () Опсег ("Б5"). Валуе = "приказ информација о датотеци" Са АцтивеСхеет.Ранге ("Б5"). Фонт .Наме = "Ариал" .Сизе = 16 .ЦолорИндек = 5 .Болд = Труе Заврши колонама ("Б"). ЦолумнВидтх = 48 Крај Суб-Приватни Под Радни лист_СелецтионЦханге (БиВал Таргет Ас Ранге) Дим а, б $ а $ = АцтивеВоркбоок.Патх & "& АцтивеВоркбоок.Наме б $ = АцтивеВоркбоок.Наме Иф АцтивеЦелл.Аддресс = "$ Б $ 5" Затим АффицхеИнфоАццесФиле (АцтивеВоркбоок.Наме) Заврши ако заврши Суб