
第五章文件处理应用程序设计方法 一、要点解析 本章以一个简单的文件管理器应用程序开发为起点,详细介绍了文件读写的基本操作方 法、主要函数、常用控件。通过本章学习,你应该能够达到如下学习目标 1.掌挥文件读写的基本方法 2,拿捏与文作处理相关的语句和函数的用法。并修够完香程序, 3.理解文件系统控件的基本功能,能够通过对图动器列表框、目录列表框、文件列表 根三类控件的属性设置,编写简单的文件管理程序。 4,了解“文作管理器”应用程序的开发过程。能够读懂并完善这类程序的部分语句。 1。文件的基本概念 文件一般是指存德在外部介质(如磁盘》上的数据的集合。根据数据的性质。可以把文 件分成程序文件和数据文件。我们付论的主要是数据文件。根据数据的存储方式和结构,可 以将文件分为顺序文件、随机文件和二进制文件, (1)顺序文件 顺序文件将要保存的数据依次逐个转换成ASCII字符,然后存入磁盘。 顺序文件是最简单的文件结构,它按次序一个接一个的排列纪录,并且只提供第一个记 录的存储位置,当需要读取某一记录时,就您须按顺序从第一条记录开始依次读出数据。直 到找到所雷记录为止。 (2)随机文件 以随机存取方式存取量据的文件。随机文件是可以按弧任意顺序读写的文件,它的每条 记录都有一个记录号,并且所有记录的长度是相等的。读取数据时,只要指定记录号,就可 以直接读取记录。随机文件一旦打开,瓷可以同时进行读写操作, 随机文件的优点是数据的存取灵话,方便,速度快。主要缺点是占用的空间大,数据组 织复染。 (3)二进制文件 磁盘中的文件在本质上都是以二进制方式存他的,二进制文件存取方式是以字竹为单位 对文件进行访问的,允许程序读写文件的任何字节,不管是文本文件、可执行文件,都可以 二进制方式存取访日: 2。常用的文件操作语句和函数 语句 格式 功能 举例及说明 ChDrive语句 ChDr ive动器名) 改变当Oriw 前重动 说明:将当前型动a改变为D 器 QDir语句 ChDir<路径名》 政变当 ChDEr De\TMP" 箱目承 说明:改变当前目录为D:F 1l语句 111(文件名) 副魔文 Kill "D:\ata\Test.txt" 件 说用:别除在D盘ta日录下的Test,xt文件
1 第五章 文件处理应用程序设计方法 一、要点解析 本章以一个简单的文件管理器应用程序开发为起点,详细介绍了文件读写的基本操作方 法、主要函数、常用控件。通过本章学习,你应该能够达到如下学习目标: 1.掌握文件读写的基本方法 2.掌握与文件处理相关的语句和函数的用法,并能够完善程序。 3.理解文件系统控件的基本功能,能够通过对驱动器列表框、目录列表框、文件列表 框三类控件的属性设置,编写简单的文件管理程序。 4.了解“文件管理器”应用程序的开发过程,能够读懂并完善这类程序的部分语句。 1.文件的基本概念 文件一般是指存储在外部介质(如磁盘)上的数据的集合。根据数据的性质,可以把文 件分成程序文件和数据文件。我们讨论的主要是数据文件。根据数据的存储方式和结构,可 以将文件分为顺序文件、随机文件和二进制文件。 (1)顺序文件 顺序文件将要保存的数据依次逐个转换成 ASCII 字符,然后存入磁盘。 顺序文件是最简单的文件结构,它按次序一个接一个的排列纪录,并且只提供第一个记 录的存储位置。当需要读取某一记录时,就必须按顺序从第一条记录开始依次读出数据,直 到找到所需记录为止。 (2)随机文件 以随机存取方式存取数据的文件。随机文件是可以按照任意顺序读写的文件,它的每条 记录都有一个记录号,并且所有记录的长度是相等的。读取数据时,只要指定记录号,就可 以直接读取记录。随机文件一旦打开,就可以同时进行读写操作。 随机文件的优点是数据的存取灵活、方便、速度快。主要缺点是占用的空间大、数据组 织复杂。 (3)二进制文件 磁盘中的文件在本质上都是以二进制方式存储的,二进制文件存取方式是以字节为单位 对文件进行访问的,允许程序读写文件的任何字节,不管是文本文件、可执行文件,都可以 二进制方式存取访问。 2.常用的文件操作语句和函数 语句 格式 功能 举例及说明 ChDrive 语句 ChDrive 改变当 前驱动 器 ChDrive "D" 说明:将当前驱动器改变为 D ChDir 语句 ChDir 改变当 前目录 ChDir D:\TMP" 说明:改变当前目录为 D:\TMP Kill 语句 Kill 删除文 件 Kill "D:\Data\Test.txt" 说明:删除在 D 盘 Data 目录下的 Test.txt 文件

