PowerPoint 演示文稿

• 8. CurDir函数
• 格式：CurDir[(drive)]
• 功能：利用CurDir函数可以确定任何一个驱动器的当前目录。
• 说明： drive为“”，则CurDir返回当前驱动器的当前目录。
• 例9.6 利用ChDrive和ChDir语句改写例9.1中的File1_DblClick()事件过程。
• Sub File1_DblClick()
• ChDrive Drive1.Drive ' 设置缺省驱动器
• ChDir File1.Path ' 设置缺省目录
• RetVal = Shell(File1.FileName, 1)
• End Sub
例9.7 为例9.1添加事件过程File1_MouseDown()，使之支持Del键，即按 下Del键删除选定的文件。
Sub File1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
ChDrive Drive1.Drive
ChDir File1.Path
Kill File1.FileName
File1.Refresh ' 文件删除后更新文件列表框
End If
End Sub