新Visual Basic程序设计教程 第11章.pptVIP

11.1 类的创建与应用 11.1.1类模块的基本概念 11.1.2 类的创建过程 11.2 系统对象 11.2.2 Clipboard对象 11.2.4 Printer 对象和 Printers 集合 11.2.5 其他系统对象 11.3 文件系统对象模型 11.3.1Scripting 类型库 11.3.2 FileSystemObject 对象 11.3.4 Folder对象 11.3.5 File对象 表11-5 .FileSystemObject对象的方法 移动文件夹 MoveFolder 源文件夹,目标文件夹 移动文件 MoveFile源文件,目标文件 返回随机产生的临时文件或文件夹的名字 GetTempName 返回指定的特殊文件夹。 GetSpecialFolder(folderspec) 返回代表指定文件的 File 对象 GetFile(文件路径) 返回代表指定文件夹的Folder对象 GetFolder(文件夹路径) 返回代表指定磁盘的 Drive 对象 GetDrive(磁盘) 指定文件夹是否存在 FolderExists(文件夹) 指定文件是否存在 FileExists(文件路径) 指定驱动器是否存在 DriveExists(磁盘) 删除一个指定的文件夹和它的内容 删除一个指定的文件 DeleteFile 文件[, 是否删除只读属性] DeleteFolder 文件夹[, 是否删除只读属性] 创建文本文件 CreateTextFile(文件[, 是否覆盖]) 创建文件夹 CreateFolder(文件夹) 复制文件夹 CopyFolder源文件夹,目标文件夹[,是否覆盖源文件夹] 复制文件 CopyFile 源文件,目标文件[,是否覆盖源文件] 说 明 方 法 3.FileSystemObject对象的方法 Drive 对象用于对特定磁盘驱动器或网络共享的属性提供访问。要使用Drive对象，应首先声明一个驱动器类型变量，然后使用.FileSystemObject对象的GetDrive方法来返回一个Drive对象，例如： Dim Mydrv As Drive Set Mydrv =Myfso.GetDrive(C) 设置或返回指定驱动器的卷标名 VolumeName 以字节为单位，返回驱动器或网络共享的总空间大小 TotalSize 返回指定驱动器的网络共享名 ShareName 返回用于唯一标识磁盘卷标的十进制序列号 SerialNumber 返回一个 Folder 对象，该对象表示一个指定驱动器的根文件夹，只读属 RootFolder 返回指定文件、文件夹、或驱动器的路径 Path 如果指定的驱动器已准备好，返回 True；否则返回 False IsReady 返回指定驱动器上或网络共享的用户可用磁盘剩余空间容量，只读 FreeSpace 返回指定驱动器所使用的文件系统类型（FAT、FAT32、NTFFS） FileSystem 返回一个值，表示指定驱动器的类型。0—Unknown;1—Removable;2—Fixed;3—Remote;4—CDROM;5—RAMDisk DriveType 返回某个物理本地驱动器或网络共享的驱动器字母，只读 DriveLetter 返回在指定的驱动器或网络共享上的用户可用空间容量 AvailableSpace 作 用 属 性 表11-6 Drive 对象的常用属性 11.3.3 Drive 对象 例11-7：下列示例说明了如何使用ListView列表视图控件和Drive 对象来收集有关驱动器的信息。 Private Sub Command1_Click() Dim Myfso As New FileSystemObject, Mydrv As Drive, s As String For Each Mydrv In Myfso.Drives With ListView1.ListItems.Add(, ,Mydrv.DriveLetter :) .SubItems(1) = Choose(Mydrv.DriveType, 软盘, 硬盘, 硬盘, 光盘) .SubItems(2) = Mydrv.TotalSize / 1024 .SubItems(3) = Mydrv.FreeSpace / 1024 End With Next End Sub 图11-9 显示驱动器信息 Folder对象提供对一个文件夹所有属性的访问。要使用Fol