'Option Explicit
Sub Main

	' プロバイダのコントロールの取得
	set oCtrl = cao.AddController("RC1","CaoProv.Dummy", "", "")

	' ファイルの取得
	set oFile = oCtrl.AddFile("PRO1.PAC")
	Msgbox oFile.Value

	' 内容の変更
	oFile.Value = "PROGRAM PRO1" & vbCrLf & "END"

	' ファイルの再取得
	Msgbox oFile.Value

End Sub