VB中利用FOS对象对文件夹操作.docVIP

VB中利用FSO对象对文件夹操作windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下。利用这些对象可以更方便的操作文件系统。 　　对象功能 　　Drive允许收集系统的驱动器信息，诸如驱动器的可用空间 　　Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等 　　Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等 　　FileSysterObject此为主要对象，提供一整套用于创建、删除、搜集相关信息，以及通常的操作驱动器，文件夹，和文件的方法。 　　TextStream允许读写文本文件 　　下面我们一起来看看怎样用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对象提供了对磁盘驱动器或网络共享属性的访问方法.下面是它的主要属性及其解释: 　　Availablespace驱动器已用空间DriveLetter驱动器指定的字母 　　Freespace驱动器剩余空间DriverType驱动器类型 　　TotalSize驱动器全部空间FileSystem驱动器文件系统 　　IsReady驱动器是否已准备Path驱动器根目录 　　SerizlNumber驱动器序列号VolumeName驱动器卷标 　　ShareName驱动器共享名 　　主要的方法就是GetDrive，此方法用来访问一个已有的驱动器，该方法返回一个与指定路径中的驱动器相对应的Drive对象。下面的代码中，我们将说明怎样取得一个指定的驱动器的相关信息： 　　Sub ShowFreeSpace(drvPath) ‘显示指定目录下的驱动器的信息 　　Dim fs As Object, d, s 　　Set fs = CreateObject(Scripting.FileSystemObject) ‘创建文件系统对象 　　Set d = fs.GetDrive(fs.GetDriveName(