VB程序设计集011教案解析.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