说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出

HTML文档下载 WORD文档下载 PDF文档下载
VB如何用Dir()函数来列出C下所有TMP文件并且用文本框输出
问题: 如何用Dir()函数列出C:\下所有*.TMP文件,并且用文本框输出?
  答:下面是一个列出指定目录下所有符合要求的文件名的函数:
  Public Function AutoListFiles(ByVal sDirName As String,ByVal FileFilter As String ) As Boolean
  On Error GoTo RF_ERROR
  Dim sName As String, sFile As String, sExt As String
  Dim sDirList() As String, iDirNum As Integer, i As Integer
  ′首先枚举所有文件
  sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
  Do While Len(sFile) >0
  sFile = UCase(Trim(sFile))
  ′在此处可以将 sFile 加入到一个 Text 控件...
  sFile = Dir ′下一个文件
  Loop
  iDirNum = 0
  sName = Dir(sDirName + ″*.*″, vbDirectory + vbNormal)
  Do While Len(sName) >0
  If sName <> ″.″ And sName <> ″..″ Then
  iDirNum = iDirNum + 1
  ReDim Preserve sDirList(1 To iDirNum)
  sDirList(iDirNum) = sDirName + sName + ″\″
  End If
  sName = Dir ′下一个目录
  Loop
  For i = 1 To iDirNum
  AutoListFiles sDirList(i) ′递归调用
  Next
  End If
  RF_EXIT:
  AutoListFiles = True
  Exit Function
  RF_ERROR:
  MsgBox Err.Description, vbCritical, ″″
  Resume RF_EXIT
  End Function
  调用上述函数的示例:
  AutoListFiles(″C:\″,″*.TMP″)
  之所以采用上述先处理文件,再处理子目录,一是思路较清晰,另外也有模仿 Prolog 语言中的“尾递归”的想法,当然,VB中是不支持尾递归的。

