VB-第十章-文件.pptVIP

第 10 章 与文件操作有关的控件 1. 驱动器列表框控件 2. 目录路径列表框控件 3. 文件列表框控件 例 驱动器列表框控件 功能 自动列出计算机上所有硬盘,软盘,光盘驱动器名，让用户选择 与列表框(ListBox)控件不同,程序不能改变驱动器列表框中的表项 常用属性 Name 缺省为Drive1 Drive 字符串类型，设置当前驱动器或返回所选择 的驱动器名 。在程序运行时赋值。 驱动器列表框名. Drive = 驱动器名 List 字符串数组，存放驱动器名 ListCount正整数，表示系统中驱动器的个数 目录路径列表框控件 功能 以树形目录方式显示当前 驱动器上的目录结构 常用属性 Name 缺省为Dir1 Path 字符串类型， Path属性为当前目录（或选择 的目录名） 在程序运行时赋值。 当前目录是目录列表框中显示打开文件夹图标的最后一个表项. 如下图的: C: \ Program files\Microsoft visual studio\VB98 在程序中：目录路径列表框名.Path = “目录路径名” List 字符串数组，存放所选目录下所有子目录名 ListCount 正整数，表示当前目录下一级子目录个数 ListIndex 整数，表示各目录的索引值 取值范围为 -n ~ ListCount-1 若Dir1.path=“C: \ Program files\Microsoft visual studio\VB98” Dir1.listcount=4 常用事件 Change 当Path 属性值改变时触发 运行时双击目录列表选项，可改变Path 属性 值，并触发Change事件 Click 运行时单击目录列表选项时触发，但Path 属 性值没有改变,改变了 Dir1 的 ListIndex 属性, 要改变 Path 属性, 应执行语句: Dir1 . Path = Dir1 . List (Dir1 . ListIndex ) 例题 例7-2 P.197 目录列表框与驱动器列表框的同步变化 驱动器列表框的 Change 事件中写入语句 Dir1.Path = Drive1.Drive 文件列表框控件 功能 显示当前目录下的文件，常与目录列表框Dir1配合使用，用以显示指定目录下的文件列表 常用属性 Name 缺省为File1 Pattern 字符串类型，设置文件的显示模式 缺省为 *.* Path 字符串类型，文件列表框总是显示Path属性所指示的文件夹中的文件。 若在Form_Load中有语句: File1.Path=“c:\Windows” 则在窗体装入后, 控件File1显示“c:\Windows”文件夹中的文件列表 FileName 字符串类型，设置或返回所选文件的文件名 所选文件的全名f$为： If Right( File1.Path, 1) = \ Then f$ = File1.Path + File1.FileName Else f$ = File1.Path + \ + File1.FileName End If 文件列表框与目录路径列表框同步变化 目录路径列表框的 Change 事件中写入语句 File1.Path = Dir1.Path 常用事件 Click PathChange 当文件显示路径改变时触发 PatternChange 当文件显示模式改变时触发 private sub Drive1_Change( ) Dir1.Path=Drive1.DriveEnd sub Private sub Dir1_Change( ) File1.Path=Dir1.Path End sub 程序运行时对这些列表框作 选择,可起到调用通用 对话框 (打开文件对话框) 的作用 与文件操作有关的语句 直接调用外部可执行文件 Shell 方法(函数) 目录和文件操作语句 改变当前盘 ChDrive 驱动器名 创建文件夹 MkDir 文件夹名 删除文件夹 RmDir 文件夹名 改变当前目录 ChDir 路径 返回默认目录函数 CurDir([驱动器名]) 复制文件 FileCopy 源文件名,目标文件名 删除文件 Kill 文件名 文件改名和移动 N