VBS（VBScript）によるテキストファイルの頭から指定された個数の文字を読み取る方法を紹介
頭から指定された個数の文字を読み取る方法
サンプルソース
以下のファイル内容の、頭から４文字を読み取る方法
（入力）
Dim fs
Dim fi
Dim s
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fi = fs.OpenTextFile("g:\test.txt")
s = fi.Read(4)
WScript.Echo "'" & s & "'"
（出力）
