以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  获取某个目录下所有的文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195018)
--  作者：qaz17909
--  发布时间：2025/2/17 8:16:00
--  获取某个目录下所有的文件
获取某个文件下所有的文件，是不是必须用一个全局变量，然后用递归函数，能不能不用全局变量？我的思路如下：
先定义一个全局变量
Public dg_lst as list(of string)
然后定义内部函数
Dim dir As String = Args(0)
For Each File As String In FileSys.GetFiles(dir)
    dg_lst.Add(File)
Next
For Each dir2 As String In FileSys.GetDirectories(dir)
    Functions.Execute("递归获取所有文件", dir2)
Next
--  作者：有点蓝
--  发布时间：2025/2/17 8:47:00
--  
定义内部函数
Dim dir As String = Args(0)
Dim dg_lst As list(of string) = Args(1)
For Each File As String In FileSys.GetFiles(dir)
    dg_lst.Add(File)
Next
For Each dir2 As String In FileSys.GetDirectories(dir)
    Functions.Execute("递归获取所有文件", dir2,dg_lst)
Next

按钮
dim dg_lst as new list(of string)
Functions.Execute("递归获取所有文件", "d:\\abc",dg_lst)