VB.NET 遍历文件夹里所有的txt并放在一个文件夹里 10
我有一个文件夹,名字叫做aa文件夹里有b文件夹、c文件夹、d.txtb文件夹里有e文件夹、f文件夹、g.txtc文件夹里有h文件夹、i文件夹、j.txt大概就是这样的一个...
我有一个文件夹,名字叫做a
a文件夹里有b文件夹、c文件夹、d.txt
b文件夹里有e文件夹、f文件夹、g.txt
c文件夹里有h文件夹、i文件夹、j.txt
大概就是这样的一个结构,很奇葩。
我现在需要写一个程序,能把a文件夹(包括他的子文件夹)里面的txt文件全部都提取出来
【上面的那个文件结构,不一定永远都是那样,只是举个例子,除了a文件夹名字叫a以外,a文件夹里的结构是未知的】 展开
a文件夹里有b文件夹、c文件夹、d.txt
b文件夹里有e文件夹、f文件夹、g.txt
c文件夹里有h文件夹、i文件夹、j.txt
大概就是这样的一个结构,很奇葩。
我现在需要写一个程序,能把a文件夹(包括他的子文件夹)里面的txt文件全部都提取出来
【上面的那个文件结构,不一定永远都是那样,只是举个例子,除了a文件夹名字叫a以外,a文件夹里的结构是未知的】 展开
1个回答
展开全部
Private Sub GetChilren(ByVal Subject As String)
For Each i As String In My.Computer.FileSystem.GetDirectories(Subject)
GetChilren(i)'在这里递归
Next
For Each i As String In My.Computer.FileSystem.GetFiles(Subject)
'''txt,用全局变量或参数类数组、泛型、控件保存每个i
Next
End Sub
For Each i As String In My.Computer.FileSystem.GetDirectories(Subject)
GetChilren(i)'在这里递归
Next
For Each i As String In My.Computer.FileSystem.GetFiles(Subject)
'''txt,用全局变量或参数类数组、泛型、控件保存每个i
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询