您当前的位置: 我有一个目录是以日期命名的；如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.Close
Next
Sub MySub(str,strFile)
Select Case str
Case "x1"
WScript.Echo strFile & "口令:" & vbCrLf & "天王盖地虎!"
Case "x2"
WScript.Echo strFile & "口令:" & vbCrLf & "宝塔镇河妖!"
End Select
End Sub
------解决方案--------------------