eggist77

'test
'Read a text file

'iomode
Const ForReading = 1, ForWriting = 2, ForAppending = 8

txtFile = "txtfile.txt"

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(txtFile, ForReading)

eggist77

メモ帳,%windir%\System32\notepad.exe

eggist77

Option Explicit

'variable declaration
Dim crDir, f, line, ary, fName
Dim fso, wsh

Set fso = CreateObject("Scripting.FileSystemObject")
Set wsh = CreateObject("WScript.Shell")