- 1、本文档共2页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB60中Dir函数的使用方法
VB6.0中Dir 函数的使用方法 VB中提供的成员函数dir返回一个满足指定类型或指定文件属性的文件名,目录名或卷标名。dir函数的语法结构为:
Member Function Dir[ Pathname[,attributes] ] As String 其中参数Pathname通常为一个文件名,此文件名可以包含目录或文件夹以及驱动器符号,如果没有找到指定的Pathname,dir语句将返回一个零长度的字符串 ,支持多字符通配符和单字符通配符。需要注意的是: 1.在程序中第一次调用dir函数时必须指明pathname参数,否则会产生运行错误; 2.dir函数只返回满足pathname条件的第一个文件名或目录名,要得到其余满足条件的文件名,可以再次调用dir函数而不用带参数,当没有匹配的文件,dir函数返回零长度的字符串,而此时如果再想调用dir函数,必须指定pathname参数,否则出现运行错误; 3.在没有检索到满足当前pathname匹配条件的文件时可以改变新的pathname值,但不能再次递归调用dir函数; 4.调用dir函数时将属性参数设置为vbdirectory并不能连续返回子目录,仅返回当前目录下的目录。 例1
Public Sub main Dim filenames As String filenames Dir c:\, vbNormal + vbDirectory Do While filenames Debug.Print filenames filenames Dir ’再次调用dir函数,此时可以不带参数 Loop End Sub 例2
’将符合条件的条件和目录分类,存到对应的数组中,完成输出 Public Sub main Dim FileNames As String, DirNames As String Dim FileArray As String, DirArray As String Dim TotalDirs As Integer, TotalFiles As Integer Dim iLoop As Integer DirNames c:\ FileNames Dir Dirname, vbNormal + vbDirectory Do While FileNames If FileNames . And FileNames .. Then If GetAttr Dirname FileNames And vbDirectory vbDirectory Then TotalDirs TotalDirs + 1 ReDim Preserve DirArray TotalDirs DirArray TotalDirs FileNames Else TotalFiles TotalFiles + 1 ReDim Preserve FileArray TotalFiles FileArray TotalFiles FileNames End If End If FileNames Dir Loop ’这里可对数组进行排序,此处略 Debug.Print ___Directories______ For iLoop 0 To UBound DirArray Debug.Print DirArray iLoop Next Debug.Print ___Files____ For iLoop 0 To UBound FileArray Debug.Print FileArray iLoop Next End Sub Dir函数可以用在不确定本机是否存在某文件或目录的前提下后台帮助用户寻找并提示,然后运用该文件或目录完成指定操作,如run等。但是由于不能递归使用,这就意味着不能一次查找整棵树,更为糟糕的是,vb并没有提供用来在多个不知名的目录中查找某一给定的文件或文件簇的任何工具。幸运的win32api提供了一些文件查找的方法 SearchPath,FindFirstFile,FindNextFile等 ,此外还可利用已有的文件查找知识为用户创建一个listbox控件,用来显示所查找到的文件,以便用户能选中其一。
文档评论(0)