16.COMコンポーネント
(1) 動作
button1を押すとファイル検索のダイアログが現れる。
(2) Visual Basicの書き方
Private Sub button1_Click()
Dim SHELL
SHELL = 0
Set SHELL = CreateObject("Shell.Application.1")
SHELL.FindFiles
Set SHELL = Nothing
End Sub
(3) Visual J++の書き方
private void button1_click(Object source, Event e)
{
shdoc401.Shell SHELL = new shdoc401.Shell();
SHELL.FindFiles();
SHELL = null;
}