VB如何生成多个txt文件呢??

DIM A AS INTEGER
FOR A=0 TO 100
OPEN "C:\" & A & ".TXT" FOR APPEND AS #1
PRINT #1, "FILE " & A
CLOSE #1
NEXT A

function writetxt (filename as string,currenttxt as string)
filename ="c:\" & filename & ".txt"
'filename要生成的文件名 currenttxt当前写入的文件内容.
open filename for output As #1
print #1, currenttxt
close #1
end functiong

sub xxx
...
'定义rs为recorder,并生成记录集,
...
rs.movefirst
while not rs.eof
call writetxt rs.filds("文章标题").value ,rs.filds("文章").value
rs.movenext
loop
'关闭记录集等
end sub

批处理很容易