C.1 オートメーションメソッドのサンプルプログラム

以下に、VBScriptの例を示します。斜体で表されている文字列は任意に変更してください。

Sub NVDemo()
         Dim objNavi As Object
         Dim objView As Object

         Set objNavi = CreateObject("ListNavi.Application")
         Set objView = CreateObject("ListViewer.Application")
         'リストナビを表示します。
         objNavi.ShowApp
         '最大化表示します。
         objNavi.Maximize
         '元のサイズに戻します。
         objNavi.Restore
         'リスト管理サーバへの接続ダイアログボックスを表示します。
         objNavi.Connect "UserID", "", "Server", 1
         'すべて選択します。
         objNavi.SelectAllItem
         'リストビューアを起動します。
         objView.Open (objNavi.GetOpenFilename())
         'リストビューアを表示します。
         objView.ShowApp
         'ウィンドウサイズを変更します。
         objView.Size 400, 300
         'リストビューアを最大表示します。
         objView.Maximize
         '処理を終了します。
         objNavi.Disconnect
         objNavi.Quit
         objView.Quit
End Sub

注意

実行するマクロの文法や仕様については、VBScriptのマニュアルを参照してください。