VB第8章-文件及文件系统控件.pptVIP

8.4.4 利用文件系统控件设计用户界面 FileCopy语句:将所选定的源文件复制到指定的目标文件。一般格式为： FileCopy 源文件，目标文件 在本例中，目标文件名就是输入对话框中所指定的文件名。 8.4.4 利用文件系统控件设计用户界面 （6）文件重命名------Name语句 一般格式是： Name 旧文件名 As 新文件名 Private Sub cmdRename_Click() Dim oldName As String Dim newName As String Title$ = 重新命名 str1$ = 请输入新文件名 Call FileList_Click msg$ = 确认被更改的文件名 choicedFile p = MsgBox(msg$, 35, 数据检查框) If p = 6 Then newName = InputBox(str1$, Title$) Name choicedFile As newName MsgBox 更名完毕，新文件名是: + newName End If End Sub 8.4.4 利用文件系统控件设计用户界面 cmdRename_Click事件过程的执行： 1）选中需要重新命名的文件（设为Chp8.doc）。 2）调用MsgBox函数打开一个标题为“数据检查框”的消息框，确认要更改的文件名。语句中的35指明消息框中图标的样式和按钮个数。 choicedFile为全局变量，所有对文件列表框的单击操作都会将所选文件的文件名赋给该变量。MsgBox返回的值放在变量p中，如果选择“是（Y）”，p的值为6，确认要更改的文件名是正确的。 8.4.4 利用文件系统控件设计用户界面 （3）用InputBox函数打开输入对话框，输入新文件名。再用Name语句完成文件名的更改。 注意：所输入的文件名应该包含路径。 修改成功后，屏幕上弹出对话框显示新的文件名 8.4.4 利用文件系统控件设计用户界面 （7）删除文件 在VB中删除文件用Kill语句，其一般格式为： Kill 文件名 删除文件的事件过程如下： 删除文件的事件过程如下： Private Sub cmdKill_Click() Title$ = 数据检查框 msg1$ = 你要删除文件: killedFile x = MsgBox(msg1$, 35, Title$) If x = 6 Then Kill choicedFile End If End Sub 8.4.5 文件系统控件的一些属性 驱动器列表框、目录列表框、文件列表框都有ListCount属性。这个属性与列表框控件ListCount的类似，其作用是提供当前列表框（驱动器、目录、文件列表框）控件中的项目数。 【例8-8】显示当前路径下的文件数量。 设计窗体如图。 8.4.5 文件系统控件的一些属性 属性设置如表： 对象 属性 设置 窗体 （名称） Form1 Caption 显示文件数量 驱动器列表框 （名称） Drive1 目录列表框 （名称） Dir1 文件列表框 （名称） File1 标签1 （名称） lblPath Caption 当前路径文件夹数量 标签2 （名称） lblPathCount Caption (置空) BoderStyle 1 标签3 （名称） lblFile Caption 当前路径文件数量 标签4 （名称） lblFileCount Caption (置空) BoderStyle 1 命令按钮 （名称） cmdExit Caption 退出 8.4.5 文件系统控件的一些属性 （1）在Form_Load中显示初始数据 运行程序，执行Form_Load程序，分别在两个标签中显示当前路径下文件的数量和路径的数量。 Private Sub Form_Load() lblFileCount.Caption = File1.ListCount lblPathCount.Caption = Dir1.ListCount End Sub 8.4.5 文件系统控件的一些属性 （2）保持文件系统控件的同步 当目录列表框的内容发生变化时，触发Dir1_Change事件过程，使目录列表框与文件列表框同步。 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub 8.4.5 文件系统控件的一些属性 （3）显示文件数和文件夹数 驱动器列表框的内容发生变化时，触