第九章文件 9.1文件系统控件 9.2文件的读写 9.3常用的文件操作语句和函数
第九章 文件 9.1 文件系统控件 9.2 文件的读写 9.3 常用的文件操作语句和函数
9.1驱动器、目录和文件列表框 。爽动器目录和文件列表框示例 回☒ Sub drvDrive_Change() dirDirectory.Path drvDrive.Drive ,□c:[Dos] 256COLOR.BMP ACCSTAT.EXE End Sub ctive Setup Lo C: ARCADE.BMP ARCHES.BMP 色WID0WS ARGYLE.BMP 宣COMMAND ARP.EXE Sub dirDirectory_Change() CONFIG ARTGALRY.INI filFile.Path dirDirectory.Path aCO0灯ES ASPI2HLP.SYS C向CURSORS AUDDRIVE HLP End Sub Desktop AUDDRIVE.INI ☐Favorites AUDDRV.WAV AU 所有文件体*】■ AWARE35.MCH Sub Form_Load() Sub filFile_Click()） Item=“所有文件(**” cboType.Addltem Item+Space(20-Len(Item))+"*.*" Item="窗体文件(*.FRM)" End Sub cboType.Addltem Item+Space(20-Len(Item))+"*.FRM" Item="位图文件(*.BMP)" Sub filFile_DblClick() cboType.Addltem Item+Space(20-Len(Item))+"*.BMP" cboType.Listlndex=2 End Sub End Sub Sub cboType_Click() filFile.Pattern=Mid(cboType.Text,21) End Sub 例9.1示例程序
9.1 驱动器、目录和文件列表框 Sub drvDrive_Change() dirDirectory.Path = drvDrive.Drive End Sub Sub dirDirectory_Change() filFile.Path = dirDirectory.Path End Sub Sub Form_Load() Item = “所有文件(*.*)” cboType.AddItem Item + Space(20 - Len(Item)) + "*.*" Item = "窗体文件(*.FRM)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.FRM" Item = "位图文件(*.BMP)" cboType.AddItem Item + Space(20 - Len(Item)) + "*.BMP" cboType.ListIndex = 2 End Sub Sub cboType_Click() filFile.Pattern = Mid(cboType.Text, 21) End Sub Sub filFile_Click( ) ┆ End Sub Sub filFile_DblClick( ) ┆ End Sub 例9.1示例程序
1.驱动器列表框 Drive)属性： [对象.]Drive[=drive] Change?事件： 重新设置Drive)属性引发Change事件 2.目录列表框 Path属性： [对象.]Path[=pathname] Change事件： 重新设置Path属性引发Change事件
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属性得到其路径；设置时可带路径
3. 文件列表框 Path属性： 显示该路径下的文件。 重新设置Path属性引发PathChange事件。 Pattern属性： 显示的文件类型。 [对象.]Pattern [= value] 重新设置Pattern属性引发PatternChange事件。 例如：filFile.Pattern = “*.frm”，显示*.frm文件。 FileName属性： [对象.]FileName [= pathname] 引用时只返回文件名，相当于filFile.List(filFile .ListIndex)， 需用Path属性得到其路径；设置时可带路径
Click、DbIClick事件： 例如，单击输出文件名。 Sub filFile Click() MsgBox filFile.FileName End Sub 例如，双击执行可执行程序 Sub filFile DblClick() ChDir(dirDirectory.Path)'改变当前目录 RetVal=Shell(filFile.FileName,l)'执行程序 End Sub
Click、DblClick事件： 例如，单击输出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 例如，双击执行可执行程序 Sub filFile_DblClick( ) ChDir (dirDirectory.Path) ’ 改变当前目录 RetVal = Shell(filFile.FileName, 1) ’ 执行程序 End Sub