初学者提问：vb怎样对多个文件进行批处理

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:44:31
一个文件夹中有很多文件 编出了针对单个文件的处理程序 怎样让它遍历文件夹，一个一个文件地处理？
文件夹中有很多TXT文件，我已经编出来对一个文件的处理程序，可是怎样加入一些语句 让他可以自动处理这个文件夹中所有的TXT文件

我所说的处理就是找到每个文件，然后按照我先前编好的程序执行挑出每个文件中我所需要的内容

Option Explicit
Dim SrcPath As String, DstPath As String

Private Sub Command1_Click() '选择源文件夹
Dim objDlg, objF
Set objDlg = CreateObject("Shell.Application")
Set objF = objDlg.BrowseForFolder(&H0, "选择源文件夹：", &H1)
If InStr(1, TypeName(objF), "Folder", vbTextCompare) > 0 Then
SrcPath = objF.self.Path
Else
MsgBox "目录无效！"
End If
Set objDlg = Nothing
Set objF = Nothing
End Sub

Private Sub Command2_Click() '开始批量转换
Dim i As Integer, s As String, BB() As Byte, FileName As String
FileName = Dir(SrcPath & "\*.txt")
Do While FileName <> ""
ReDim BB(FileLen(SrcPath & "\" & FileName) - 1)
Open SrcPath & "\" & FileName For Binary As #1
Get #1, , BB
Close #1
s = StrConv(BB, vbUnicode)
s = Replace(s, ",,", vbNewLine & vbNewLine & " ")
s = Rep