（二）新建、修改、删除目录

  以上控件除了通用对话框(CommonDialog)之外一般只能显示当前的目录结构，对于在磁盘上新建、修改、删除目录却基本无能为力。

  我们先来看看通用对话框对文件夹的新建,修改和删除操作.

  1、新建目录

  我们只要在显示出来的通用对话框的空白位置，单击鼠标，选择“新建”即可在指定的路径下创建新的目录，或者点击通用对话框右上角的新建图表，也可以在指定的路径下创建新的目录
 
  2、修改文件夹名称

  可以在显示出来的通用对话框中，用鼠标右键点击选择所要修改的文件夹，再弹出的快捷菜单中，选择重命名，即可修改目录名称。

  3、删除文件夹

  同修改文件夹名称一样，我们只要选择删除即可。如上图所示。

  而且这种方法比RmDir更简便，它还可以删除包含有文件和子文件夹的文件夹。

  除了以上控件，windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下表。利用这些对象可以更方便的操作文件系统。

  下面我们一起来看看怎样用FSO对象来显示、新建、修改以及删除目录。

  FSO对象模型包含在Scripting的类型库中，此类型库存在于Scrrun.dll文件中.使用FSO对象模型,首先要建立一个FileSystemObject对象。有两种方法可以实现。一种是从”工程”菜单中的”引用”对话框选择”Microsoft Scripting Runtime”项,然后在代码窗口中声明一个FileSystemObject类型的变量.语句如下:

Dim fso As New FileSystemObject

  另一种方法是在代码中使用CreatObject方法动态的创建一个FileSystemObject对象.语句如下:

Dim fso As Object ‘ 声明对象变量
Set fso = CreatObject(“Scripting. FileSystemObject”) ‘创建FSO对象

  我们具体看看FileSystemObject的主要属性.

  1、驱动器

  (1) Drives属性是FileSystemObject对象的唯一属性，它返回Drives集合中所有可用驱动器的只读集合。对于可删除的驱动器，不需要将媒体插入其中，就可以在Drives集合中显示出来。下面是它的主要属性有两个:一个是Count,另一个是Item.Count属性返回Drives集合或Dictionary对象中的条目数.Item属性用来返回或设置Drives集合或Dictionary对象中与指定关键字相关的项目.

  下面代码说明了如何获得Drives集合,以及如何用For Eacn……Next语句来访问该集合中的每个Drive:

Sub ShowDriveList()

 Dim fs As Object, d, dc, s,n
 创建文件系统对象
 Set fs = CreatObject(“Scripting. FileSystemObject”)
 创建驱动器集合
 Set dc= fs.Drives
 '取的驱动器对象
 For Each d in dc
  s = s & d.DriveLetter & “-” ‘格式化文本
  If d.DriverType = Remote Then ‘如果是Remote类型的驱动器
   n = d.ShareName ‘取得它的共享名
  Else
   n = d.volumeName ‘否则取得它的卷标
  End if
  s= s& n & vbCrLf ‘格式化文本
 Next
 MsgBox s ‘显示文本
End sub

  (2) 当然我们也可以用Drive对象.Drive对象提供了对磁盘驱动器或网络共享属性的访问方法.下面是它的主要属性及其解释:

   主要的方法就是GetDrive，此方法用来访问一个已有的驱动器，该方法返回一个与指定路径中的驱动器相对应的Drive对象。下面的代码中，我们将说明怎样取得一个指定的驱动器的相关信息：

Sub ShowFreeSpace(drvPath) ‘显示指定目录下的驱动器的信息
 Dim fs As Object, d, s
 Set fs = CreateObject("Scripting.FileSystemObject") ‘创建文件系统对象
 Set d = fs.GetDrive(fs.GetDriveName(drvPath)) ‘创建并得到指定取目录下的驱动器
 s = "Drive" & UCase(drvPath) & "-" ‘格式化文本
 s = s & d.VolumeName & vbCrLf ‘得到驱动器的卷标
 s = s & "FreeSpace:" & FormatNumber(d.FreeSpace / 1024, 0)
 '计算驱动器的剩余磁盘空间
 s = s & "Kbytes"
 MsgBox s ‘显示
End Sub

  下面是filesystemobject的其他方法