Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode For Each DInfo As IO.DriveInfo In IO.DriveInfo.GetDrives If dinfo.Isready AndAlso dinfo.name = "d:\aa\" Then nd = tv.Nodes.Add(dinfo.name) Functions.Execute("test",nd) End If Next