今回からテキストファイルの処理を紹介します。まずはシンプルなテキストの先頭10行を出力するプログラムです。 Option Explicit Dim fso, args set fso = CreateObject("Scripting.FileSystemObject") set args = WScript.Arguments Const MAXLEN = 10 ReadFile args(0) WScript.Quit sub ReadFile( filename ) dim linecount, ofile, line linecount = 0 if fso.FileExists( f…