Question

在VB中怎么搜索自定义文件并读取它的内容,最后修改它的内容

假设TEXT1.text输入的文字A，然后再在C盘里面搜索A.TXT文件，然后读取A.TXT文件的内容，与TEXT2.TXT输入的内容对照，如果内容是一样的就不修改，如果内容不一样，就在文件的最后加上一段话。

Answer 1

Private Sub Command1_Click()
tf = "c:\" & Text1.Text & ".txt"
If Dir(tf) <> "" Then
Open tf For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
Text1.Text = Text1.Text & strTxt & vbCrLf
Close #1
End If
If Text1.Text <> Text2.Text Then
Open App.Path & "\1.txt" For Append As #1
Print #1, "加一段什么话?";
Close #1
End If
End Sub

追问

不对啊，老是报错..

追答

'不好意思哈,另外这段代码不包含搜索子目录,如果需要的话可以再追问
Dim tf$
Private Sub Command1_Click()
If Dir(tf) "" Then
Open tf For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, strTxt
s = s & strTxt & vbCrLf
Loop
Close #1
End If
Text1.Text = s
If Text1.Text Text2.Text Then
Open tf For Append As #1
Print #1, "加一段什么话?"
Close #1
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
tf = "c:\" & Text1.Text & ".txt"
End Sub