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对象 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对象提供对一个文件夹所有属性的访问。要使用Folder对象，应首先声明一个文件夹类型的变量，然后用FileSystemObject对象的GetFolder方法来返回一个Folder对象，如： Dim Myfld As Folder Set Myfld = Myfso.GetFolder(C:\Myfolder) 返回文件夹中所有子文件夹的集合 SubFolders 返回以字节为单位的包含在文件夹中所有文件和子文件夹的大小 Size 返回指定文件、文件夹、或驱动器的路径 Path 返回指定文件或文件夹的父文件夹对象，只读 ParentFolder 设置或返回指定文件或文件夹名，读/写属性 Name 指定的文件夹是否为根文件夹 IsRootFolder 返回文件夹中所有文件的集合 Files 返回指定文件或文件夹所在的驱动器符号，只读 Drive 返回最后一次修改指定文件或文件夹的日期和时间，只读 DateLastModified 返回最后一次访问指定文件或文件夹的日期和时间，只读 DateLastAccessed 返回指定文件或文件夹的创建日期和时间，只读 DateCreated 说 明 属 性 表11-7 Folder对象的常用属性 * 11.1 类的创建与应用 11.2 系统对象 11.3 文件系统对象模型 第11章 面向对象的编程 退出 11.1.1类模块的基本概念 11.1.2 类的创建过程 返回 退出 11