【マクロ】　UWSC　Part3　【シェアウェア化】

【マクロ】　UWSC　Part3　【シェアウェア化】 at SOFTWARE

503:名無しさん＠お腹いっぱい。
07/09/20 16:08:58 Jp674UjV0
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
を参考にフォルダ選択ダイアログを出してみた。

Const BIF_RETURNONLYFSDIRS = $1
Shell = createoleobj("Shell.Application")
f = Shell.BrowseForFolder(0,"フォルダ選択",BIF_RETURNONLYFSDIRS)
msgbox(f.Items.Item.Path)

次ページ

続きを表示

1を表示