ライブラリの中に
13_ファイル関連　→　01_テキストファイル操作　→　テキストファイル読込(1行)
があるのですが、使い勝手が悪いので作成したライブラリを投稿します。

13_ファイル関連　→　04_ファイル一覧　→　ファイルリスト作成（拡張子指定）
にてファイルリストを作成し、そのファイルリストを1行ずつ読み込んで
処理を行うといったシナリオに利用できます。

ループ処理でカウントアップしながら使用することを考えたものです。
参考まで。

<サンプルスクリプト>
Dim JLine
Dim objTN
Dim myJLine
Dim Cnum
Dim Dnum
Dim objFso
Dim objJList
Dim arrJLines

JLine = !行カウント!
objTN = !テキスト名!

' カウント数字を取得
myJLine = CInt(JLine)
Dnum = myJLine - 1

' テキストファイル取得
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objJList = objFso.OpenTextFile(objTN)

' 指定カウント行まで行をスキップ
For Cnum = 1 To Dnum
objJList.SkipLine
Next

' 指定カウント行を読込
arrJLines = objJList.ReadLine
SetUMSVariable $対象1行$, arrJLines
objJList.Close

Set objFso = Nothing
Set objJList = Nothing