Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.CreateTree(st2,"系目") '
tv.Nodes.Insert(st2,0)
tv.Save(ProjectPath & "\" & st2)
代码下载时 提示:文件 不存在。用ftp文件管理器下载 正常
ftp.ChangeDir(_TSG)
'_TSG = "\DoShare"
'_TSGMC = "医学图书"
'_TSGCC = e.Form.Name
If ftp.FileExists(_TSG & "\" & _TSGMC)
If ftp.Download(_TSG & "\" & _TSGMC,ProjectPath & "/" & _TSGMC)
msgbox("下载完成!")
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Load(ProjectPath & "/" & _TSGMC)
Else
msgbox("下载失败!")
End If
Else
msgbox("文件不存在!")
End If