dim strFileName as string
strFileName = inputbox( "请输入你喜欢的文件名")
open "c:\" & strFileName for output as #1
print #1 , Text1.text,text2.text
close #1
strFileName = inputbox( "请输入你喜欢的文件名")
open "c:\" & strFileName for output as #1
print #1 , Text1.text,text2.text
close #1
我的msn: myfend@