在弹出txt内容那里你可以用字符型数组保存起来Private Sub Command1_Click()
Dim Str1 As String, Str2 As String, mPath As String, i As Integer, txt_str As String
Dim txt_num As Integer
txt_num = 0
mPath = "E:\Program Files\叮叮科技\叮叮摩卡\接收记录\"
'路径设置
Str1 = Dir(mPath & "*.txt")
'查找类型
Do While Str1""
...