主题：[求助]请教FTP目录递归代码优化

 只能是这样获取的，你生成目录树以后，可以把此目录树保存

http://www.foxtable.com/help/topics/2014.htm

http://www.foxtable.com/help/topics/1974.htm

 这不是最简单的么？

Dim tv As WinForm.TreeView = Forms("FTP资源管理器").Controls("TreeView1")

For Each p As String In ftp1.GetDirList(path)
    Dim nd As Object = tv.Nodes.Add(p)   
    Functions.Execute("FTP目录", nd, path & "\" & p)
Next

---------

函数那里

Dim a1 As Object = args(0)

Dim a2 As Object = args(1)

For Each p As String In ftp1.GetDirList(a2)
    Dim nd As Object = a1.Nodes.Add(p)   
    Functions.Execute("FTP目录", nd, a2 & "\" & p)
Next