以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  合并txt  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96920)
--  作者：huhu
--  发布时间：2017/3/2 14:21:00
--  合并txt
如何通过选择某个目录。然后能把这个目录里面只要扩展名是txt的文本合并在一起。就是换行追加到后面。
当然根目录除了有独立的txt，也有可能包括很多文件夹，每个文件夹下又有可能包括很多文件夹。
希望能遍历到根目录下的所有txt合并为一个txt.
--  作者：有点色
--  发布时间：2017/3/2 16:00:00
--  

1、递归，这样你就能得到所有的文件路径

 

内部函数 listfile

 

Dim pth As String = args(0)
Dim nms As List(of String) = args(1)
For Each fl As String In filesys.GetFiles(pth)
    nms.add(fl)
Next
For Each dr As String In FileSys.GetDirectories(pth)
    Functions.Execute("listfile",dr.nms)
Next


调用函数：
dim nms As New List(of string)
Functions.Execute("listfile","c:\\data",nms)

 

2、循环nms，然后做你想做的操作

 

ReadAllText 读取文本文件的内容
WriteAllText 向文本文件中写入内容