vbs怎么读取指定目录下的所有文本_vbScript

vbs如何读取指定目录下的所有文本
我有一个目录是以日期命名的；如2010-1-25
目录下有8个文件，每个文件第一行都是不同的关键字，假设是：
文件1，第一行内容：x1
文件2，第一行内容：x2
我的想法是，写一个循环，读取这个日期名目录下的所有文件（文本），如果是X1的就调用相关的命令。
因为我的脚本是根据每一个文件用不同的处理，不想用多数组来解决，想用多次循环来解决，各位朋友有什么好的方法不？

------解决方案--------------------------------------------------------

VBScript code

    sFolder = "2010-1-25"Set OFSO = CreateObject("Scripting.FileSystemObject")Set oFolder = oFSO.GetFolder(sFolder)For Each x In oFolder.Files    Set oFile = oFSO.OpenTextFile(x.Path)    MySub ofile.ReadLine,x.Path    oFile.CloseNextSub MySub(str,strFile)    Select Case str        Case "x1"            WScript.Echo strFile & "口令:" & vbCrLf & "天王盖地虎!"        Case "x2"            WScript.Echo strFile & "口令:" & vbCrLf & "宝塔镇河妖!"    End SelectEnd Sub
------解决方案--------------------------------------------------------
探讨
请问如果这个X1不在第一行，需要把所有的文件有X1的都显示出来，怎么做呢？