小吳 VBQA 程式設計討論

請問以下三種讀取資料的方法,何者讀比較快??
1) 用 OPEN:
Data=""
　Open "File.txt" for input as #1
　Do While Not EOF(1)
　　Line Input#1,str$
　　Data=Data & Str$
　Loop
2) 用FileSystemObject
Data=""
　Set fs = CreateObject("Scripting.FileSystemObject")
　Set a = fs.OpenTextFile("file.txt", ForReading)
　Do While Not a.atendofline
　　Data = Data & a.ReadLine
　Loop
　a.Close
2) 用FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
　Set a = fs.OpenTextFile("file.txt", ForReading)
　Data = a.ReadAll
　a.Close