第8章 VB数据文件.ppt

移动文件 利用 FileCopy 、Name、 Kill可以实现文件的移动操作。先复制文件到指定位置，（命名任意），然后将复制的文件重新命名为原文件名，再删除原来的文件。 Private Sub Cmdmove_Click() m_move_Click End Sub Private Sub m_move_Click() 移动文件到指定的目录下e:\Mydata FileCopy File1.Path \ File1.FileName, e:\Mydata\t1.txt Name e:\Mydata\t1.txt As e:\Mydata\ File1.FileName Kill File1.Path \ File1.FileName End Sub 常用的文件操作语句和函数 删除文件 Private Sub cmddelete_Click() m_kill_Click End Sub Private Sub m_kill_Click() 删除文件 answer = MsgBox(确定要删除文件吗？, vbYesNo, 请确认) If answer = vbYes Then Kill File1.Path \ File1.FileName End If End Sub 常用的文件操作语句和函数 Private Sub Cmdexe_Click() m_run_Click End Sub Private Sub m_run_Click() Dim fname As String Dim run On Error GoTo fileError 文件类型不是可执行程序文件，将返回一个错误 If Right(File1.Path, 1) = \ Then fname = File1.Path File1.FileName Else fname = File1.Path \ File1.FileName End If run = Shell(fname, 1) fileError: MsgBox 文件类型错误！ End Sub 执行 常用的文件操作语句和函数 本章小结 （一）文件的概念 VB中根据访问模式将文件分为：顺序文件、随机文件、二进制文件。顺序文件可以按行、按字符和整个文件一次性读三种方式读出；随机文件以记录为单位读出；二进制文件以字节为单位读出。 （二） 文件系统控件 控件 重要属性 使用格式 作用 示例 驱动器 列表框 Dirve Object.Drive[=字符串] 返回或设置运行时选择的驱动器 Drivel1.drive=C: 目录列 表框 Path Object. Path[=字符串] 返回或设置当前路径 Dir1.Path=F:\VB98 文件 列表 框 Path Object. Path[=字符串] 返回或设置文件列表框当前目录 File1.Path=Dir1.Path FileName Object. FileName 返回或设置被选定的文件名 MsgBox File1.FileName Pattern Object.Pattern[=value] Value是可包含通配符*和?的字符串 返回或设置文件列表框中显示的文件类型 File1.Pattern=*.txt 本章小结 表 文件系统控件的重要事件 控 件 重要事件 事件发生的时机 驱动器 列表框 Change 选择一个新的驱动器或通过代码改变Drive属性的设置时发生 目录列表框 Change 双击一个新的目录或通过代码改变Path属性的设置时发生 文件列表框 PathChange 当文件列表框的Path属性改变时发生 PatternChange 当文件列表框的Pattern属性改变时发生 Click 用鼠标单击时发生 DbClick 用鼠标双击时发生 本章小结 顺序文件结构简单，其中记录的写入、存放、读取顺序都是一致的，也就是说记录的逻辑顺序与物理顺序相同。顺序文件可以用普通的字处理软件（如：记事本）进行建立、显示和编辑。 1。打开顺序文件：Open文件名For模式As[#]文件号[Len=记录长度] 2．写语句格式：Print # 文件号,[输出列表] 或 Write # 文件号,[输出列表] 3．读语句格式 : Input #