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

我的一个文件夹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")
Next


function 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

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

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