file - vbscriptの関数からファイルハンドルを返す

Question

テキストファイルを作成して開くvbscript関数があります。関数からファイル ハンドルをコードの本体に戻したい。残念ながら、オブジェクトがこのプロパティまたはメソッドをサポートしていませんというエラーが表示されます。

最終的には、ファイルのオープン、書き込み、読み取り、およびクローズの機能を備えたデバッグ スクリプトを作成するコードをセットアップします。次に、このスクリプトを別の vbscript ファイルにインポートして、デバッグ目的で使用できます。しかし、まず、以下のコードを機能させる必要があります。

前もって感謝します。

コードは次のとおりです。

Function OpenFileWrite(sDirectory, sFile)
    Dim objFSO 'As FileSystemObject
    Dim objTextFile 'As Object

    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 8

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' Check that the strDirectory folder exists
    If objFSO.FolderExists(sDirectory) Then
            Set objFolder = objFSO.GetFolder(sDirectory)
    Else
            Set objFolder = objFSO.CreateFolder(sDirectory)
            WScript.Echo "Just created " & sDirectory
    End If

    If objFSO.FileExists(sDirectory & "\" & sFile) Then
            Set objFile = objFSO.GetFile(sDirectory & "\" & sFile)
    Else
            Set objFile = objFSO.CreateTextFile(sDirectory & "\" & sFile)
            Wscript.Echo "Just created " & sDirectory & "\" & sFile
    End If

    Set objTextFile = objFSO.OpenTextFile(sDirectory & "\" & sFile, ForWriting, True)

    OpenFileWrite = objTextFile

End Function

sDirectory = "\"
sFile = "debug.txt"

Set ObjFile = OpenFileWrite(sDirectory, sFile)