<SCRIPT language=VBScript>
' グローバル変数( 初期値は Empty )
Dim Fs
Function CreateActiveX()
if IsEmpty( Fs ) then
' グローバルなので、ページが変更されない ' 限りオブジェクトは保持されます
Set Fs = CreateObject( "Scripting.FileSystemObject" )
end if
' ローカル変数
Dim Fs2
' 関数が終了すると自動的に破棄されます
Set Fs2 = CreateObject( "Scripting.FileSystemObject" )
End Function
Function DestroyActiveX()
if not IsEmpty( Fs ) then
' この書き方で一応破棄されますが、ページが変更されても ' 破棄されるので、意図的に破棄する必要はほとんどありません
Set Fs = Nothing
Fs = Empty
end if
End Function
</SCRIPT>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
</HEAD>
<BODY>
<INPUT
type=button
name=ActButton
value="ActiveX の初期化" onClick='CreateActiveX()'
>
<INPUT
type=button
name=ActButton
value="ActiveX の解放" onClick='DestroyActiveX()'
>
</BODY>
</HTML>