文件管理与操作 文件操作语句和函 课件 .pdf

第8章文件管理与操作

8.1文件系统控件

8.2文件的读写

8.3常用的文件操作语句和函数

8.1驱动器、目录和文件列表框

SubdrvDrive_Change()

dirDirectory.Path=drvDrive.Drive

EndSub

SubdirDirectory_Change()

filFile.Path=dirDirectory.Path

EndSub

SubForm_Load()SubfilFile_Click()

Item=“所有文件(*.*)”┆

cboType.AddItemItem+Space(20-Len(Item))+*.*

Item=窗体文件(*.FRM)EndSub

cboType.AddItemItem+Space(20-Len(Item))+*.FRM

Item=位图文件(*.BMP)SubfilFile_DblClick()

cboType.AddItemItem+Space(20-Len(Item))+*.BMP┆

cboType.ListIndex=2

EndSubEndSub

SubcboType_Click()

filFile.Pattern=Mid(cboType.Text,21)

EndSub例9.1示例程序

1.驱动器列表框

Drive属性：

[对象.]Drive[=drive]

Change事件：

重新设置Drive属性引发Change事件

2.目录列表框

Path属性：

[对象.]Path[=pathname]

Change事件：

重新设置Path属性引发Change事件

3.文件列表框

Path属性：

显示该路径下的文件。

重新设置Path属性引发PathChange事件。

Pattern属性：

显示的文件类型。

[对象.]Pattern[=value]

重新设置Pattern属性引发PatternChange事件。

例如：filFile.Pattern=“*.frm”，显示*.frm文件。

FileName属性：

[对象.]FileName[=pathname]

引用时只返回文件名，相当于filFile.List(filFile.ListIndex)，

需用Path属性得到其路径；设置时可带路径。

Click、DblClick事件：

例如，单击输出文件名。

SubfilFile_Click()

MsgBoxfilFile.FileName

EndSub

例如，双击执行可执行程序

SubfilFile_DblClick()

ChDir(dirDirectory.Path)’改变当前目录

RetVal=Shell(filFile.FileName,1)’执行程序

EndSub