テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル

メモ

428 ：名無しさん＠勉強中 ★：06/01/02 16:22:35 ID:???

メモ（キャッシュにしか残ってないみたいなので）

http://66.102.7.104/search?q=cache:Ib0H9u2ObMEJ:nacelle.info/wsh/15006.php+wsh+%E8%A1%8C%E6%95%B0%E3%82%92&hl=ja

test.txtのファイルの行数を表示
−−−−−−−−−−−−−−−−−−−−−−−−−−−
Option Explicit
Dim objFS, objTS
Dim intLine
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile("test.txt", 1)
intLine = 0
Do While Not objTS.AtEndOfStream
objTS.SkipLine
intLine = intLine + 1
Loop
objTS.Close
WScript.Echo intLine
−−−−−−−−−−−−−−−−−−−−−−−−−−