'!TITLE "<File>"

Sub Main 

	Dim m_ctrl as Object	' CaoControllerオブジェクト用
	Dim m_File as Object	' CaoRobotオブジェクト用

	' 接続
	m_ctrl = cao.AddController("RC", "CaoProv.DENSO.NetwoRC", "", "conn=eth:10.6.235.60")

	' Robotの生成
	m_File =  m_ctrl.AddFile("Pro1.pac", "")

	' ファイルの内容取得
	Dim vntValue as Variant
	vntValue = m_File.Value


	' 切断
	m_ctrl.Files.Remove m_File.Index
	cao.Controllers.Rmove m_ctrl.Index
End Sub