电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

使用Dir函数遍历文件和目录

使用Dir函数遍历文件和目录_第1页
1/8
使用Dir函数遍历文件和目录_第2页
2/8
使用Dir函数遍历文件和目录_第3页
3/8
下载后可任意编辑使用 Dir 函数遍历文件和目录ivbscriptVb 编程中,可以通过使用控件 DriveListBox 、DirListBox 和 FileListBox 的组合,来得到某个目录下的文件或文件夹,继而可以通过递归调用来得到磁盘上所有的文件或文件夹,但是,假如可以仅通过一个函数就能完成以上的工作,何乐而不为?第一部分:Dir 函数语法:Dir[(pathname[, attributes])]作用:返回一个 String,用以表示一个文件名、目录名或文件夹名称。参数说明:pathname:字符串,要查找的文件所在目录名称;attributes:常数,指定了文件的属性。数值和描述见下:常数 值 描述 vbNormal0 (缺省) 没有属性的文件VbReadOnly 1 只读文件vbHidden 2 隐藏文件VbSystem 4 系统文件vbVolume 8 卷标文件vbDirectory 16 无属性文件及其路径和文件夹在使用中,我们可以使用通配符来制定要查找的文件,比如:dir("c:\*.txt")返回 C 盘下后缀名为”txt”的文件;dir("c:\?est.txt")返回 C 盘下后缀名为”txt”,文件名四个字符且包含”est”的文件。关键点:1、要得到其它匹配 pathname 的文件名,可再次调用 Dir,且不要使用参数;2、假如已没有合乎条件的文件,则 Dir 会返回一个零长度字符串 ("");3、Dir 返回的文件或文件名是无序的。第二部分:递归调用从第一部分我们可以看出,假如我们先使用一个带有 Pathname 参数的 Dir 函数,然后不断使用不带参数的 Dir 函数,那么我们就可以获得查找目录下的所有的文件或文件夹。比如FileName = Dir(“C:\”, vbDirectory) If FileName <> "" Then Do While FileName <> ""‘获得的文件名不是空字符串的话继续执行Dosomething‘这里是调用处理过程 FileName = Dir‘调用无参 Dir 函数 Loop End If第三部分:简单图形界面在程序中,不仅仅是后台程序,更重要的还有图形界面。这里使用 StatusBar 控件、ImageList 控件、TreeView 控件和 ListView 控件将写入文本中保存的目录和文件显示出来。由于以上几个控件不是默认的控件,要使用这几个控件,应该使用菜单“工程\部件”,下载后可任意编辑然后在“控件”选项卡中选择“Microsoft Windows Common Controls 6.0”,单击“确定”,这四个控件就被加入到了工具箱中。我们在 FormMain 中放置一个 StatusBar 控件、两个 ImageList 控件、一个 TreeView 控件和一个 ListView 控件,具体放置如下图所示: Imag...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

使用Dir函数遍历文件和目录

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部