完整文件名包括盘符

• 文件列表框控件—选择文件名
属性 file1.filename 中为选中的文件名 径）
属性 file1.path 为缺省文件路径
（不含路
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub Drive1_Change() 'Dir1.Path = Drive1.List(Drive1.ListIndex) Dir1.Path = Drive1.Drive End Sub
8.1.1 盘驱动器列表框控件
• 盘驱动器列表框控件用于显示驱动器列表，工具箱中该控件图标 为。
• 该控件缺省的名称为：Drive1、Drive2、…… 1．盘驱动器列表框控件常用属性 • (1) Drive属性（字符串类型）。用来设置当前驱动器或返回所选
择的驱动器名。Drive属性只能在程序运行时赋值，而不能通过属性 窗口设置。 • 赋值语句格式：<盘驱动器列表框名>.Drive=<驱动器名> • ，语句Drive1.Drive="CDE"和Drive1.Drive="c:"作用相同，都是把当 前驱动器设置为c:盘。 • 程序运行时，若选择驱动器，则Drive属性值自动设置为所选择 的 驱 动 器 名 。 如 单 击 驱 动 器 列 表 框 控 件 Drive1 中 D: 盘 图 标 ， 则 Drive1.Drive的值为"d:"。
8.1.2 目录列表框控件
• (4) List属性。List字符串数组中的每一个元 素都对应着目录列表框中的一个表项，都对应 着一个具体的目录路径。该数组由系统自动生 成，数组List的下标取值范围为-n～ListCount1，其中-n为根目录所对应的索引号。
• 如Dir1.List(-1)表示当前目录“VB98”的路 径 “ c:\Program Files\Microsoft Visual Studio\VB98”；Dir1.List(-2)表示当前目录父目 录的目录路径；Dir1.List(0)表示当前目录第一 个子目录的目录路径； Dir1.List(Dir1.ListCount-1) 表 示 当 前 目 录 最 后 一个子目录的目录路径； Dir1.List(Dir1.ListIndex) 表 示 当前 被 选中 表项 所对应的目录路径。
例8-3
Private Sub File1_Click() If Right(File1.Path, 1) = "\" Then
f$ = Form1.File1.Path + Form1.File1.FileName Else
f$ = Form1.File1.Path + "\" + Form1.File1.FileName End If End Sub
8.1.3 文件列表框控件
• 字符串中为若干个用分号间隔Байду номын сангаас文件名，在文件名中可以含有 通配符。
• 例如：在Form_load事件中写入语句 File1.Pattern="*.exe"，使 File1列表框中只显示所有扩展名为EXE的文件。
• 写入语句File1.Pattern="*.dat;a*.*"，使File1列表框只显示所有 扩展名为DAT以及文件名首字符为a的文件。
5
• 与 open for input as 相配合的语句 • Input #1, a$ 将文件中的一个字符串输入a$ • Line input #1,
• 与 open for output as 相配合的语句 • Write #1, 1, 2,3, 将1，2，3 写入文件中 • Print #1,
置为被双击表项所对应的目录。 • 如果双击盘x的根目录，则Path属性为“x:\”；如果双击盘x的某一
个子目录y（文件夹），则Path属性为“x:\y”。 注意：
Path属性值最后一个字符是否为“\”，取决于目录列表框的当前目 录是否为根目录。
8.1.2 目录列表框控件
• <目录列表框名>.Path=<目录路径名> • 运行时单击目录列表框中某一文件夹（目录）图标时，
常用属性 Drive • 运行时，单击盘驱动器列表框控件—选择驱动
器
返回 Drive1.Drive 或Drive1.list(Drive1.listindex) 中为选中的驱动器号
同时，触发Change事件
• 目录路径列表框控件（Dirlistbox) --显示、选择一个驱动器中的文件目录 属性 dir1.list(dir1.listindex) 中为选中的文件路径（含驱动器符号） 属性 dir1.path 为缺省文件路径或当前文件路径 注意：两者可以不一样。 注：单击dir1不会改变 dir1.path的值，双击可以。
8.1.2 目录列表框控件
• (3) ListIndex属性。ListIndex属性表示被选中表项的索引号。 • 目录列表框表项的索引号遵循以下规则：当前目录所对应的索引号为
-1，当前目录的父目录所对应的索引号为-2，当前目录父目录的父目 录所对应的索引号为-3，依此类推；当前目录的第1个子目录所对应 的索引号为0，第2个子目录所对应的索引号为1，……当前目录的最 后一个子目录所对应的索引号为ListCount-1。 • 因此，ListIndex属性取值范围为-n～ListCount-1，其中-n为根目录 所对应的索引号。 • 如在图8-2中，假定目录列表框Dir1的当前目录是“VB98”：目录 “ VB98” 被 选 中 时 ， Dir1.ListIndex 属 性 值 为 -1 ； 执 行 语 句 “ Dir1.ListIndex=2” 后 ， 文 件 夹 Tsql 被 突 出 显 示 ； 执 行 语 句 “ Dir1.ListIndex=0” 后 ， 文 件 夹 Setup 被 突 出 显 示 ； 执 行 语 句 “Dir1.ListIndex=-3”后，文件夹Program Files被突出显示。
8.1.1 盘驱动器列表框控件
2．盘驱动器列表框控件常用事件 • 当盘驱动器列表框Drive属性的值发生改变时，
引发Change事件。运行时单击盘驱动器列表框中 某一驱动器图标，Drive属性值自动设置为所选择 的驱动器名，因此引发盘驱动器列表框的Change 事件。 •
8.1.2 目录列表框控件
• 目录列表框控件在工具箱 中的图标为 。
• 目录列表框控件用于显示 当前驱动器中文件夹（目 录）列表，如图8-3所示， 其 中 “ VB98” 为 当 前 目 录 。
• 目录列表框控件缺省的控 件 名 称 为 ： Dir1 、 Dir2、……
图8-3 文件夹（目录）列表
8.1.2 目录列表框控件
不能设置的属性
• Drive1.list(0,1…) • Dir1.list(0,1…) • File1.list(0,1..)的值有机器 给出，可以读出
不能设置， • Drive1.drive, dir1.path, file1.path 可以设置，
也可以读出，但不能在属性窗口中进行。
• 直接调用外部程序 1。 Call shell filename, …
1．目录列表框控件常用属性 • (1) Path属性。Path属性返回或设置目录列表框的当前目录。 • Path属性决定目录列表框显示哪个目录的一级子目录结构。例如，
图8-2中的目录列表框显示的是目录“VB98”的一级子目录结构。 • 双击目录列表框的某一个表项，目录列表框的Path属性值被自动设
8.1.2 目录列表框控件
2．目录列表框控件常用事件 • (1) Change事件。当目录列表框的Path属性值发生改变时，引发
Change事件。 • 运行时双击目录列表框的表项，Path属性值自动设置为被双击的
目录路径，并引发Change事件。 • (2) Click事件。单击目录列表框控件Dir1的某一表项时，引发Click
事 件 。 被 单 击 的 表 项 被 突 出 显 示 ， ListIndex 的 值 发 生 改 变 ， 但 Dir1.Path 属 性 没 有 改 变 ， 可 以 在 事 件 过 程 Dir1_Click 中 写 入 语 句 “Dir1.Path = Dir1.List(Dir1.ListIndex)”，则可以在选择表项的同时改 变Dir1.Path属性为被选表项所对应的路径。
2 X =shell(filename, )
数据文件的操作
• 打开文件 open filename for input read as #1 output write append read write
例 open “d:\aaa.txt” for output as #1 打开aaa.txt用于向此文件中写数据， 例 open “d:\aaa.txt” for input as #2 打开aaa.txt,用于把此文件调入内存中。
第8章 文件
• 完整文件名包括盘符，目录与文件名 有关的三个控件是
• 盘驱动器列表框控件—选择驱动器
• 目录路径列表框控件—选择一个驱动器中 的文件目录
• 文件列表框控件—选择文件名
盘驱动器列表 目录列表框控件 文件列表框控件
• 盘驱动器Drivelistbox 缺省对象 Drive1,Drive2…..
8.1.1 盘驱动器列表框控件
注意： 盘驱动器列表框中显示的驱动器名都是由系统自动生成的，用
户只能通过列表框选择使用，DriveListBox控件没有用于添加或删 除列表项的AddItem、RemoveItem等方法。 • (2) List属性（字符串数组）。List数组的每一个元素都是盘驱动 器列表框控件的一个列表项，为1个驱动器名，数组下标从0～ ListCount-1。 • (3) ListCount属性（正整数）。ListCount属性值表示系统中盘驱 动器的个数。 • 若系统有驱动器a:、c:、d:、e:、f:（光驱），则驱动器列表框控 件Drive1的ListCount属性值为5，执行下列语句后在窗体上输出的 结果为“a: c: d: e: f:”。 • For i=0 To Drive1.ListCount - 1 • Print Drive1.List(i); • Next i