VBS クラス（CLASS）の使用

ＣＬＡＳＳに定義した情報を呼び出す場合は、生成したオブジェクト名.（変数名やメソッド名）で呼び出します。

'クラスを定義します。
CLASS SAMPLE

    Private Fso

    Private Sub Class_Initialize
        Set Fso    = CreateObject("Scripting.FileSystemObject")
    End Sub

    Public Function FOpenWrite(strFilePath,objFile)

        On Error Resume Next
        Select Case Fso.FileExists(strFilePath)
        Case True
                Set objFile = Fso.OpenTextFile(strFilePath, ForWriting)
                Set FOpenWrite = Err.Number
        Case False
            Wscript.Echo "This File Not Exists"
            Set FOpenWrite = -1
    End Select

        On Error Goto 0

    End Function

    Public Function FClose(objFile)
        On Error Resume Next
        objFile.Close
        Set FClose = Err.Number
        On Error Goto 0
    End Function

    Private Sub Class_Terminate
        Set Fso    = Nothing
    End Sub

END CLASS

'ここから処理

Dim objFSO
Dim objWFile

'クラスを生成
Set clsFSO = New SAMPLE

'ファイルを開く
IF 0 = clsFSO.FOpenWrite("c:\temp\sample.txt",objWFile) Then

    '処理をする

    'ファイルを閉じる
    clsFso.FClose objFile
End If

'クラスを初期化
Set clsFSO = Nothing