完全TXT内容
Private Sub Command4_Click()CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Input #1, n
Text1.Text = n
Close #1
End Sub
为什么不能读取txt全部内容？只读到一部分？请高手指点！
If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
