主题：批量写入数据问题

 1、设计一个内部函数，名称为lsitfile，代码：

Dim pth As String = args(0)
For Each fl As String In filesys.GetFiles(pth)
    output.show(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr)
Next

2、

Functions.Execute("listfile","c:\data")

上述的代码可以在命令窗口列出指定目录下的所有文件，包括子目录下的文件，您可以稍作修改自用。