VB第五章文件和图形.pptVIP

第五章 文件和图形 文件 图形 文件 有关控件 文件读写 ini和注册表的读写 文件与目录操作 FSO对象类型 文件有关控件 提供文件名称的方法 驱动器列表框、目录列表框和文件列表框 通用对话框 APP对象的Path属性 驱动器列表框 目录列表框 文件列表框 驱动器列表框 主要属性 Drive List ListCount ListIndex 主要事件 Change 目录列表框 主要属性 Path List ListCount ListIndex 主要事件 Change 文件列表框 主要属性 Path（文件路径，与FileName配合） FileName(仅为文件名称，无路径) Pattern *.dat;*.txt Archive Hidden Normal Readonly System MultiSelect（0--单选；1--简单多选；2--扩展多选） Selected List ListCount ListIndex 主要事件 Click DbClick PathChange PatternChange 文件有关控件示例 文件读写 文件类型 文本文件 二进制文件 顺序文件读写（文本文件） 随机文件(也是二进制，有固定长度记录） 二进制文件（无固定长度记录） 有关函数 Lof ：文件长度 l1=Lof(1) Eof：文件结尾 If Eof(1)=False Then FreeFile：产生可用的文件号（1－511） 顺序文件读写（文本文件） 打开文件 Open 文件名 For Input|Output|Append As #文件号 文件号为1-511，可由FreeFile函数产生 写数据 Write #文件号, [输出列表] (数据以逗号分隔，字符串加上引号) Print #文件号, [输出列表] (数据以空格分隔，字符串无引号) 读数据 Input #文件号，变量列表（以回车、逗号或空格结束） Line Input #文件号，字符串变量（输入一行） Input$(字符数,#文件号） 关闭文件 Close [# 文件号] 随机文件(也是二进制，有固定长度记录） 打开文件 Open 文件名 For Random As #文件号 Len=记录长度 写数据 Put #文件号, [记录号], 变量 读数据 Get #文件号, [记录号], 变量 关闭文件：与顺序文件相同 二进制文件（无固定长度记录） 打开文件 Open 文件名 For Binary As #文件号 写数据 Put #文件号, [记录号], 变量 读数据 Get #文件号, [记录号], 变量 关闭文件：与顺序文件相同 文件操作示例 INI文件读写 WritePrivateProfileString （API函数） GetPrivateProfileString（API函数） 注册表读写 RegCreateKey RegOpenKey RegQueryValueEx RegSetValueEx RegCloseKey（API） GetSetting SaveSetting DeleteSetting （VB函数） ( HKEY_CURRENT_USER\Software\VB and VBA Program Settings) 文件和目录操作 FileCopy FileCopy a.dat,b.dat Kill Kill a.dat Name Name a.dat As b.dat MkDir MkDir c:\abc RmDir RmDir c:\abc CurDir a=CurDir ChDir ChDir c:\abc ChDrive ChDrive d SetAttr SetAttr a.dat,vbHidden+vbReadOnly vbNormal(0) vbReadOnly(1) vbHidden(2) vbSystem(4) vbVolumn(8) vbDirectory(16) vbArchive(32) vbAlias(64) FSO文件对象 使用方法 Set fs=CreateObject(Scripting.FileSystemObject) 工程--引用--Microsoft Scripting Runtime Set fs As New FileSystemObject Set fs=Nothi