vbscript - ファイル内を検索する VBscript

Question

私は vbscript の初心者で、ftp 経由でダウンロードしたいくつかのファイルを検索したいと考えています。ファイルをダウンロードするスクリプトを実行しましたが、スクリプトを実行してすべてのファイルを検索する方法がわかりません。これは私が持っているものですが、select case ステートメントを使用する必要があると考えています。

このコードが雑に見えたらごめんなさい

Sub ReadDownloads()

Dim strInput As String
strInput = "file\path\somefile.ftp"

Dim dhigh, dclose, dlow

Close #1
Open strInput For Input As #1

  Input #1, strReadLine
  Input #1, strReadLine


While Not EOF(1)
    Input #1, strReadLine
    'Debug.Print strReadLine
    arrbreakdown = Split(strReadLine, " ")
    'Debug.Print arrbreakdown(1)
    If Left(arrbreakdown(1), 7) = "itemsearchingfor" Then
        If Mid(arrbreakdown(1), 8, 1) = "c" Then
            dclose = arrbreakdown(3)
        ElseIf Mid(arrbreakdown(1), 8, 1) = "h" Then
            dhigh = arrbreakdown(3)
        ElseIf Mid(arrbreakdown(1), 8, 1) = "l" Then
            dlow = arrbreakdown(3)
        End If
    End If


Wend
Close #1

Debug.Print dclose
Debug.Print dhigh
Debug.Print dlow

Range("D2").Value = dclose
Range("E2").Value = dhigh