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