主题：如何批量处理文件？

 参考下面例子，递归获取所有文件

下载信息  [文件大小：292.0 KB  下载次数：84]

点击浏览该文件:文件递归.table

内部函数

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)
    Dim Book1 As New XLS.Book(file)
    Dim Sheet1 = Book1.Sheets(0)
    For i As Integer = 0 To Sheet1.Rows.Count-1
        For j As Integer = 0 To Sheet1.Cols.Count -1
            If dic.ContainsKey(Sheet1(i, j).Text) Then
                Output.Show(Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text))
                Sheet1(i, j).value = Sheet1(i, j).Text & vbcrlf & dic(Sheet1(i, j).Text)
               
            End If
        Next
    Next
    '//保存
    Book1.Save(file)
Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("递归", p)
Next

调用

Dim file As String =  e.Form.Controls("TextBox1").value

Functions.Execute("递归", file)