创建用于文件和文件夹的表单 首先，创建一个新的Visual Basic工程；然后，将默认的表单标题设置为"Exploring the Windows＇ directory"，再在表单上添置一个TreeView控件和一个命令按钮控件，保留默认名称。最后，将命令按钮的标题设置为"Fill TreeView"。
声明两个重要的变量 在这一步中，我们需要为表单添加一些代码。首先，需要安装SCRRUN.DLL的引用，从菜单栏上选择"Project"(工程)->"References"(引用)命令，在弹出的对话框中，选中"Microsoft Scripting Runtime"项。单击[OK]按钮关闭对话框。然后，在表单中右击鼠标，从弹出的快捷菜单中选择"View Code"命令，在声明部分添加下列语句： Const DEFAULT_DRIVE = "C:\" Dim FSO As New Scripting.FileSystemObject 这里为简单起见，我们用一个常量来指定建立的目录树的默认驱动器。当然，最好能让用户对这个值作出选择。 用户或许想知道为什么在表单层中声明一个FSO变量，而不是在实际读取文件信息的过程中声明。这完全是一次偶然机会的心得，因为在许多好的程序中，通常允许用户用多种方式处理选择的文件。在表单层范围内定义一个FSO变量，其目的是可以处理所有其他FileSystemObject成员，而不必每次都有定义一个对象变量。 基于这种考虑，在表单被调用时应对FSO变量进行初始化，而当表单关闭后，该变量应被清除。这项工作的最终完成是通过下面的代码： Private Sub Form_Load() Set FSO = New FileSystemObject End Sub Private Sub Form_Unload(Cancel As Integer) Set FSO = Nothing End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
