Question

VB文本框读取文件夹内文件

按一个按钮，文本框中显示C盘2文件夹里的IN7.txt文件
然后按“保存”按钮，把文本框中的内容存入OUT7.TXT文件
具体编程~

Answer 1

Private Sub cmdLoad_Click()
'先把In7.txt 读取字符串中
Dim strIn$, strText$
strText = ""
Open "C:\In1\In7.text" For Input As #1
Do While Not EOF(1)
Line Input #1, strIn
strText = strText & strIn & vbCrLf
Loop
Close #1

Open "C:\In2\In7.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strIn
strText = strText & strIn & vbCrLf
Loop
Close #1

Text1.Text = strText
End Sub

'保存文件
Private Sub cmdSave_Click()
Open "C:\Out\Out7.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Answer 2

直接导入文件即可，有什么难得 （菜单栏）