7493
社区成员
vb 取得文件夹名称的速度问题
大家好，现在有一个问题想请教大家，问题是这样的，现在在服务器上某个共享目录下，假设是photo，下边有1000个后缀名不带back的文件夹，我现在要把这1000个文件夹的名称取出来显示在list里面，用下边的方法取的速度非常慢，想请教能不能有更好的方法让读取速度变快。谢谢各位了！
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fol = fso.GetFolder(strPath)
Const DeleteReadOnly = True
Set subD = Fol.SubFolders
For Each f1 In subD
If InStr(1, f1.Name, "_BACK", 1) = 0 Then
List1.AddItem f1.Name
End If
Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fol = fso.GetFolder(strPath)
Const DeleteReadOnly = True
Set subD = Fol.SubFolders
For Each f1 In subD
If InStr(1, f1.Name, "_BACK", 1) = 0 Then
List1.AddItem f1.Name
End If
Next
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cbm6666 2008-03-14
呵呵, 楼上的,试试看再吐吧, 我的E盘40G, e:\pictures 占了12G,用2-3秒已经是比较保守的说法了,整盘我用了6秒多共搜到7391个文件夹,(图片验证),你试试你的吧.
还有我的代码是 "**** 遍历下层的所有子文件夹 ****" ,非指定的那一层而已.
楼主这个需求重点在于前期文件或数组的取得, 这才是速度的关键,10F的代码是后期的处理,在整个需求来说,后期的处理已经没多大差别了.
你何不试试搜一下你最大的盘符, 路径就是 c:\ d:\ 或 e:\ 不就见真假了吗 ?
楼主请再找我, 你留言的问题我用了另种方法解决了,不再用FileLen退出,不会再有你说的问题了.
测试时间图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_DIRSCH.jpg
还有我的代码是 "**** 遍历下层的所有子文件夹 ****" ,非指定的那一层而已.
楼主这个需求重点在于前期文件或数组的取得, 这才是速度的关键,10F的代码是后期的处理,在整个需求来说,后期的处理已经没多大差别了.
你何不试试搜一下你最大的盘符, 路径就是 c:\ d:\ 或 e:\ 不就见真假了吗 ?
楼主请再找我, 你留言的问题我用了另种方法解决了,不再用FileLen退出,不会再有你说的问题了.
测试时间图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_DIRSCH.jpg
forbearORfolie 2008-03-14
吐血。。2-3秒，你的方法还有待改进
你把你的代码按照我的方法稍微改一下，看看
另外，把folderpath和"_back"用const声明
添加的时候
with list1
.visible=false
for i=0 to ubound(fldnmae)'这个是存储文件夹名字的数组
.additem fldname(i) ,i
next
.visible=true
end with
我自己测试的时候，就直接用FSO，用windows文件夹试的，只有113个子文件夹，瞬间完成。
你把你的代码按照我的方法稍微改一下，看看
另外，把folderpath和"_back"用const声明
添加的时候
with list1
.visible=false
for i=0 to ubound(fldnmae)'这个是存储文件夹名字的数组
.additem fldname(i) ,i
next
.visible=true
end with
我自己测试的时候，就直接用FSO，用windows文件夹试的，只有113个子文件夹，瞬间完成。
cbm6666 2008-03-14
FSO 递归算法 以及API的Find...我都用过了,呵呵, 速度还是靠边站了.
上面方法 我加了 /s 参数,连子目录也全部搜, 不搜子目录的话 1000个文件夹最多不超2-3秒就可搞定.
上面方法 我加了 /s 参数,连子目录也全部搜, 不搜子目录的话 1000个文件夹最多不超2-3秒就可搞定.
forbearORfolie 2008-03-14
读的时候把文件夹名先存在一个数组里，读完之后再在with块内更新至list，更新的时候用上of123的方法
不过提醒一点，vb里面的控件操作你再怎么想办法也别想快到哪里去，先天缺陷
不过提醒一点，vb里面的控件操作你再怎么想办法也别想快到哪里去，先天缺陷
cbm6666 2008-03-14
呵呵....不会有人比我的快了, 楼主再不满意应该再也没其它办法了.
这是我数月前被一个印刷厂整出来的经验, 数百万张的图片遍历局域网的搜索, 我足足搞了两天两夜才摆平这个客户.
'添加 List1 Command1
Dim FolderPath$, TxtName$, Starttm&
Private Sub Form_Load()
TxtName = "c:\dir.txt"
FolderPath = "e:\pictures"
End Sub
Private Sub Command1_Click()
On Error Resume Next
If Dir(FolderPath, vbDirectory) = "" Then MsgBox "bb": Exit Sub
If Dir(TxtName) <> "" Then Kill TxtName
Open "c:\SchDir.bat" For Output As #1
Print #1, "@echo off"
Print #1, "dir " & FolderPath & " /ad/s/b >" & TxtName
Print #1, "exit"
Close #1
Call Shell("c:\schdir.bat", vbHide)
Starttm = Timer
Do
DoEvents
If Dir(TxtName) <> "" Then
If FileLen(TxtName) > 50 Then Exit Do '50也是一个大概予估数,自己测一下10 20 100 200都行
End If
Loop Until Timer >= Starttm + 5 '最多5秒,看你要搜的路径大小自己看着办
List1.Visible = False '暂时关闭会快N倍
If Dir(TxtName) <> "" Then
Open TxtName For Input As #1
List1.Clear
While Not EOF(1)
Line Input #1, aa
If InStr(aa, "_BACK") = 0 Then List1.AddItem aa
Wend
Close #1
End If
List1.Visible = True
If Dir(TxtName) <> "" Then Kill TxtName
Kill "c:\SchDir.bat"
End Sub
这是我数月前被一个印刷厂整出来的经验, 数百万张的图片遍历局域网的搜索, 我足足搞了两天两夜才摆平这个客户.
'添加 List1 Command1
Dim FolderPath$, TxtName$, Starttm&
Private Sub Form_Load()
TxtName = "c:\dir.txt"
FolderPath = "e:\pictures"
End Sub
Private Sub Command1_Click()
On Error Resume Next
If Dir(FolderPath, vbDirectory) = "" Then MsgBox "bb": Exit Sub
If Dir(TxtName) <> "" Then Kill TxtName
Open "c:\SchDir.bat" For Output As #1
Print #1, "@echo off"
Print #1, "dir " & FolderPath & " /ad/s/b >" & TxtName
Print #1, "exit"
Close #1
Call Shell("c:\schdir.bat", vbHide)
Starttm = Timer
Do
DoEvents
If Dir(TxtName) <> "" Then
If FileLen(TxtName) > 50 Then Exit Do '50也是一个大概予估数,自己测一下10 20 100 200都行
End If
Loop Until Timer >= Starttm + 5 '最多5秒,看你要搜的路径大小自己看着办
List1.Visible = False '暂时关闭会快N倍
If Dir(TxtName) <> "" Then
Open TxtName For Input As #1
List1.Clear
While Not EOF(1)
Line Input #1, aa
If InStr(aa, "_BACK") = 0 Then List1.AddItem aa
Wend
Close #1
End If
List1.Visible = True
If Dir(TxtName) <> "" Then Kill TxtName
Kill "c:\SchDir.bat"
End Sub
lanyu1014 2008-03-14
速度还是很慢，能不能换个方法来解决这个问题呢。多谢了！
of123 2008-03-14
strFile = Dir(strPath & "\*.*", vbDirectory)
List1.Visible = False
List1.Clear
Do Until strFile = ""
If Right(strFile, 5) <> ""_BACK" Then List1.AddItem strFile
strFile = Dir()
Loop
List1.Visible = True
1 不要用 InStr 全长查找
2 添加过程中关闭 ListBox 可视属性，避免刷新
List1.Visible = False
List1.Clear
Do Until strFile = ""
If Right(strFile, 5) <> ""_BACK" Then List1.AddItem strFile
strFile = Dir()
Loop
List1.Visible = True
1 不要用 InStr 全长查找
2 添加过程中关闭 ListBox 可视属性，避免刷新
lanyu1014 2008-03-14
而且我现在要取的是文件夹的名称，不是文件的名称。
lanyu1014 2008-03-14
谢谢楼上的回答，请问有没有简单一点的答案呢，因为我刚开始用vb，这个方法我有些读不懂，用不明白，多谢指教。
lyserver 2008-03-14
另外，在使用List控件时，如果数量过大，速度将明显降低，如果只是为了显示，你可以使用其它控件（如表格控件）
lyserver 2008-03-14
用API,以下是我用API编写的一个文件查找类,支持事件,速度相当快.
用法:新建一个空的类文件,将代码复制上去,然后在frm或cls文件中调用，bas不支持事件。查找结果将以回调形式反映给你的程序。
Option Explicit
Private Declare Function FindFirstFile Lib "KERNEL32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "KERNEL32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "KERNEL32" (ByVal hFindFile As Long) As Long
Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Public Event Found(ByVal FileName As String, Cancel As Boolean)
Public Event Completed() '查找完成
Dim m_Filter As String '通配符
Dim m_strFileExtNameList As String
Dim m_Cancel As Boolean '是否中止
Sub Find(ByVal strStartPath As String, Optional ByVal FindInSubPath As Boolean = True)
Dim lRet As Long
Dim hFindFile As Long
Dim strPath As String
Dim strFileName As String
Dim strFileExtName As String
Static nCallCount As Long '调用次数
Dim WFD As WIN32_FIND_DATA
If Right(strStartPath, 1) = "\" Then
strStartPath = strStartPath & "*.*"
End If
strPath = Left(strStartPath, Len(strStartPath) - 3)
hFindFile = FindFirstFile(strStartPath, WFD)
If hFindFile > 0 Then
lRet = hFindFile
Do While (lRet > 0) And (Not m_Cancel)
strFileName = Left(WFD.cFileName, InStr(WFD.cFileName, Chr$(0)) - 1)
If Left(strFileName, 1) <> "." Then
If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then '如果是路径
If FindInSubPath Then
nCallCount = nCallCount + 1 '加1
Call Find(strPath & strFileName & "\*.*", FindInSubPath) '递归调用
nCallCount = nCallCount - 1
End If
Else '否则,为文件,发出事件通知
strFileExtName = GetFileExtendName(strFileName)
If m_strFileExtNameList = Space(5) Or InStr(m_strFileExtNameList, strFileExtName) > 0 Then
RaiseEvent Found(strPath & strFileName, m_Cancel)
If m_Cancel Then Exit Do '中止查找
End If
End If
End If
lRet = FindNextFile(hFindFile, WFD)
DoEvents
Loop
Call FindClose(hFindFile)
End If
If nCallCount = 0 Then RaiseEvent Completed
End Sub
Public Property Get Filter() As String
Filter = m_Filter
End Property
Public Property Let Filter(ByVal New_Filter As String)
m_Filter = Filter
m_strFileExtNameList = Analyze_WildCard(New_Filter) '设置扩展名列表
End Property
Private Function GetFileExtendName(ByVal strFileName As String) As String '取得文件扩展名
Dim nSite As Integer
strFileName = Right(strFileName, 5)
nSite = InStr(strFileName, ".")
If nSite > 0 Then
GetFileExtendName = UCase(Mid(strFileName, nSite + 1))
End If
End Function
Private Function Analyze_WildCard(ByVal strParam As String) '分析通配符
Dim strTemp As String
Dim iStart As Integer, iNext As Integer, iTemp As Integer
strParam = Trim(strParam)
'截取路径符号"\"后的文件名(或文件名通配符)
iStart = 0
Do
iNext = iStart + 1
iStart = InStr(iNext, strParam, "\")
Loop While iStart > 0
strParam = UCase(Trim(Mid(strParam, iNext)))
'如果为全部,则扩展名为5个空格
If strParam = "*.*" Then
Analyze_WildCard = Space(5)
Exit Function
End If
'分解多个通配符
iNext = 0
Do
iStart = iNext + 1
iNext = InStr(iStart, strParam, ";")
If iNext > 0 Then
strTemp = Trim(Mid(strParam, iStart, iNext - iStart))
Else
strTemp = Trim(Mid(strParam, iStart))
End If
iTemp = InStr(strTemp, ".")
If iTemp > 0 Then strTemp = Mid(strTemp, iTemp + 1)
Analyze_WildCard = Analyze_WildCard & strTemp & Space(5 - Len(strTemp)) '生成如:txt_ _html_gif_ _格式的字符串,_表示空格
Loop While iNext > 0
End Function
Private Sub Class_Initialize()
m_Filter = "*.*"
m_strFileExtNameList = Space(5) '扩展名列表,默认为5个空格
End Sub
用法:新建一个空的类文件,将代码复制上去,然后在frm或cls文件中调用，bas不支持事件。查找结果将以回调形式反映给你的程序。
Option Explicit
Private Declare Function FindFirstFile Lib "KERNEL32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "KERNEL32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "KERNEL32" (ByVal hFindFile As Long) As Long
Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Public Event Found(ByVal FileName As String, Cancel As Boolean)
Public Event Completed() '查找完成
Dim m_Filter As String '通配符
Dim m_strFileExtNameList As String
Dim m_Cancel As Boolean '是否中止
Sub Find(ByVal strStartPath As String, Optional ByVal FindInSubPath As Boolean = True)
Dim lRet As Long
Dim hFindFile As Long
Dim strPath As String
Dim strFileName As String
Dim strFileExtName As String
Static nCallCount As Long '调用次数
Dim WFD As WIN32_FIND_DATA
If Right(strStartPath, 1) = "\" Then
strStartPath = strStartPath & "*.*"
End If
strPath = Left(strStartPath, Len(strStartPath) - 3)
hFindFile = FindFirstFile(strStartPath, WFD)
If hFindFile > 0 Then
lRet = hFindFile
Do While (lRet > 0) And (Not m_Cancel)
strFileName = Left(WFD.cFileName, InStr(WFD.cFileName, Chr$(0)) - 1)
If Left(strFileName, 1) <> "." Then
If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then '如果是路径
If FindInSubPath Then
nCallCount = nCallCount + 1 '加1
Call Find(strPath & strFileName & "\*.*", FindInSubPath) '递归调用
nCallCount = nCallCount - 1
End If
Else '否则,为文件,发出事件通知
strFileExtName = GetFileExtendName(strFileName)
If m_strFileExtNameList = Space(5) Or InStr(m_strFileExtNameList, strFileExtName) > 0 Then
RaiseEvent Found(strPath & strFileName, m_Cancel)
If m_Cancel Then Exit Do '中止查找
End If
End If
End If
lRet = FindNextFile(hFindFile, WFD)
DoEvents
Loop
Call FindClose(hFindFile)
End If
If nCallCount = 0 Then RaiseEvent Completed
End Sub
Public Property Get Filter() As String
Filter = m_Filter
End Property
Public Property Let Filter(ByVal New_Filter As String)
m_Filter = Filter
m_strFileExtNameList = Analyze_WildCard(New_Filter) '设置扩展名列表
End Property
Private Function GetFileExtendName(ByVal strFileName As String) As String '取得文件扩展名
Dim nSite As Integer
strFileName = Right(strFileName, 5)
nSite = InStr(strFileName, ".")
If nSite > 0 Then
GetFileExtendName = UCase(Mid(strFileName, nSite + 1))
End If
End Function
Private Function Analyze_WildCard(ByVal strParam As String) '分析通配符
Dim strTemp As String
Dim iStart As Integer, iNext As Integer, iTemp As Integer
strParam = Trim(strParam)
'截取路径符号"\"后的文件名(或文件名通配符)
iStart = 0
Do
iNext = iStart + 1
iStart = InStr(iNext, strParam, "\")
Loop While iStart > 0
strParam = UCase(Trim(Mid(strParam, iNext)))
'如果为全部,则扩展名为5个空格
If strParam = "*.*" Then
Analyze_WildCard = Space(5)
Exit Function
End If
'分解多个通配符
iNext = 0
Do
iStart = iNext + 1
iNext = InStr(iStart, strParam, ";")
If iNext > 0 Then
strTemp = Trim(Mid(strParam, iStart, iNext - iStart))
Else
strTemp = Trim(Mid(strParam, iStart))
End If
iTemp = InStr(strTemp, ".")
If iTemp > 0 Then strTemp = Mid(strTemp, iTemp + 1)
Analyze_WildCard = Analyze_WildCard & strTemp & Space(5 - Len(strTemp)) '生成如:txt_ _html_gif_ _格式的字符串,_表示空格
Loop While iNext > 0
End Function
Private Sub Class_Initialize()
m_Filter = "*.*"
m_strFileExtNameList = Space(5) '扩展名列表,默认为5个空格
End Sub
VB编程资源大全(源码 文件) (10KB)
12,f045_95.ZIP
在根目录建立一个文件夹和在文件夹中建立win的启动文件(7KB)
13,f044_ExtTextOut.ZIP
演示ExtTextOut这个扩展文本输出函数(2KB)
14,f043_wjsx.ZIP
单击文件名，它的几乎...
UIPath工具取得某个路径下的文件夹的名称 UIPath工具取得某个路径下的文件夹的名称 处理的流程如下图 【Edit Code】按钮押下之后写入代码如下 Dim dir As New DirectoryInfo("C:\Users\peiqiang\Desktop\mailToExcelGrid_0.1") For Each d As ...
利用VB控件操作目录和文件夹 察看和显示目录下的文件和文件夹 对于这个实现，其实很简单。首先想到的就是VB中给我们提供的现成的控件。主要有这么两类： 一类是驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框...
C#基础教程-c#实例教程，适合初学者 在项目类型(P)编辑框中选择Visual C#项目，在模板(T)编辑框中选择控制台应用程序，在名称(N)编辑框中键入e1，在位置(L)编辑框中键入D:\csarp，必须预先创建文件夹D:\csarp。也可以单击浏览按钮，在打开文件对话框中...
vb.net 取得文件名、路径名、扩展名 利用以下方法，可以轻松取得指定文件的文件名、路径名、扩展名信息 System.IO.Path.GetExtension("c:\windows\test.txt")'获取扩展名 System.IO.Path.GetFileName("c:\windows\test.txt")'获取文件名 ...
笔记12：VB.net中的FTP操作：创建、删除、查询、下载、上传 向服务发送列举目录指令，服务器端会将所有指定目录下面的子目录及文件名写入数据流，然后返回到客户端，因此列举目录的时候必须进一步取得响应对象的数据流对象： Dim myStream As Stream = myResponse....
获取指定文件夹下的文件名（可用于访问远程服务器共享文件夹下的文件） DirectoryInfo dir = new DirectoryInfo(@"C:\DATA"); FileInfo[] finfo = dir.GetFiles(); string fnames = string.Empty; for (int i = 0; i < finfo.Length;... fnames = finfo[i].Name...
VB如何根据窗口标题获得进程名称 可上传、下载、创建文件夹等等 ) ※ VB 部分文件汇总 B ※ Vb 求素数最经典的方法也是最快的方法 ※ vb 用数组方式快速导出 MSFlexGrid 表格数据到 Excel 表格中 ※ VB 中 MsFlexGrid 控件的使用细则 ※ ...
利用VB操作目录和文件夹 对象功能Drive允许收集系统的驱动器信息，诸如驱动器的可用空间Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等FileSy
VB的界面设计 第二章 VB的界面设计 第二章 VB 的界面设计 2.1 VB 用户界面设计基础 1. 概述 界面的设计有两步：先绘制控件，然后确定控件属性。 绘制控件：在工具箱里单击想画的控件，在窗体里按下鼠标并拖曳，...
VB函数大全 VB函数大全 Calendar 常数 可在代码中的任何地方用下列常数代替实际值： 常数 值 描述 vbCalGreg 0 指出使用的是阳历。 vbCalHijri 1 指出使用的是伊斯兰历法。 -----------------------------------...
VB控制Word文档实例精选一 '取得图片的2种方法 '第1种方法：用下面命令将文件另存为网页格式的文件，文件夹“MyWord.files”将保存Word文档中所有的图片 '这种方法对所有的Word版本均适用 ActiveDocument.SaveAs "c:\MyWord.htm", ...
vb+Webbrowser控件详解 vb+Webbrowser控件详解 1、获得浏览器信息： Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com" End Sub Private Sub Command2_Click() Dim oWindow Dim oNav Set oWindow = ...
VB 制作网页浏览器 但问题是为什么这个方法并不是有效的，服务器端不能取得数据？ 如果这个方法是有效的话就不需要用一段html代码模拟这种调用了。 下面代码能检测出程序post出去的消息 Private Sub WebBrowser1_BeforeNavigate2...
VB Webbrowser控件详解 但问题是为什么这个方法并不是有效的，服务器端不能取得数据？ 如果这个方法是有效的话就不需要用一段html代码模拟这种调用了。 下面代码能检测出程序post出去的消息 Private Sub WebBrowser1_BeforeNavigate2...
VB用API控制输入法状态 在VB中，某些控件具有输入焦点，却没有IMEMode属性，比如RichTextBox，为了方便在这些控件中控制输入法状态，俺编写了这个函数，代码如下： 代码如下： Option Explicit'* ****************************************...
【经典回放】多种语言系列数据结构算法：树（C#、JavaScript、VB6版） 三、树的VB6语言实现以及显示 一、树的C#语言实现以及显示 1树的存储结构设计 一旦一个工程选择了用C#来完成，那么肯定意味着这是一个真实的应用项目。在现实中的应用项目中，树的存储基本都是用双亲表示法。在...
