利用VB控件操作目录和文件夹.docx

利用VB控件操作目录和文件夹新客网 XKER.COM?时间:2007-01-31 10:00:24??评论:?0?条　（一） 察看和显示目录下的文件和文件夹?　对于这个实现，其实很简单。首先想到的就是VB中给我们提供的现成的控件。主要有这么两类：?　一类是驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）三个/cpro/ui/uijs.php?adclass=0app_id=0c=newscf=1001ch=0di=128fv=18is_app=0jk=e20f885b1dc247dk=%BF%D8%BC%FEk0=%BF%D8%BC%FEkdi0=0luki=1n=10p=baiduq=mx163_cprrb=0rs=1seller_id=1sid=7d24dcb185f8200essp2=1stid=0t=tpclicked3_hctd=2004887tu=u2004887u=http%3A%2F%2Fwww%2Exker%2Ecom%2Fpage%2Fe2007%2F0131%2F22037%2Ehtmlurlid=0控件组合而成的自定义对话框；?　另一类是windows提供的标准对话框。?　他们在工具箱中的位置和图标如下所示：?　1、驱动器列表框是一个下拉式的列表框，他和一般下拉式的列表框的不同仅在于功能上的不同，它提供了一个驱动器的列表。当单击右边的箭头时，则弹出计算机中的所有驱动器的下拉列表。默认状态下,在驱动器列表中显示的是当前驱动器,我们可以输入或从下拉列表中选择有效的驱动器标示符。?　下面是它的主要属性,事件和方法.?　属性Drive本属性用于返回或设置运行时选择的驱动器.默认值为当前驱动器?　改变Drive属性会触发Change事件.?　示例: Drive1.Drive = “c:”?　设置C盘为当前驱动器.?　事件Change当选择一个新驱动器或通过代码改变了Drive属性时触发该事件?　下面是示例代码:?　Private Sub Drive1_Change()?　Dir1.Path = Drive1.Drive?　‘当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径.?　End Sub?　2、目录列表框?　目录列表框用于显示当前驱动器的目录结构，目录列表框从最高层目录开始，显示当前驱动器的目录结构，并按层次关系缩进跟目录下的所有子目录。下面是它的主要属性，方法和事件：?　属性Path本属性用于返回或设置运行时选择的路径，默认路径为当前路径.改变Dri属性会触发Change事件.?　示例: Dri1.Path = Drive1.Drive?　设置在驱动器列表框中选中的驱动器盘符为目录列表的当前路径.?　ListIndex本属性用来返回或设置/cpro/ui/uijs.php?adclass=0app_id=0c=newscf=1001ch=0di=128fv=18is_app=0jk=e20f885b1dc247dk=%BF%D8%BC%FEk0=%BF%D8%BC%FEkdi0=0luki=1n=10p=baiduq=mx163_cprrb=0rs=1seller_id=1sid=7d24dcb185f8200essp2=1stid=0t=tpclicked3_hctd=2004887tu=u2004887u=http%3A%2F%2Fwww%2Exker%2Ecom%2Fpage%2Fe2007%2F0131%2F22037%2Ehtmlurlid=0控件中当前被选择的项目索引号.目录列表框中的每一个目录都可以通过ListIndex属性来标识.由Path属性所设置的当前目录的ListIndex属性值总是-1,而它上面的目录的ListIndex属性值为-2,再上面的为-3,以此类推;而它所包含的子目录恰恰相反,紧挨着的第一个子目录的ListIndex属性值为0,往下一次加一.?　ListCount本属性返回当前目录下的所有子目录书.ListCount的值比最大的ListIndex的值大1.?　事件Change当选择一个新目录或通过代码改变了Path属性时触发该事件?　下面是示例代码:?　Private Sub Dir1_Change()?　将文件列表框的路径值,设置为目录列表框所选中的路径值?　File1.Path = Dir1.Path?　End Sub?　3、文件列表框?　文件列表框用来显示当前目录中的部分或者全部文件.文件列表框的大部分属性和一般的列表框相同,都具有大小,位置,字体,颜色等以及List,ListCount,ListIndex等属性.下面是主要的属性:?　属性Path本属性用于返回或设置运行时选择的