比如d:\中有个1.txt,里面有很多行
要怎么读取1.txt中的所有数据,并把这些数据原封不动写到textbox中,就是说1.txt中哪个地方有换行textbox中哪个地方就换行
然后再通过另一个按钮把textbox中的内容写到d:\2.txt中,使2.txt中的内容和1.txt中的内容一样

open

text1 MultiLine 设置为 True
  
  Do
  Input #sngFilePost, strRead
  strOut = strOut & strRead & Chr(13) & Chr(10)  'Chr(13) & Chr(10) 回车换行
  Loop Until EOF(1)
  Text1.Text = strOut