Kill "C:\TEMP\*.tmp" 说明:到网在C盘请目录下所有e后圈的文 作 FileCopy语 Fi1eCo可《覆文件),《目 携贝文 「kCopy SoucFik DestintonFe 句 标文特> 说明:将源文件的内容复制到目的文作中。 SorceFle为薄文件名,DestnaoonFile为日标文件 名.F阳1Cey语句不能复制一个己打开的文州。 eW句 《目文作名)As(新 对文件 关eO1 Nane hs NewNanc 文件名》 重的名 将0le重命名为Na DEr语句 DIr《日录名>或文作 创是斯 MD:"成技单 亮名) 日录或 说明:创建一个"成磷单·日录 文件夹 CurDir句 CuD,(文 设置文 SetAnr "TESTtr".vhNoemal whllidden 件属性情) 件属性 说明:将当偷日录下的文件TL广设置为常规和 隐家文件 laf清数 格式:L时(文件号》 功能,划国由文作号指定约,用O小m语句打开的义文件的长度。 单位是字节。看运回值为0,则表示该文件是空文件: Eor函数 对能:运回一个打开的指定文件的文料指针是否指向文料尾的 格式:f(文件号) 标志,若向文件尾,B®f的返回值是1ue,否测返国值是 False. FreeFile函 功镜:运回一个在程序中没有使同的文件号: 格式:FreeFile 数 ne函数 格式:L@文件号 功能,返国一个打开的指定文件的最冠读时位置。 3.文件系统控件 VB提供了3个文作系统控件,里动器列表框(DriveLis过Box),目录列表框(DirL.i过Box) 和文件列表框(FileLis以Bax)。利用这3个控件透行文件管理十分方便。 (1)驱动器列表根 ●重要属性一Drive属性 Drivel.Drive="C." 指定C盘为当前影动器 ChDrive Drivel.Drive 将D属性指定的鬼动器设置为当前里动器。 ·重要事件一Chang事件 当选择一个新的驱动器或通过程序代码改变D肥属性的确定值时,会触发鬼动 器列表框的Chang事件,繁动器列表框的默认名为Drivel,Chang事件的过程名 为Drivel_Chang() (2》目录列表框 ·常用属性一Pah属性 2
2 Kill "C:\TEMP\*.tmp" 说明:删除在 C 盘 TEMP 目录下所有 tmp 后缀的文 件 FileCopy 语 句 FileCopy , 拷贝文 件 FileCopy SourceFile,DestinationFile 说明:将源文件的内容复制到目的文件中, SourceFile 为源文件名,DestinationFile 为目标文件 名。FileCopy 语句不能复制一个已打开的文件。 Name 语句 Name As 对文件 重命名 Name OldName As NewName 将 OldName 重命名为 NewName MkDir 语句 MkDir 或 创建新 目录或 文件夹 MkDir "成绩单" 说明:创建一个"成绩单"目录 CurDir 语句 CurDir 得到当 前路径 MyPath = CurDir("C") 说明:返回"C:\Program Files" SetAttr 语句 SetAttr , 设置文 件属性 SetAttr "TEST.txt", vbNormal + vbHidden 说明:将当前目录下的文件"Test.txt" 设置为常规和 隐藏文件 Lof 函数 格式:Lof(文件号) 功能:返回由文件号指定的、用 Open 语句打开的文件的长度, 单位是字节。若返回值为 0,则表示该文件是空文件。 Eof 函数 格式:Eof(文件号) 功能:返回一个打开的指定文件的文件指针是否指向文件尾的 标志,若指向文件尾,Eof 的返回值是 True,否则返回值是 False。 FreeFile 函 数 格式:FreeFile 功能:返回一个在程序中没有使用的文件号。 Loc 函数 格式:Loc(文件号) 功能:返回一个打开的指定文件的最近读写位置。 3.文件系统控件 VB 提供了 3 个文件系统控件,驱动器列表框(DriveListBox)、目录列表框(DirListBox) 和文件列表框(FileListBox)。利用这 3 个控件进行文件管理十分方便。 (1)驱动器列表框 ⚫ 重要属性—Drive 属性 Drive1. Drive = "C:" '指定 C 盘为当前驱动器 ChDrive Drive1.Drive '将 Drive 属性指定的驱动器设置为当前驱动器。 ⚫ 重要事件—Chang 事件 当选择一个新的驱动器或通过程序代码改变 Drive 属性的确定值时,会触发驱动 器列表框的 Chang 事件,驱动器列表框的默认名为 Drive1,Chang 事件的过程名 为 Drive1_Chang() (2)目录列表框 ⚫ 常用属性—Path 属性

该属性用于设置成返回当前目录的完整路径。它只桂在程序代码中设置,不逢在属 性窗口中设置。如: Dirl.Path-C.\Visual Basic\Stu" 指定C盘VBas家目录下的Su子目录为当 前目录。 重要事件一Chang事件 在程序运行时,每当改变当前目录,即目录列表熙的Ph属性值发生变化时,将 州发Chang事件,目录列表框Chang事件的过程名为Dirl_Chang) (3)文件列表根 ·常用属性一Pah属性,Pacm属性、FileName属性 ●主要事件 ①PathChange事作 当FdeName和Ph属性值改变时,将引发PathChange事件: ②Click事件 在文件列表框中单击文件时发生。 ③DbC1ick事件 在文件列表框中双击文作时发生。 4.鬼动器列表框、目录列表想及文件列表想的同步操作 当改变票动器列表框中的图动器名后,目录列表框中的目录应当随之变为该张动器上的 目录,下列程序代码可使票动器列表概和目录列表概产生同步效果。 Private Sub Drivel Change ( Dir1.Path Drivel.Drive End Sub 上述事件过程表明,每当政变动器列表框的Dre属性时,将产生Change事件。目 录列表熙中的目录变为该驱动器的目录。 同样可以通过以下事件过程使目录列表框和文件列表框洞步。 Private Sub Dril_Change() Filel.Path=Dril.Path End Sub 上述两个率件过程可使三个列表框产生同步效果。 5.文件的处理步骤 文件是指存钻在外部介质(如磁盘)上的数据的集合,每一个文件有一个文件名作为标 识。根据数据的存储方式和结构,文件分为顺序文件,随机文件和二进制文件三种类型。 文件的类型不同,访问数据的方式也不同。但不论娜种类型的文件,基本处理步漫是相 同的,大致都经过以下三步来完成: ①打开(或建立)文件:文件必须在打开和建立后才能使用, ②进行读/写操作:在打开或建立的文件上执行所要求的输入输出操作。在文件处理中, 把内存中的数据传输到外部介质(如磁盘》并候存为文件的提作叫做写数据,而把数据文件 中的数据传输到内存程序中的操作叫酸读数据。 ③关闭文件:关闭文件就是将数据写入磁量,并释放相关的货题。 6。文件的打开 (1)顺序文件的打开
3 该属性用于设置或返回当前目录的完整路径。它只能在程序代码中设置,不能在属 性窗口中设置。如: Dir1.Path="C:\Visual Basic\Stu" '指定 C 盘 Visual Basic 目录下的 Stu 子目录为当 前目录。 ⚫ 重要事件—Chang 事件 在程序运行时,每当改变当前目录,即目录列表框的 Path 属性值发生变化时,将 引发 Chang 事件,目录列表框 Chang 事件的过程名为 Dir1_Chang() (3)文件列表框 ⚫ 常用属性—Path 属性、Pattem 属性、FileName 属性 ⚫ 主要事件 ①PathChange 事件 当 FileName 和 Path 属性值改变时,将引发 PathChange 事件。 ②Click 事件 在文件列表框中单击文件时发生。 ③DbClick 事件 在文件列表框中双击文件时发生。 4.驱动器列表框、目录列表框及文件列表框的同步操作 当改变驱动器列表框中的驱动器名后,目录列表框中的目录应当随之变为该驱动器上的 目录,下列程序代码可使驱动器列表框和目录列表框产生同步效果。 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 上述事件过程表明,每当改变驱动器列表框的 Drive 属性时,将产生 Change 事件,目 录列表框中的目录变为该驱动器的目录。 同样可以通过以下事件过程使目录列表框和文件列表框同步。 Private Sub Dri1_Change() File1.Path = Dri1.Path End Sub 上述两个事件过程可使三个列表框产生同步效果。 5.文件的处理步骤 文件是指存储在外部介质(如磁盘)上的数据的集合,每一个文件有一个文件名作为标 识。根据数据的存储方式和结构,文件分为顺序文件、随机文件和二进制文件三种类型。 文件的类型不同,访问数据的方式也不同。但不论哪种类型的文件,基本处理步骤是相 同的,大致都经过以下三步来完成: ①打开(或建立)文件:文件必须在打开和建立后才能使用。 ②进行读/写操作:在打开或建立的文件上执行所要求的输入输出操作。在文件处理中, 把内存中的数据传输到外部介质(如磁盘)并保存为文件的操作叫做写数据,而把数据文件 中的数据传输到内存程序中的操作叫做读数据。 ③关闭文件:关闭文件就是将数据写入磁盘,并释放相关的资源。 6.文件的打开 (1)顺序文件的打开

格式:0pm《文件名>Fr(横式As[=)】[Lc=记录长度] (3)二进制文件的打开 格式,0pen,小】 说明: ①C0语句用来美闭文件,它是在打开文件之后遗进行的操作。格式中的水文件号>是 Opm语句中使用的文件号:例如用下面的语句打开文件: Open "A:\D1.Dat"For Input As =1 则可以用下面的语句关闭该文件: Ca现#1 关闭一个数据文件具有两方面的作用,一是把文件缓冲区中的所有数据写到文件中: 二是释放与该文件相联系的文件号,以供其它0m语句使用。 ②Ce语句可以同时关闭多个己打开的文作,如: Close #1.#2 关闭文件号为1和2的两个文件 Close 关闭所有己打开的文件 8。文件的写操作 (1)顺序文件的写操作 要向顺序文件中写入内容,应先以Output或Append方式打开文件,然后使用Pn#语 句成Writee语句向文针中写数据。 ①Prit语句 格式为:Print#《文件号>,[输出项列表] 其中(文件号)是以写方式打开文件的文件号,[输出项列表]为用逗号或分号分隔的表达 式序列。[输出项列表]若缺省,将向文件中写入一个空行。详细说明见教材第12四一130页。 例编写程序把一个文本框中的内容以文本的形式保存在磁世上。 里定文本框的名称为Tetl,文件名为Myed域。程序代如下: Open "Mytext.dat"For Output As#l Prim#1.Textl.Text Close #1 ②ite* rite#,[输出项列表]
4 格式:Open For As [#] 其中模式是指文件的打开方式,有三种情况: Input:以读方式打开文件。 Output:以写方式打开文件。 Append:以追加方式打开文件。 例如: Open "A:\D1.Dat" For Input As #1 '以读方式打开 A 盘中的"D1.Dat"文件 Open "A:\D2.Txt" For Output As #2 '以写方式打开 A 盘中的"D2.Txt"文件 (2)随机文件的打开 格式:OpenFor Random As [#][Len=记录长度] (3)二进制文件的打开 格式:OpenFor Binary As [#] 7.文件的关闭 顺序文件、随机文件和二进制文件的关闭完全相同,其格式为: Close[[[#]],[[#]]] 说明: ①Close 语句用来关闭文件,它是在打开文件之后进行的操作。格式中的是 Open 语句中使用的文件号。例如用下面的语句打开文件: Open "A:\D1.Dat" For Input As #1 则可以用下面的语句关闭该文件: Close # 1 关闭一个数据文件具有两方面的作用,一是把文件缓冲区中的所有数据写到文件中; 二是释放与该文件相联系的文件号,以供其它 Open 语句使用。 ②Close 语句可以同时关闭多个已打开的文件,如: Close #1,#2 '关闭文件号为 1 和 2 的两个文件 Close '关闭所有已打开的文件 8.文件的写操作 (1)顺序文件的写操作 要向顺序文件中写入内容,应先以 Output 或 Append 方式打开文件,然后使用 Print#语 句或 Write#语句向文件中写数据。 ①Print#语句 格式为:Print # ,[输出项列表] 其中是以写方式打开文件的文件号,[输出项列表]为用逗号或分号分隔的表达 式序列,[输出项列表]若缺省,将向文件中写入一个空行。详细说明见教材第 129—130 页。 例 编写程序把一个文本框中的内容以文本的形式保存在磁盘上。 假定文本框的名称为 Text1,文件名为 Mytext.dat。程序代码如下: Open "Mytext.dat" For Output As #1 Print #1, Text1.Text Close #1 ②Write # Write # ,[输出项列表]

雨rite#语句的功便与Print ai诗句基本相问,主要区别是: ·rite#语句在各输出项之间白动插入逗号。 ·rite#语句为字符串两侧如双引号, ·rite=语句在将最后一个字符写入文件后会拓入回车换行符,即Qr(13)+ Chr(10) (2)随机文件的写操作 格式:Put[),[记录号], I陶t#语句从一个顺序文件中读出数据项,把这些数据项分别赋给指定的变量,变量的 类型与文作中数据的类型要对应一致。 ②刻Line Input#语句 Line1nput(文件号>,《字符串变量> Line Inp四t#语句从已打开的顺序文件中读出一行,并将其分配给字符串变量。读出的 数据中不包含回车及换行符,在文件操作中,L1聊Iput语句是十分有用的语句,它可以 读取顺序文件中一行的全部字符,直至遇到回车符为止。 (2)随机文件的读操作 随机文件的读操作使用G语句,其格式如下, 格式:Get[](文件号>,[记录号].(变量) G语句是从打开的磁盘文件中将一条由记录号指定的记录内容读入记录变量。[记录 号]是大于等于1的整数,表示读出的是第几条记录,若缺省,则读出上一次读写操作的记 录之后的记素。延号不能省略。 (3)二进制文作的读操作 二进制文件仍用Gt语句家实现读操作,格式如下: Cet#,【位置]。变量名 二、典型例题 一、途择题 1.如果准备向随机文件中写入数据,正确的语句是() A.Write 1.ree B.Print Irec C.Get l.rec D.PutN 1,rec 2,要以读方式打开D盘的一个顺序文件Test.c,应使用的语句是() A.Open"Test.doe"For Ouput As #1 B.Open'D\Test.doc"For Input As#1 C.Open 'D\Test.doc For Output As #1 5
5 Write #语句的功能与 Print #语句基本相同,主要区别是: ⚫ Write #语句在各输出项之间自动插入逗号。 ⚫ Write #语句为字符串两侧加双引号。 ⚫ Write #语句在将最后一个字符写入文件后会插入回车换行符,即 Chr(13) + Chr(10)。 (2)随机文件的写操作 格式:Put[#],[记录号], (3)二进制文件的写操作 格式:Put #,[位置],变量名 9.文件的读操作 (1)顺序文件的读操作 顺序文件的读操作由 Input# 、Line Input#或 Input 函数从文件中读数据 ①Input#语句 格式:Input # , Input#语句从一个顺序文件中读出数据项,把这些数据项分别赋给指定的变量,变量的 类型与文件中数据的类型要对应一致。 ②Line Input#语句 Line Input#, Line Input#语句从已打开的顺序文件中读出一行,并将其分配给字符串变量。读出的 数据中不包含回车及换行符。在文件操作中,Line Input#语句是十分有用的语句,它可以 读取顺序文件中一行的全部字符,直至遇到回车符为止。 (2)随机文件的读操作 随机文件的读操作使用 Get 语句,其格式如下: 格式:Get[#],[记录号], Get 语句是从打开的磁盘文件中将一条由记录号指定的记录内容读入记录变量。[记录 号]是大于等于 1 的整数,表示读出的是第几条记录,若缺省,则读出上一次读写操作的记 录之后的记录,逗号不能省略。 (3)二进制文件的读操作 二进制文件仍用 Get 语句来实现读操作,格式如下: Get #,[位置],变量名 二、典型例题 一、选择题 1.如果准备向随机文件中写入数据,正确的语句是( ) A.Write # 1,rec B.Print # 1,rec C.Get # 1,rec D.Put # 1,rec 2.要以读方式打开 D 盘的一个顺序文件 Test.doc,应使用的语句是( ) A.Open " Test.doc " For Output As #1 B.Open "D:\ Test.doc " For Input As #1 C.Open "D:\ Test.doc " For Output As #1

D.Open"Test.doc"For InputAs#1 3,在V1 sual Bas1e程序中,操作顺序文件的一般顺序是(), A。透择文件→读写操作 B.打开文件→读写操作→关闭文件 C,选择文件读写操作打开文件 D.读写操作+打开文件 答案:1.D2B3.B 二、填空圈 剩除在C盘T正MP目录下所有以mp为后银的文件的语句为 答案:Kill"CXTEMP.mp 三、编写程序题 1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要 求程序运行后,驱动器列表熙DeI的赋认驱动墨设置为D盘,这择F1中所列的图片文 件〔◆hmp,*gif和◆jP%),则相应的图片显示在图片框Pictur心中,文件的路径显示在文本框 中。程序运行结果如图7所承。 。园片状写 回x hsate tawcher qian 00 238).JG heantal图(tescher qi)802.JG 图7 2.使用顺序文件读写方式编写一个简单的记事本应用程序,其运行界面如图8所示。 基本逻辑是,假设在以D盘的根目录下有一个名为m.1的文本文件。当点击“打开" 按钮(Command1)时,程序将eamT文件中的内容显示在文本框(Text1)中,当点击“新建" 按细(Command2)时,清空Tel中的内容:用户可以在Tel中进行编辑操作,当点击“保 存”按组Comnmand3)时,将T下ext】中的内容保存在exam.tt文件中。当点击“退出”按组 (Command-4)时关闭本窗体, 6
6 D.Open " Test.doc " For Input As #1 3.在 Visual Basic 程序中,操作顺序文件的一般顺序是( )。 A.选择文件→读写操作 B.打开文件→读写操作→关闭文件 C.选择文件→读写操作→打开文件 D.读写操作→打开文件 答案:1.D 2.B 3.B 二、填空题 删除在 C 盘 TEMP 目录下所有以 tmp 为后缀的文件的语句为 。 答案:Kill "C:\TEMP\*.tmp" 三、编写程序题 1.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要 求程序运行后,驱动器列表框 Drive1 的默认驱动器设置为 D 盘,选择 File1 中所列的图片文 件(*.bmp,*.gif 和*.jpg),则相应的图片显示在图片框 Picture1 中,文件的路径显示在文本框 中。程序运行结果如图 7 所示。 图 7 2.使用顺序文件读写方式编写一个简单的记事本应用程序,其运行界面如图 8 所示。 基本逻辑是:假设在以 D 盘的根目录下有一个名为 exam.txt 的文本文件。当点击“打开” 按钮(Command1)时,程序将 exam.Txt 文件中的内容显示在文本框(Text1)中,当点击“新建” 按钮(Command2)时,清空 Text1 中的内容;用户可以在 Text1 中进行编辑操作,当点击“保 存”按钮(Command3)时,将 Text1 中的内容保存在 exam.txt 文件中。当点击“退出”按钮 (Command4)时关闭本窗体

回图 打开 新建 保存 退出 图8 答案: 1.Private Sub Form_Load() Drivel.Drive="D:V" Filel.Pattern=tbp:gif”jg End Sub Private Sub Drivel_change() Dirl.Path Drivel.Drive Textl.Text Drivel.Drive End Sub Private Sub Dirl_Change() Filel.Path Dir1.Path Textl.Text Dirl.Path End Sub Private Sub Filel_click() Picturel.Picture LoadPicture(Filel.Path+"+Filel.FileName) FileName Filel.Path+""+Filel.FileName Textl.Text"FdleName End Sub 2. Private Sub Command1_Click() DimAAs String Textl -+m Open "C:\F1.Txt"For InputAs #1 Do Whale No EOF(1) Input #l,A Textl =Tel +A Loop End Sub 7
7 图 8 答案: 1.Private Sub Form_Load() Drive1.Drive = "D:\" File1.Pattern = "*.bmp;*.gif;*.jpg" End Sub Private Sub Drive1_change() Dir1.Path = Drive1.Drive Text1.Text = Drive1.Drive End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path Text1.Text = Dir1.Path End Sub Private Sub File1_click() Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName) FileName = File1.Path + "\" + File1.FileName Text1.Text = FileName End Sub 2. Private Sub Command1_Click() Dim A As String Text1 = "" Open "C:\F1.Txt" For Input As #1 Do While Not EOF(1) Input #1, A Text1 = Text1 + A Loop Close #1 End Sub

Private Sub Command2_Click() Textl =*m End Sub Private Sub Command3 Clicki) Open "C:\F1.Txt"For Output As #1 Write #1.Textl Clooe#1 End Sub Private Sub Command4_Click() Unlood Me End Sub 8
8 Private Sub Command2_Click() Text1 = "" End Sub Private Sub Command3_Click() Open "C:\F1.Txt" For Output As #1 Write #1, Text1 Close #1 End Sub Private Sub Command4_Click() Unload Me End Sub