TIOBE 2014年6月编程语言排行榜:Swift能否取代Objective-C? 移动游戏后端:开发还是购买?你必须知道的6件事 Vuforia SDK 3.0发布在即 全球注册开发者已逾10万 最受职场青睐的十大热门云计算技能盘点 Android Bootstrap:开发也能用模板,省时又省力! Facebook开源又一力作,欲借Broadcom开放交换机 华为敏捷网络:坚持被集成,引领ICT融合 专访赵桂华:.Net也有春天及高性能网站架构实践 《近匠》Testin:云测试除了APP和真机 还有可穿戴和汽车 应用开发利器FXForms:iOS上实现各种Form View Firefox 30正式版:支持GStreamer 1.0技术、内置全新Gecko 30内核 从阿里、UC联姻 看移动互联网“入口”之争 AppCode发布3.0.1更新,支持Xcode 6和Swift 智能家居持续升温:苹果HomeKit合作伙伴Honeywell发布恒温器 欲与谷歌、亚马逊抗衡,苹果推CloudKit拥抱云服务 针对新一代物联网应用 Atmel推全新32位微控制器 实时计算,流数据处理系统简介与简单分析 Cue:秒杀HealthKit,打造自己的家庭医生 新iPhone要来:4.7就够了么?我们还有更大的 Docker迈入云(DockerHub)+端(Docker引擎)时代 《近匠》壹枱智能钢琴:改造音乐行业的新“玩”家 圣何塞Hadoop Summit 2014看点 唯快不破!90后大学生9天完成近670页的Swift语言文档翻译 一周消息树:Java、.NET、Web技术应用特点 苹果生态格局:软硬件之后,iLifestyle才是王道 小米互娱总经理尚进:独立游戏当为发烧而生 哪些编程语言、框架/平台最受企业青睐? 高德LBS应用大赛:百万大奖、千万基金等你来拿! Gartner:有数据有真相 从浪潮看服务器市场走势 PhoneGap 3.5.0发布,不再支持iOS 5和ARM64 “中美青年创客大赛”之“创客&#183;教育论坛” 以创客教育支持创新人才培养 vc新兵问函数调用菜鸟问题 紧急求救!!!! 谁有delphi关于ado编程 的资料啊(要详细一点的) TreeView的问题,很实在的问题。 关于在PB上实现错误事件处理!!! 关于组件的停靠 用VB.NET连接数据库老是连不了,快精神分裂了,救命啊! 关于SendMessage(高分相送,紧急) 急!!!高手进! 在查找结果中如果某一字段的值相等,只取出其中一条的问题! squid的安装问题???????????????????? SQL语句问题? 冒昧求救,光驱不能使用,不能boot 我的主机总收到外面发的广告信息? 高分求助急!!! 见鬼了,我添加一个TServerSocket控件,然后编译出现:Declaration terminate incorrectly 有谁知道用哪款打印机比较好呢? 按钮BitBtn1上有图片,在图片上写字的问题。(在先给分!) cystal reports 8.5 english显示繁体问题,急,等待 Unix下用什么源代码检测工具比较好? 我的电脑出什么问题了?各位帮帮忙 界面导航如何分类? 怎样得到本机的网卡号??? %¥#问个小问题,知道的都来抢分啊 谁知道哪儿有支持认证的SMTP组件下载? 有什么软件能查看PE文件的? ADO问题!!!! 100分求购最简单的串口程序!需要详细注释! 怎么给大家份呀?to wyz_csdn等(500分诚征wav 转换到MP3的源程序(VC++的例子)) 在directshow中,不知道怎样对播放的画面的亮度进行控制? 如果深愛的人要離開你,是變心還是死亡好一點?(讨论) 贴了二次为什么没有人指教? 戒水快两年了,如今回来看看,物不是人非啦 新手一问 关于datagrid 修改数据的问题,帮我看看,多谢 谁有这两本书,请帮忙发到我的邮箱里,100分相送 到底应该怎么办? 大家好,如何打开DLL文件? 建议成立一个程序员协会 关于IE中图片的保存 VB 语言支持问题 高分求李维《delphi5.xDELPHI5.X ADO/MTS/COM+高级程序设计》示例源码!!!! 请yangshu进来!给妳点分!!!倒分! 请教各位如何实现dbgrid中按住shift多选的问题? 请问把sql-server7中的数据文件copy出来行吗? 找不到类,请大家帮忙解决,谢谢 异常处理问题 怎样恢复被损坏的"本地用户和组" 小弟在线等待,一小问题,,大家来帮忙?? 求jsp树的原代码 最好是jsp+js+xml 执行效率要高。(从数据库中动态生成的)在线 关于多层结构中事务处理的问题. 脲甲醛化肥包括那几种元素 二氧化碳不从毛细血管进入肝细胞的原因 傅雷在第一封信中对儿子寄予了怎样的期望 史贝美脲甲醛肥料工艺特点有哪些? 同种物质的分子性质相同,不同种物质的分子性质不同 这句话对吗 了解傅雷这封家书是在什么情况下写给儿子的.2,傅雷想通过这封书信告诉儿子什么 把一根长13厘米的铁丝做成一个腰长为5厘米的等腰三角形,它的底边长多少厘米? 同种物质的分子性质相同,不同物质的分子性质不同.这句话对吗 傅雷在这封信中对儿子寄予了怎样的期望' 用一根20厘米的铁丝围一个等腰三角形,这个等腰三角形的腰长可能是多少厘米? 同种物质的分子性质相同、不同种物质的分子性质不同、这种说法对吗、为什么、 傅雷先生的信写给哪个儿子《傅雷家书》 如何利用化学镀在铁机体上镀上金刚石 同种物质的分子性质相同,不同种物质的分子性质不同判断对错,不要太深 联合国吧世界上的国家分为两大类一是.2是.中国属于哪一类 将以根铁丝一半再一半地剪去,剪了4次后,剩下的正好是2米,这根铁丝原来的长度是多少? 请问哪里有免费下载环保型长效化肥聚脲甲醛的合成研究 “同种物质的分子性质相同,不同种物质的分子性质不同”这句话正确吗?为什么?这是初三化学书的习题 有一根铁丝,第1次用去它的一半少1米,第2次用去剩下的一半多1米,结果还剩下2.5米,这铁丝原来多长?用方程解 甲袋大米二十五千克七十五元,乙袋大米四十千克八十元算一算哪种大米便宜些 "同寝,中夜闻鸡鸣"包括怎样的成语 楚人居贫讲了一件什么事 现在哪里的大米最便宜 为什么二氧化碳不能穿过毛细血管? 什么是高纤维素膳食 大米能便宜点吗? co2不从毛细血管进入胰腺组织细胞的原因是?答案说co2不从毛细血管进入胰腺组织细胞的原因是胰腺产生co2,且浓度高.胰腺怎么会产生co2,为什么要产生co2?毛细血管不就是淋巴吗?最好不都是要 "数人饮之不足,一人饮之有余.请画地为蛇,先成者饮酒."的意思 已知S-Cl,Si-Si,H-H,H-Cl键能分别为:360.176,436,431千焦每摩尔SiCl4(g)+2H2(g)==Si(s)+4HCl(g)反应该反应的反应热是多少?答案是△H=+236KJ/mol 用酚酞作指示剂 用酚酞作指示剂 盐酸滴定Na2co3 达到滴定终点 离子浓度关系为什么达到滴定终点时恰好完全反应生成NaHco3和Nacl? 一包白色粉末由碳酸钠和硫酸钠组成,怎样测出碳酸钠的质量分数 ipod Apple ID怎么弄? 工业上制备纯硅反应的热化学方程式如下:SiCl4(g)+2H2(g)⇌Si(s)+4HCl(g);△H=+QK工业上制备纯硅反应的热化学方程式如下:SiCl4(g)+2H2(g)⇌Si(s)+4HCl(g);△H=+QKJ/mol(Q> 脲醛胶配方我爸爸最近转行到刨花板制作行业.但他对制作刨花板所必须的脲醛胶不太了解,请问有谁能帮帮他吗?尤其是关于配方上!感激不尽! 肺泡有与外界空气进行气体交换那是不是只是一个扩散作用,请看一下这道题:人体细胞要获得氧气,排出二氧化碳,必须经过如下①②③等过程来完成 外界空气→ 肺泡→ 血液→ 组织细胞 工业制备纯硅的反应为SiCl4(g)+2H2(g)=Si(s)+4HCl(g);△H=+240.4J/mol,生成的HCl 通入100ml/mol 的NaOH溶液恰好反应,则反应过程中( )(填吸收或释放)的热量为( )kj.需要两空的详解哦,不求多,但要易 两根铁丝共长636米,各减去三米,则第一根的长度是第二根剩下长度的9/8倍,原来两根铁丝共长多少米两根铁丝共长363米,各剪去三米,则第一根的长度是第二根剩下长度的9/8倍,原来两根铁丝 (1)组织内的气体交换和肺泡内的气体交换是通过___________来实现的.请说明理由谢谢(2)根据气体分压值的变化,可以判断甲图中的血流方向是___________,乙图中的血流方向是__________。(3 液化气热水器在用个几分钟后为什么火会熄灭后马上又自动点燃,并如此重复,是怎么回事? 0.35的倒数是多少分数 皓尔宝能分解甲醛吗 找一个成语含有寝 睡觉( ) 0.35的倒数是什么? 带有“寝”的成语 7、8、9、10、11 a和b(a不等于0,b不等于0)是互为倒数的是:1,a除以b 2,a=b 3,1除以a=b 4,a除以1=b "祖逖北伐"中的成语?所有的 足量钠钠与盐酸反应中,先与酸反应还是先与水反应,化学方程式怎么写,写两个还是合在一起写,什么样的两个方程式可以合在一起,最好举个例子, 食品能分成几大类用尽量少的字概括,【分成尽量少的几大类,】 谁有Apple ID 由古文《孙权劝学》引出的成语是什么?一定要准确无误! 一到初一的饮食分解x^2(2x-1)^2+(1-2x)^3因式分解 谁可以借我apple ID啊 孙权劝学和祖逖北伐中的成语 食物中的淀粉最初被分解的部位是... CO2 不从毛细血管进入胰腺组织细胞的原因是? Arctan的反运算怎么算不用科学计算器 口算 比如arctan1=45‘ 那arctan6.441=多少度 请问电容器引出金属端子镀什么金属好?为什么?最近要采购电容供应商告诉我们镀锡的好,但是我们想要镀镍 CO2会不会从毛细血管进入胰腺组织细胞,为什么? arctan(-1)=-π/4,怎么算的? 26名获释巴勒斯坦人返回故土美众院军事委员会主席称支持日本提升军钓鱼岛问题成安倍实现外交和安保战略工朝鲜驻日机构\"朝总联\"因绑架日本埃及投资环境正在改善——访埃及投资部中国军舰经与那国岛毗邻区返航 日本防外媒:以色列将在东耶路撒冷建1500美13岁男生携玩具枪被警察射杀 FB美国“追梦者”空天飞机在测试中滑出跑“窃听门”在哪里刺伤了美欧关系?中国和塞浦路斯签协定保护文化财产宠物犬被指与主人长得像 日学者称关键JAEA报告称福岛核电站附近森林核辐法国拟试行按剂量出售抗生素以减少药物沙特女性抗议者拟无视政府禁驾令“顶风美称监听欧洲公民的是欧情报机构 美只美科学家称“亚洲鲤鱼”大量繁殖威胁当中国军舰经与那国岛毗邻区返航 日防相意大利比萨斜塔修复见成效 12年扶正欧洲风暴肆虐 高校推风暴命名项目收费日土发表共同宣言 安倍决心加强战略伙7月游巴淡岛 尽享印尼风情小公主的饭团便当公积金存废之争为改革敲响警钟“威马逊”影响 后天或有暴雨卡梅伦内阁“大换血”出国游学热,需要冷思考卓越时代广场将发售地铁旺铺《牛中人》道尽百年牛中事“炫廉坑爹”:对廉政制度的鞭策梁振英向人大提交政改报告建设海上丝绸之路 广东华侨献计献策远期支票当货款潜规则里藏危机南沙也有三甲医院了治理裸官关键在查清有无腐败朱宗庆打击乐团儿童音乐会亮相中山快男快女“聚会”想哭就哭憋尿会引起阳痿吗?付费看视频真的行得通?《牛中人》道尽百年牛中事地产钢铁板块现资金抄底广州人将有1万“格子管家”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