Question

如何用VB读写一个文件夹及子目录的TXT文件？

Answer 1

以前用得一个小工具。

Dim FileNames() As String '文件名列表数组，下标从1开始
Dim FileCount As Long '文件名列表中的文件名总数
Private Sub cmdChoose_Click()
Dim i As Long, y As Long, z As Long
With CommonDialog1
.Flags = cdlOFNAllowMultiselect '允许选择多个文件
.Filter = "HTM Files|*.htm;*.html|TXT Files|*.txt|All Suport Files|*.txt;*.htm;*.html;*.asp" '只显示常用的文件类型，可根据需要改变
.MaxFileSize = 10000 'FileName属性的最大长度，可根据需要改变
.ShowOpen '显示"打开文件"对话框
If .FileName = "" Then
'如选择了"取消"按钮，则将FileCount置为0并返回
FileCount = 0
Exit Sub
End If
.FileName = .FileName & " " '在FileName最后添加一个空格，以便处理
'以下从FileName属性中逐个读取文件名，并放入FileNames数组中
z = 1
y = 0
For i = 1 To Len(.FileName)
i = InStr(z, .FileName, " ")
If i = 0 Then
Exit For
End If
ReDim Preserve FileNames(y)
FileNames(y) = Mid(.FileName, z, i - z)
If y > 0 Then '如有多个文件，则在每个文件名前加上完整的路径
FileNames(y) = FileNames(0) & "\" & FileNames(y)
End If
z = i + 1
y = y + 1
Next i
If y = 1 Then '如FileName只包含一个文件名，则将其赋给FileName(1)
'并将FileCount置为1
ReDim Preserve FileNames(1)
FileNames(1) = FileNames(0)
FileCount = 1
Else '否则根据文件数确定FileCount的值
FileCount = y - 1
End If
End With
End Sub
Private Sub cmdOk_Click()
Dim i As Long
Dim j As Long
Dim Stand As Long
Dim Count As Long
Dim SearchString As String '搜索字符串
Dim ReplaceString As String '替换字符串
Dim StartPosition As Long '搜索字符串在文件中出现的位置
Dim SearchLength As Long '搜索字符串长度
SearchString = txtSearch.Text
ReplaceString = txtReplace.Text
SearchLength = Len(SearchString)
Count = 0
With RichTextBox1
For j = 1 To 20000 '设置每个文件完成替换数目的极大值
Stand = StartPosition '保存符合查找条件的字符串所在位置的原始值
For i = 1 To FileCount '以下依次处理FileNames数组中的文件
RichTextBox1.LoadFile FileNames(i), rtfText '读入文件
StartPosition = .Find(SearchString) '寻找搜索字符串
If StartPosition <> -1 Then '如果找到，则执行替换操作
.SelStart = StartPosition
.SelLength = SearchLength
.SelText = ReplaceString
.SaveFile FileNames(i), rtfText '写入文件
Count = Count + 1
End If
Next i
If StartPosition = Stand Then j = 20000 '如果经过一轮查找以后，相同字符串的位置没有发生变化，说明已经替换完毕，j=20000跳出循环。
Next j
End With
MsgBox "共查找" & FileCount & "个文件，" & Count & "处完成替换！", vbExclamation
End Sub

Answer 2

1.〔引用〕Microsoft scripting runtime
2.用如下代码较为简单
2.1我自定义了path_txt函数来查找文件夹中的txt文件
2.2用readandwrite函数定义了读写文件的操作语句
Private Sub path_txt(ByVal path As String)
Dim fso As New Scripting.FileSystemObject
Dim fd As Scripting.Folder
Dim fl As Scripting.File
Set fd = fso.GetFolder(path)
For Each fl In fd.Files
If fso.GetExtensionName(fl.path) = "txt" Then
readandwrite fl.path
End If
Next
End Sub
Private Sub readandwrite(path As String) '读写文件的语句
MsgBox "这里加入读写" & path & "文件的语句"
End Sub
3.使用方法
Private Sub Command1_Click()
path_txt "c:\windows\system32"
End Sub

如有需要，liukui2157@sohu.com

Answer 3

遍历文件夹，在找TXT文件。