VB中利用FSO对象对文件夹操作[文].pdfVIP

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 对象提供了对磁盘驱动器或网络共享属性的访问 方法 .下面是它的主要属性及其解释