OpenApp.Path&”\test.txt”ForOutputAs#1Print#1,”这是第1行”Print#1,”这是第2行”Print#1,”这是第3行”Close#1
或者可以这样:
DimsAsStrings=”这是第1行”&vbCrLf&”这是第2行”&vbCrLf&”这是第3行”OpenApp.Path&”\test.txt”ForOutputAs#1Print#1,sClose#1
注:你没有说VB的版本,这里是VB6的
首页 >
OpenApp.Path&”\test.txt”ForOutputAs#1Print#1,”这是第1行”Print#1,”这是第2行”Print#1,”这是第3行”Close#1
或者可以这样:
DimsAsStrings=”这是第1行”&vbCrLf&”这是第2行”&vbCrLf&”这是第3行”OpenApp.Path&”\test.txt”ForOutputAs#1Print#1,sClose#1
注:你没有说VB的版本,这里是VB6的