DimnodxAsNode

PrivateSubForm_Load()

'在ImageList控件中添加一个图象。

DimimgXAsListImage

'TreeView1.ImageList=ImageList1'初始化ImageList。

SetimgX=ImageList1.ListImages.Add(,,_

LoadPicture("c:mydocuments72.bmp"))

TreeView1.ImageList=ImageList1'初始化ImageList。

TreeView1.LineStyle=tvwRootLines

TreeView1.Style=tvwTreelinesPlusMinusPictureText

DimDriverCountAsInteger

DimGivePathAsString

OnErrorResumeNext

'创建根节点

Setnodx=TreeView1.Nodes.Add(,,"本人电脑","本人电脑",1)

ForDriverCount=0ToDrive1.ListCount-1

Setnodx=TreeView1.Nodes.Add("本人电脑",tvwChild,_

Drive1.List(DriverCount) "",_

Drive1.List(DriverCount),1)

GivePath=Drive1.List(DriverCount) ""

CallSSplitNode(GivePath)

NextDriverCount

EndSub

SubSSplitNode(GivePathAsString)‘子过程

'把给定目录下的子目录全部加入Node对象中

DimSDIAsInteger

DimSDCountAsInteger

DimDString(1000)AsString

‘以下为展开给定目录的下级子目录

Dir1.Path=GivePath‘给定目录

SDCount=Dir1.ListCount‘利用Dir1控件判断是否有下级目录

IfSDCount=0ThenExitSub

‘如无同退出子程序,即为递归出口。否则会形成死循环。

ForSDI=0ToSDCount-1

DString(SDI)=Dir1.List(SDI)

Setnodx=TreeView1.Nodes.Add(GivePath,tvwChild,_

DString(SDI),FOnlyPath(DString(SDI)),1)

NextSDI

‘调用递归(子程序自己调用自己)

ForSDI=0ToSDCount-1

CallSSplitNode(DString(SDI))

NextSDI

EndSub

FunctionFOnlyPath(DStringAsString)AsString

'功能是去掉上级目录，只留下当前目录名

'DString为给定的全路径目录名

IfDString=""ThenExitFunction

DimDLengthAsInteger

DLength=Len(DString)

DimDDAsInteger

ForDD=DLengthTo1Step-1

IfMid(DString,DD,1)=""ThenExitFor

NextDD

FOnlyPath=Mid(DString,DD 1)

EndFunction

　　本程序在Win95,VB5.0中文版下通过。