怎么样加快写TXT的速度？
有一个collection，里面有15万条记录，现在要把这些记录输出的txt文档
Open FilePath For Append As #FileNo
For i = 1 To colSaleFile.count
string1= col.item(i)
Print #FileNo, string1
Next
Close #FileNo
这样写的话，输出整个文档需要20多分钟，改用FileSystemObject中的TextStream的write方法也要近20分钟，还有其他能更快速输出到txt的方法吗？
[解决办法]
Open FilePath For Append As #FileNo
For i = 1 To colSaleFile.count
string1=string1 & col.item(i)
if i mod 100 =0 then
Print #FileNo, string1
string1=""
end if
Next
Print #FileNo, string1
Close #FileNo
[解决办法]
这得看你文件有多大, 程序并不能帮你突破硬件的限制,
或者你先在内存里建立一个虚拟磁盘往上面写这个文件看看极限速度是多少吧,
如果往虚拟磁盘上输出这个文件的时间远远小于在物理磁盘上输出的时间,那就说明确实是硬件限制了.
或许到那时你只能换个固态硬盘了.
