以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何得到目录下所有文件的个数？（目录下含子目录，子目录中又子目录）谢谢！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7144)
--  作者：baoxyang
--  发布时间：2010/5/19 16:51:00
--  如何得到目录下所有文件的个数？（目录下含子目录，子目录中又子目录）谢谢！！

请教各位！在本地电脑上

如何得到目录下所有文件的个数？（目录下含子目录，子目录中又子目录）谢谢！！

 

就如：远程文件GetFileList效果一样？谢谢！！
--  作者：狐狸爸爸
--  发布时间：2010/5/19 17:00:00
--  
For Each foundFile As String In Filesys.GetFiles("c:\\data\\", FileIO.SearchOption.SearchAllSubDirectories)
     Output.Show(foundFile)
Next
--  作者：baoxyang
--  发布时间：2010/5/19 17:27:00
--  
谢了！又学一招了！！！
--  作者：baoxyang
--  发布时间：2010/5/19 22:21:00
--  
如何得到远程文件GetFileList目录下所有文件名（含路径）？请老大指点！！谢谢！！！
--  作者：狐狸爸爸
--  发布时间：2010/5/20 0:50:00
--  

个人建议你不要心太大，否则容易失控，做多错多。

 

将下面的代码复制到全局代码中：

 

Public Sub GetFtpFiles(fp As FtpClient, dr As String, Lst As List(of String))
    For Each f As String In fp.GetFileList(dr)
        lst.Add(f)
    Next
    For Each sdr As String in fp.GetDirectoryList(dr)
        GetFtpFiles(fp,sdr,lst)
    Next
End Sub

 

以后就可以在Foxtable中：

 

Dim lst As New List(of String)

For Each s As String In GetFtpFiles(ftp,"路径",Lst)

   Output.Show(s)

Next

 

定义函数GetFtpFiles的这段代码使用了递归，没有经过测试，请自行调试。

[此贴子已经被作者于2010-5-20 0:52:29编辑过]
--  作者：baoxyang
--  发布时间：2010/5/20 9:13:00
--  

谢了！我会注意的。
--  作者：baoxyang
--  发布时间：2010/5/20 9:27:00
--  

Dim lst As New List(of String)

For Each s As String In GetFtpFiles(ftp,"路径",Lst)

   Output.Show(s)

Next

 

 

 

提示错误，“表达式不产生值”，请老大指点！
--  作者：狐狸爸爸
--  发布时间：2010/5/20 9:48:00
--  
那就算了吧
--  作者：baoxyang
--  发布时间：2010/5/20 9:52:00
--  
以下是引用狐狸爸爸在2010-5-20 0:50:00的发言：

个人建议你不要心太大，否则容易失控，做多错多。

 

将下面的代码复制到全局代码中：

 

Public Sub GetFtpFiles(fp As FtpClient, dr As String, Lst As List(of String))
    For Each f As String In fp.GetFileList(dr)
        lst.Add(f)
    Next
    For Each sdr As String in fp.GetDirectoryList(dr)
        GetFtpFiles(fp,sdr,lst)
    Next
End Sub

 

以后就可以在Foxtable中：

 

Dim lst As New List(of String)

For Each s As String In GetFtpFiles(ftp,"路径",Lst)

   Output.Show(s)

Next

 

定义函数GetFtpFiles的这段代码使用了递归，没有经过测试，请自行调试。

[此贴子已经被作者于2010-5-20 0:52:29编辑过]

测试了，这段代码有问题。
--  作者：baoxyang
--  发布时间：2010/5/20 9:53:00
--  

算了，再想办法。谢老大！