質問: 1 to 9 objOut.WriteLine i next ' ********************************************************** ' ファイルクローズ ' ********************************************************** objOut.Close
回答: 以下にて解決 質問がわかりずらく失礼いたしました。 Option Explicit ' ********************************************************** ' オブジェクト作成 ' ********************************************************** Dim objFso:Set objFso = CreateObject("Scripting.FileSystemObject") Dim objShell:Set objShell = WScript.CreateObject("WScript.Shell") Dim bFind ' ********************************************************** ' ファイル作成用関数 ' ********************************************************** Function funcOpen(i, szFileName) 'msgbox FileName Dim szPath:szPath = WScript.ScriptFullName szPath = objFso.GetParentFolderName(szPath) Dim objOut:Set objOut = objFso.OpenTextFile(szPath & "\" & szFileName, 8, True) objOut.WriteLine i objOut.Close End Function ' ********************************************************** ' メイン処理 ' ********************************************************** Dim i, j Dim szFileA szFileA = "number.txt" Call funcFileDel(szFileA) for i = 0 To 9 Call funcOpen(i, szFileA) Next