小弟我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)

我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)。
我的一个 文件夹abc中有 500个记事本文件(名字分别为1.txt,2.txt,3.txt,4.txt 等等)。每个大约有 500字,我怎么把每一读出呀。例如，把他们分别赋给变量 a1,a2,a3,a4 等等，分别对应。

[解决办法]
用数组来存这些文字，不要用单一变量
下面是范例，请灵活使用
取出的时候，用txtfile(1-500)来取

VBScript code

Dim txtfile '定义数组For x = 1 to 500     txtfile(x) = FSOFileRead("abc/" & x & ".txt")Nextfunction FSOFileRead(filename)     Dim objFSO,objCountFile,FiletempData     Set objFSO = Server.CreateObject("Scripting.FileSystemObject")     Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)         FSOFileRead = objCountFile.ReadAll         objCountFile.Close     Set objCountFile=Nothing     Set objFSO = Nothing End Function