北京电大 visual basic程序设计 第5章 文件处理应用程序设计方法

《北京电大 visual basic程序设计 第5章 文件处理应用程序设计方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章文件处理应用程序设计方法掌握文件读写的基本方法掌握与文件处理相关的语句和函数的用法理解文件系统控件的基本功能了解文件管理器应用程序的开发过程学习目标一、文件管理器程序任务任务描述界面设计代码设计（1）、文件是指存储在外部存储介质上的数据的集合，是一种可以永久性存储数据的形式，操作系统以文件为单位管理数据，文件名是文件存在的标识。VB提供的驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）三种控件及ChDrive和ChDir两个文件管理命令语句来实现对磁盘文件进行列表

2、、查看、删除、移动等操作。（2）、任务创建：第一步新建工程为“文件管理”，主要用工具箱中的驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）及复选框（CheckBox）。第二步创建窗体Form1属性Caption为“文件系统控制”；三个标签Label属性Caption分别为“选择驱动器”、“选择文件”、“文件属性”；六个复选框的标签属性分别为“常规”、“文件夹”、“存档”、“只读”、“系统”、“隐藏”。5.1.1任务概述利用Windows操作系统的“资源管理器”和“我的电脑”等

3、程序，可以对磁盘文件进行列表、查看、删除、移动等操作，人们一般将这类程序称为文件管理器主要用到的三个控件文件列表框驱动器列表框目录列表框界面设计代码设计（详见演示）1．驱动器列表框控件的Change事件当选择驱动器列表框，改变当前驱动器会触发该控件的Change事件。因当前驱动器改变，所以目录列表框、文件列表框的路径值也因该相应改变。该事件的程序如下：PrivateSubDrive1_Change()ChDriveDrive1.Drive'改变当前驱动器Dir1.Path=Drive1.Drive'改变目录列表框的路径CallClearAt

4、tr'清空属性复选框组EndSub2．目录列表框控件的Change事件PrivateSubDir1_Change()ChDirDir1.Path'改变当前目录File1.Path=Dir1.Path'改变文件列表框的路径ShowAttrDir1.Path'设置属性复选框组EndSub5．文件列表框控件的Click事件PrivateSubFile1_Click()ShowAttrFile1.FileName'设置属性复选框组EndSubPrivateSubShowAttr(ByValsPathAsString)DimiAttrAsIntege

5、r'存储文件的属性值iAttr=GetAttr(sPath)'获取文件的属性值IfiAttrAndvbNormalThen'判断是否为普通文件Check1(0).Value=Checked'若是，则普通属性复选框被选中EndIfIfiAttrAndvbReadOnlyThen'判断是否为只读文件Check1(1).Value=Checked'若是，则只读属性复选框被选中EndIfIfiAttrAndvbHiddenThen'判断是否为隐藏文件Check1(2).Value=Checked'若是，则隐藏属性复选框被选中EndIfIfiAttr

6、AndvbSystemThen'判断是否为系统文件Check1(3).Value=Checked'若是，则系统属性复选框被选中EndIfIfiAttrAndvbDirectoryThen'判断是否为目录（文件夹）Check1(5).Value=Checked'若是，则文件夹属性复选框被选中EndIfIfiAttrAndvbArchiveThen'判断是否为存档文件Check1(4).Value=Checked'若是，则存档属性复选框被选中EndIfEndSub二、文件系统控件及相关语句（一）改变当前驱动器语法：Chdrive<驱动器名>例如

7、：ChDrive“D”‘将当前驱动器改为D(2)改变当前目录语法：ChDir<路径名>说明：ChDir语句改变缺省目录位置，但不会改变缺省驱动器位置。例如：ChDir“D:TMP”‘将当前目录改变为D:TMP二、文件系统控件及相关语句(三)删除文件语法：Kill<文件名>说明：可以使用“*”和“？”例如：Kill“D:DataTest.txt”Kill“C:Temp*.tmp”二、文件系统控件及相关语句(四)拷贝文件语法：FileCopy<源文件>,<目标文件>二、文件系统控件及相关语句(五)对文件重命名语法：Name<旧文件名

8、>As<新文件名>说明：Name语句重新命名文件并将其移动到一个不同的目录或文件夹中。例如：Name“Oldfile”As“Newfile”Name“C:mydiroldfi