第7章文件访问技术.pptVIP

在上面的程序中，先用Directory类的GetDirectories方法获得指定路径下的所有文件夹，并赋值给字符串数组fs()。然后在循环中对ListView控件添加文件信息。首先新建一个DirectoryInfo类的实例CurrentDir,构造函数的参数是fs(i)，其中包含指定路径下的文件夹的完整路径。通过DirectoryInfo对象的Name、Attributes、Length、LastWriteTime四个属性来获得文件夹名称、文件夹属性、文件夹大小和文件夹修改时间，并把值赋给字符串数组Lidir，最后在ListView控件中加入显示文件夹信息的列表项。 （10）移动文件夹 移动文件夹时，首先获得源文件路径，再从键盘上获得目的文件路径，最后用Directory类的Move方法完成移动文件夹的操作。程序代码如下 ： Dim from, dest As String from = currentdir \\ currentfile dest = InputBox(请输入目的文件夹的完整路径) dest = dest.Replace(\, \\) Directory.Move(from, dest) Dim name, where As String name = InputBox(请输入新文件夹的名称) where = currentdir \\ name Directory.CreateDirectory(where) (11)新建文件夹 新建文件夹时可以使用Directory类的Create方法，也可以使用DirectoryInfo类的Create方法。在本例中，使用Directory类的Create方法。程序代码如下： (12)删除文件夹 删除文件夹可以使用Directory类的Delete方法，也可以使用DirectoryInfo类的Delete方法。本例中使用Directory类的Delete方法。程序代码如下： Dim which As String which = currentdir \\ currentfile Directory.Delete(which) (13)单击工具栏中的【启动】命令，运行效果如图所示。 （13）在lvwView_SelectedIndexChanged事件中写入下面的程序代码： If lvwView.SelectedItems.count0 then Currentfile=lvwView.SelectedItems.item(0).subitems(0).text End if (14)单击工具栏中的【启动】命令，运行效果如图所示。 在文本框中输入一个磁盘的路径，单击【刷新】按钮，在列表框控件中将显示指定磁盘中的文件夹名称、文件夹属性、创建日期。 在列表框中选中一个文件夹，点击菜单栏中的【移动到】菜单项，弹出一个输入对话框，如下图所示。在对话框中输入一个新文件夹名称，则把选中的文件夹名称替换成了新文件夹名称，点击【刷新】按钮可以看到新创建的文件夹名称。 点击菜单栏中的【新建】菜单项，可以在当前磁盘上新建一个文件夹，再点击【刷新】按钮后可以看到新建的文件夹名称。 选中当前盘中要删除的文件夹后，点击菜单栏中【删除】按钮，再点击【刷新】”按钮，则选定的文件夹看不见了，被删除了。 7.2 .5设计一个“Windows资源管理器 在前面例题的基础上，利用文件操作的有关命令制作一个如图所示的 “我的Windows资源管理器” . 该实例中使用了TreeView、ListView两个控件，分别用来显示当前电脑中的逻辑分区和文件夹列表。ListView控件用来显示TreeView控件中选中的文件夹里的所有文件和文件夹。 （1）新建一个VB.NET项目，项目名称为：LX4-11。 （2）修改窗体的Text属性值为：“我的Windows资源管理器”（3）从工具箱中选中TreeView控件到窗体的左侧，修改其Name属性值为：tvwDirectory。 （4）把ImageList控件放到窗体中，使用原默认扩展名ImageList1，在此控件中添加2个图像：关闭文件夹和打开文件夹。索引号分别为：0和1。 （5）设置tvwDirectory控件的ImageList属性值为ImageList1。在tvwDirectory控件的AfterSelect事件中加入下面的代码： 操作步骤是： tvwDirectory.SelectedNode.SelectedImageIndex = 1 当选中节点时，节点对应的图像为打开的文件夹 （6）从工具箱中选中ListView控件，修改其