Question

vb 读取某一目录下的所有文本文件

vb 读取某一目录下的所有文本文件，并读取目录，读取完毕后批量删除这个目录下面的所有文件，例如：
读取：E:\Program Files\叮叮科技\叮叮摩卡\接收记录\
下面的所有文本文件，读取后，返回文本内容，读取内容后，删除里面的所有文件，谢谢

Answer 1

在弹出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 <> ""
'Str2 = Left(Str1, InStr(Str1, ".") - 1)
txt_num = txt_num + 1
Str2 = Str1
Open mPath & Str2 For Binary As #txt_num '读取txt
txt_str = ""
txt_str = Space(LOF(txt_num))
Get #txt_num, , txt_str
MsgBox txt_str '弹出txt的内容
Close #txt_num
Kill mPath & Str2 '删除txt文件
Str1 = Dir
Loop
End Sub

Answer 2

http://wenwen.soso.com/z/q225094639.htm

这个是别人的，应该和你想要的，差不多，看看吧

Answer 3

关闭文件。

追问

如何实现

Answer 4

用FSO吧，