Visual Basic程序设计教程第8章 文件.pptVIP

例8-1 设计一个 “打开图像文件”的文件管理程序，设计界面如左下图所示，运行界面如右下图所示。利用驱动器列表框、目录列表框和文件列表框查找磁盘上的图像文件（bmp、ico、jpg或gif），双击查到的图像文件名，则在图像框控件中显示该图像（以Stretch方式），同时将该文件的全文件名显示在图像下方的标签控件中。 第*页 设计步骤如下： 步骤一：界面设计。 （1）在Form1中添加5个标签控件Label1~Label5，1个Image1控件， 1个驱动器列表框控件Drive1， 1个目录列表框控件Dir1， 1个文件列表框控件File1。 （2）添加1个Frame1控件，在其中添加3个单选按钮Option1~ Option3。 第*页 步骤二：属性设置。 第*页 步骤三：编写代码。 Option Explicit Dim fname$ Private Sub Dir1_Change() ChDir Dir1.Path File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() ChDrive Drive1.Drive Dir1.Path = Drive1.Drive End Sub 第*页 Private Sub File1_DblClick() If Right(File1.Path, 1) = \ Then fname$ = File1.Path File1.FileName Else fname$ = File1.Path \ File1.FileName End If Image1.Picture = LoadPicture(fname$) Label5.Caption = fname$ End Sub Private Sub Option1_Click() File1.Pattern = *.bmp End Sub Private Sub Option2_Click() File1.Pattern = *.jpg End Sub Private Sub Option3_Click() File1.Pattern = *.* End Sub 第*页 8.3 文件操作常用语句函数 第*页 8.3.1 文件操作常用语句 1．FileCopy语句 功能：拷贝文件。 格式：FileCopy 源文件名 , 目标文件名 例如，将C盘下的aaa.txt文件拷贝到C盘的VB子目录下的bbb.txt文件，其语句为： FileCopy C:\aaa.txt, C:\VB\bbb.txt“ 2．Kill语句 功能：删除文件。 格式：Kill 文件名 例如： Kill C:\VB\datal.dat Kill C:\VB\*.*“ 第*页 3．MrDir语句 功能：建立新文件夹（目录）。 格式：MkDir 文件夹名 例如：在C盘的VB子目录下创建一个名为Temp的二级子目录（C盘的VB子目录必须存在，否则会出错），其语句为： MkDir C:\VB\Temp“ 4．Name语句 功能：文件或目录的重命名。 格式：Name 原文件名 As 新文件名 例如： Name C:\aaa.txt As C:\ccc.txt Name “C:\bbb.txt” As “C:\Tmp\bbb.txt” 第*页 5．RmDir语句 功能：删除已有的文件夹。 格式：RmDir 文件夹名 例如，删除C盘的VB子目录下的Temp二级子目录，其语句为： RmDir C:\VB\Temp“ 6．Seek语句 功能：在Open 语句打开的文件中，设置下一个读/写操作的位置。 格式：Seek [#]文件号,位置 说明：位置是一个长整型数，取值范围介于1~2147483647 之间，单位为字节。 第*页 8.3.2 文件操作常用函数 1．CurDir函数 功能：获得某一驱动器的当前目录。 格式：CurDir [(驱动器)] 例如，要显示出当前驱动器的当前目录，其语句为： Print CurDir() 2．FileLen函数 功能：返回一个未打开文件的大小。 格式：FileLen（文件名） 例如，要得到c:\aaa.dat文件的大小，其语句为： Print FileLen(C:\shunxu7.dat) 第*页 3．FreeFile函数 功能：获取下一个可供Open 语句使用的文件号。 格式：FreeFile [(范围)] 4．Seek函数 功能：获得用Open 语句打开的文件中的当前的读/写位置。 格式：Seek(文件号) 第*页 5．Shell函数 功能：执行指定的应用程序。 格式：Shell(文件名