主题：如何提取目录下的文件到EXCEL报表

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim r As Integer = 1
For Each file As String In FileSys.GetFiles(ProjectPath & "文件目录")
    Dim Ifo As new FileInfo(file)
    If Ifo.hidden=False Then
        sheet(r,0).value = filesys.getname(file)
        r += 1
    End If
Next

Book.Save("c:\test.xls")

获取所有的文件名，需要用递归函数去处理，

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

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

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

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(0, 0).Value = "文件名"
Dim r As Integer = 1

Dim FilePath As WinForm.TextBox = e.Form.Controls("TextBox1")

If FileSys.DirectoryExists(FilePath.Value) Then
    Functions.Execute("文件名提取函数", FilePath.Text, Sheet, r)
End If

Book.Save("c:\reports\test.xls")

---------------------------------

Dim path As String = args(0)
Dim Sheet As XLS.Sheet = args(1)
Dim r As Integer = args(2)

For Each file As String In FileSys.GetFiles(path)
    Dim Ifo As new FileInfo(file)
    If Ifo.hidden=False Then
        sheet(r,0).value = filesys.getname(file)
        r += 1
    End If
Next

For Each p As String In FileSys.GetDirectories(path)
    Functions.Execute("文件名提取函数", p, Sheet, r)
Next